1.1--- a/tools/build-image.lisp	Fri Dec 29 00:45:44 2023 -0500
     1.2+++ b/tools/build-image.lisp	Thu Apr 11 18:58:35 2024 -0400
     1.3@@ -8,10 +8,6 @@
     1.4 (defun image-load-hook ()
     1.5   ;; On MacOS, the TMPDIR variable can change between sessions.
     1.6   (uiop:setup-temporary-directory)
     1.7-
     1.8-  #-sbcl
     1.9-  (log4cl::init-hook)
    1.10-
    1.11   ;; If we used this image to deliver another image, we don't
    1.12   ;; want to load the same hook twice
    1.13   (unless *hook-loaded-p*
    1.14@@ -20,32 +16,13 @@
    1.15 
    1.16 (compile 'image-load-hook)
    1.17 
    1.18-#+sbcl
    1.19 (pushnew 'image-load-hook sb-ext:*init-hooks*)
    1.20 
    1.21 (format t "Got command line arguments: ~S" (uiop:raw-command-line-arguments))
    1.22 
    1.23-#-sbcl
    1.24-(log4cl::save-hook)
    1.25-
    1.26-#+sbcl
    1.27 (sb-ext:save-lisp-and-die
    1.28  (namestring
    1.29   (make-pathname
    1.30    #+win32 :type #+win32 "exe"
    1.31    :defaults #P"build/sbcl-console"))
    1.32  :executable t)
    1.33-
    1.34-#+ccl
    1.35-(defun ccl-toplevel-function ()
    1.36-  (image-load-hook)
    1.37-  (let ((file (cadr ccl:*command-line-argument-list*)))
    1.38-    (if file
    1.39-     (load file :verbose t)
    1.40-     (loop
    1.41-           (print (eval (read)))))))
    1.42-
    1.43-
    1.44-#+ccl
    1.45-(ccl:save-application "build/ccl-console"
    1.46-                      :toplevel-function 'ccl-toplevel-function)