ccl-init.lisp @ 31ddcddb32bf

(setf *quit-on-eof* t)
(setf *load-preserves-optimization-settings* t)

(setf ccl:*default-file-character-encoding* :utf-8)

(defun sjl-lisp-prompt-format (stream level)
  (if (zerop level)
    (format stream "~%[ClozureCL] ~A> " (package-name *package*))
    (format stream "~%[~d] > " level)))

(setf ccl:*listener-prompt-format* #'sjl-lisp-prompt-format)

(setf *print-pretty* nil
      *print-escape* t
      *print-right-margin* 100
      *print-miser-width* nil
      *print-length* 1000
      *print-level* 250)


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