1 (in-package :cl-user) 2 (setq *debug-beginner-help-p* nil 3 *print-case* :downcase 4 *print-level* 50 5 *print-length* 200) 6 7 #-quicklisp 8 (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))) 9 (when (probe-file quicklisp-init) 10 (load quicklisp-init)))