# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1460478909 0
# Node ID 08bb1b2895de836f4a3dc9bb70e786c64208bb37
# Parent  c9adf65c83ffb7466ee93137c1d2ee4258dcf231
Add CCL init file

diff -r c9adf65c83ff -r 08bb1b2895de ccl-init.lisp
--- /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)))
+