odraw -> cantedraw

Why name it something unique when this is what I'm going to be making
at the end of it all?  Just makes it more confusing for the end user.
This commit is contained in:
2025-02-11 00:48:14 +00:00
parent 9b3d8e471a
commit 90ef834393
4 changed files with 11 additions and 11 deletions

View File

@@ -26,11 +26,11 @@
(in-package :bob)
(ql:quickload :deploy)
(asdf:load-asd (merge-pathnames "odraw.asd" (uiop:getcwd)))
(asdf:load-asd (merge-pathnames "cantedraw.asd" (uiop:getcwd)))
(defun build ()
(push :deploy-console *features*)
(asdf:make :odraw))
(asdf:make :cantedraw))
(defun load-all ()
(asdf:load-system :odraw))
(asdf:load-system :cantedraw))

View File

@@ -1,9 +1,9 @@
(asdf:defsystem :odraw
(asdf:defsystem :cantedraw
:depends-on (:deploy)
:components ((:file "packages")
(:file "lib.macros")
(:file "lib.functions")
(:file "odraw"))
(:file "cantedraw"))
:build-operation "deploy-op"
:build-pathname "odraw"
:entry-point "odraw:start")
:build-pathname "cantedraw"
:entry-point "cantedraw:start")

View File

@@ -1,4 +1,4 @@
;;; odraw.lisp - 2025-02-11
;;; cantedraw.lisp - 2025-02-11
;; Copyright (C) 2025 Aryadev Chavali
@@ -13,12 +13,12 @@
;;; Commentary:
;; Implementation of `odraw' package. Defines the entrypoint of the program,
;; Implementation of `cantedraw' package. Defines the entrypoint of the program,
;; handling any input from the user and passing it into the system.
;;; Code:
(in-package :odraw)
(in-package :cantedraw)
(fn read-input (&optional (prompt "> ")) (-> (&optional string) string)
(format t "~a" prompt)

View File

@@ -32,6 +32,6 @@
:range :take :split
:rev-map))
(defpackage odraw
(defpackage cantedraw
(:use :cl :lib.macros :lib.functions)
(:export :start))