a97e2a0c01e4

--- a/lisprc	Wed Dec 04 14:53:08 2019 -0500
+++ b/lisprc	Fri Dec 06 10:42:52 2019 -0500
@@ -1,12 +1,10 @@
+;;;; Quicklisp ----------------------------------------------------------------
 #-quicklisp
 (let ((quicklisp-init (merge-pathnames ".quicklisp/setup.lisp" (user-homedir-pathname))))
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(defun :ls (package)
-  (do-external-symbols (s package)
-    (print s)))
-
+;;;; Configuration ------------------------------------------------------------
 (setf *print-pretty* t
       *print-escape* t
       *print-right-margin* 100
@@ -14,11 +12,17 @@
       *print-length* 1000
       *print-level* 250)
 
+;;;; REPL Utilities -----------------------------------------------------------
+(defun :ls (package)
+  (do-external-symbols (s package)
+    (print s)))
+
 (defmacro := (var val)
   `(progn
      (defglobal ,var nil)
      (setf ,var ,val)))
 
+;;;; Scratch Marker -----------------------------------------------------------
 (defun sharp-semicolon-reader (stream sub-char numarg)
   (declare (ignore sub-char numarg))
   (loop :while (read-line stream nil nil))