--- 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))