# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1575646972 18000
# Node ID a97e2a0c01e453e44d5d9e041bd3303766fb3be2
# Parent  ad3a9d70d78cb55856902a4566fc1ac31df371d4
More

diff -r ad3a9d70d78c -r a97e2a0c01e4 lisprc
--- 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))