X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/blobdiff_plain/0712ae953c9acc1280d4d73cb8d119b230a68c95..9d5669bc20154b3ee523ba727775fbfc3071d5f8:/dot/lisp-init.lisp diff --git a/dot/lisp-init.lisp b/dot/lisp-init.lisp index 2d8bb9e..08dce6e 100644 --- a/dot/lisp-init.lisp +++ b/dot/lisp-init.lisp @@ -31,22 +31,33 @@ (let ((old-output *standard-output*) si:*tpl-prompt-hook* old-prompt) (si::tpl-prompt))))) +#+ccl +(setf ccl::*inhibit-greeting* t) + +#+abcl +(setf ext:*warn-on-redefinition* nil) + ;; Obtain ASDF from somewhere. (require "asdf") -;; Get CMU CL to quit on EOF. +;; Get CMU CL and CCL to quit on EOF. #+cmu (setf ext:*batch-mode* t) +#+ccl +(setf ccl:*quit-on-eof* t) ;; Tell SBCL where to find its source source. #+sbcl (sb-ext:set-sbcl-source-location #p"/usr/share/sbcl-source/") ;; Tell some Lisps about my home directory. CMU CL already has a search list -;; which does the same job. -#+(and unix (or sbcl clisp)) +;; which does the same job, and CCL sets up a logical-pathname host. +#+(and unix (or sbcl clisp ecl abcl)) (let* ((homestring (or #+sbcl (sb-ext:posix-getenv "HOME") - #+clisp (ext:getenv "HOME") + #+(or clisp ecl abcl) (ext:getenv "HOME") + #+abcl (java:jstatic "getProperty" + "java.lang.System" + "user.home") "/home/mdw")) (home (pathname (concatenate 'string homestring "/")))) (setf (logical-pathname-translations "HOME")