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