dot/lisp-init.lisp, dot/shell-rc: Support CCL and ABCL as Lisp systems.

diff --git a/Makefile b/Makefile
index 222d6ced1da35f0c2fa34cd7d444c674f7c3fa21..ac8fa4d34f55de3f0b82843fa17a3fd91861d54f 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -205,11 +205,14 @@ DOTLINKS          += .vimrc .mg .zile
 DOTLINKS               += .mailrc .signature .muttrc
 
 ## Lisp.
-DOTLINKS               += .cmucl-init.lisp .sbclrc .clisprc.lisp .eclrc
+DOTLINKS               += .cmucl-init.lisp .sbclrc .clisprc.lisp
+DOTLINKS               += .eclrc .ccl-init.lisp .abclrc
 .cmucl-init.lisp_SRC    = lisp-init.lisp
 .sbclrc_SRC             = lisp-init.lisp
 .clisprc.lisp_SRC       = lisp-init.lisp
 .eclrc_SRC              = lisp-init.lisp
+.ccl-init.lisp_SRC      = lisp-init.lisp
+.abclrc_SRC             = lisp-init.lisp
 DOTLINKS               += .swank.lisp
 
 ## IPython.

diff --git a/dot/lisp-init.lisp b/dot/lisp-init.lisp
index 54df25f65a80c85edab9850e2df808ff073d1602..0447d1ec509ba3c5e5b233347f6c59419babe182 100644 (file)
--- a/dot/lisp-init.lisp
+++ b/dot/lisp-init.lisp
@@ -31,22 +31,30 @@ (let ((old-output *standard-output*)
                                       si:*tpl-prompt-hook* old-prompt)
                                 (si::tpl-prompt)))))
 
+#+ccl
+(setf ccl::*inhibit-greeting* t)
+
 ;; 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 ecl))
+;; 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")
-                      #+(or clisp ecl) (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")

diff --git a/dot/shell-rc b/dot/shell-rc
index ea4f575b0ca8cf62a928bfa781e69c5ec7e54fc1..3d8221f1b4316ccfa67defa524d48eb988ef604f 100644 (file)
--- a/dot/shell-rc
+++ b/dot/shell-rc
@@ -226,6 +226,10 @@ alias clisp="clisp -q -q"
 alias cmucl="rlwrap cmucl -quiet"
 alias ecl="rlwrap ecl"
 alias sbcl="rlwrap sbcl --noinform"
+alias ccl="rlwrap ccl"
+alias ccl32="rlwrap ccl32"
+alias ccl64="rlwrap ccl64"
+alias abcl="rlwrap abcl --noinform"
 
 ###--------------------------------------------------------------------------
 ### Colour output.