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:
6
bob.lisp
6
bob.lisp
@@ -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))
|
||||
|
||||
@@ -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")
|
||||
@@ -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)
|
||||
@@ -32,6 +32,6 @@
|
||||
:range :take :split
|
||||
:rev-map))
|
||||
|
||||
(defpackage odraw
|
||||
(defpackage cantedraw
|
||||
(:use :cl :lib.macros :lib.functions)
|
||||
(:export :start))
|
||||
|
||||
Reference in New Issue
Block a user