From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 10 Jul 2020 19:38:02 +0000 (+0100)
Subject: dot/lisp-init.lisp, dot/shell-rc: Support CCL and ABCL as Lisp systems.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/6a8c807005db0dbb885cdc1f91c62897fff361e2

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

diff --git a/Makefile b/Makefile
index 222d6ce..ac8fa4d 100644
--- 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 54df25f..0447d1e 100644
--- 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 ea4f575..3d8221f 100644
--- 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.