08bb1b2895de

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ccl-init.lisp	Tue Apr 12 16:35:09 2016 +0000
@@ -0,0 +1,16 @@
+
+(setf *quit-on-eof* t)
+
+(defun sjl-lisp-prompt-format (stream level)
+  (if (zerop level)
+    (format stream "~A> " (package-name *package*))
+    (format stream "[~d] > " level)))
+
+(setf ccl:*listener-prompt-format* #'sjl-lisp-prompt-format)
+
+;;; The following lines added by ql:add-to-init-file:
+; #-quicklisp
+; (let ((quicklisp-init (merge-pathnames ".quicklisp/setup.lisp" (user-homedir-pathname))))
+;   (when (probe-file quicklisp-init)
+;     (load quicklisp-init)))
+