diff -r 8259376eee11 -r 1ef551e24009 tools/build-image.lisp
--- a/tools/build-image.lisp	Fri Dec 29 00:45:44 2023 -0500
+++ b/tools/build-image.lisp	Thu Apr 11 18:58:35 2024 -0400
@@ -8,10 +8,6 @@
 (defun image-load-hook ()
   ;; On MacOS, the TMPDIR variable can change between sessions.
   (uiop:setup-temporary-directory)
-
-  #-sbcl
-  (log4cl::init-hook)
-
   ;; If we used this image to deliver another image, we don't
   ;; want to load the same hook twice
   (unless *hook-loaded-p*
@@ -20,32 +16,13 @@
 
 (compile 'image-load-hook)
 
-#+sbcl
 (pushnew 'image-load-hook sb-ext:*init-hooks*)
 
 (format t "Got command line arguments: ~S" (uiop:raw-command-line-arguments))
 
-#-sbcl
-(log4cl::save-hook)
-
-#+sbcl
 (sb-ext:save-lisp-and-die
  (namestring
   (make-pathname
    #+win32 :type #+win32 "exe"
    :defaults #P"build/sbcl-console"))
  :executable t)
-
-#+ccl
-(defun ccl-toplevel-function ()
-  (image-load-hook)
-  (let ((file (cadr ccl:*command-line-argument-list*)))
-    (if file
-     (load file :verbose t)
-     (loop
-           (print (eval (read)))))))
-
-
-#+ccl
-(ccl:save-application "build/ccl-console"
-                      :toplevel-function 'ccl-toplevel-function)