Prefix all packages with cantedraw

This is mostly a sanity check in-case anyone else decides to load this
system for use in their own package - don't want to conflict with
their names.

cantedraw.asd

@@ -5,7 +5,7 @@
                (:file "main"))
   :build-operation "program-op"
   :build-pathname "bin/cantedraw"
-  :entry-point "main:start")
+  :entry-point "cantedraw.main:start")
 
 #+sb-core-compression
 (defmethod asdf:perform ((o asdf:image-op) (c asdf:system))

lib.functions.lisp

@@ -17,7 +17,7 @@
 
 ;;; Code:
 
-(in-package :lib.functions)
+(in-package :cantedraw.lib.functions)
 
 (fn range (start end &optional (step 1)) (-> (fixnum fixnum &optional fixnum) list)
   "Make a list of numbers from START to END (exclusive).  If STEP is given, then

lib.macros.lisp

@@ -17,7 +17,7 @@
 
 ;;; Code:
 
-(in-package :lib.macros)
+(in-package :cantedraw.lib.macros)
 
 (defmacro --> (&rest forms)
   "Lexically bind current form as `_' for use in the next form, returning the
@@ -38,10 +38,12 @@ Also includes transformer where symbols are considered unary functions i.e.
       nil
       (let ((assignment-forms
               (loop :for f :in forms
-                    :for canon-f := (if (symbolp f) (list f 'lib.macros:_) f)
-                    :collect `(lib.macros:_ ,canon-f))))
+                    :for canon-f := (if (symbolp f)
+                                        (list f 'cantedraw.lib.macros:_)
+                                        f)
+                    :collect `(cantedraw.lib.macros:_ ,canon-f))))
         `(let* ,assignment-forms
-           lib.macros:_))))
+           cantedraw.lib.macros:_))))
 
 (defmacro ->> (&rest forms)
   "Make current form the last argument of the next form, returning the last

main.lisp

@@ -13,12 +13,12 @@
 
 ;;; Commentary:
 
-;; Implementation of `main' package.  Defines the entrypoint of the program,
-;; handling any input from the user and passing it into the system.
+;; Defines the entrypoint of the program, handling any input from the user and
+;; passing it into the system.
 
 ;;; Code:
 
-(in-package :main)
+(in-package :cantedraw.main)
 
 (fn read-input (&optional (prompt "> ")) (-> (&optional string) string)
   (format t "~a" prompt)

packages.lisp

@@ -17,7 +17,7 @@
 
 ;;; Code:
 
-(defpackage lib.macros
+(defpackage cantedraw.lib.macros
   (:use :cl)
   (:export
    :_ :--> :->>
@@ -25,13 +25,13 @@
    :while :alist-val
    :$))
 
-(defpackage lib.functions
-  (:use :cl :lib.macros)
+(defpackage cantedraw.lib.functions
+  (:use :cl :cantedraw.lib.macros)
   (:export
    :parse-integer*
    :range :take :split
    :rev-map))
 
-(defpackage main
-  (:use :cl :lib.macros :lib.functions)
+(defpackage cantedraw.main
+  (:use :cl :cantedraw.lib.macros :cantedraw.lib.functions)
   (:export :start))