1.1--- a/tools/prepare-image.lisp	Thu Jun 15 21:42:39 2023 -0400
     1.2+++ b/tools/prepare-image.lisp	Thu Jun 15 22:01:40 2023 -0400
     1.3@@ -4,9 +4,9 @@
     1.4 #+sbcl
     1.5 (require 'sb-introspect)
     1.6 
     1.7-(when (probe-file "scripts/asdf.lisp")
     1.8+(when (probe-file "tools/asdf.lisp")
     1.9   (format t "Compiling asdf..~%")
    1.10-  (let ((output (compile-file "scripts/asdf.lisp" :verbose nil :print nil)))
    1.11+  (let ((output (compile-file "tools/asdf.lisp" :verbose nil :print nil)))
    1.12     (load output))
    1.13   (provide "asdf"))
    1.14 
    1.15@@ -108,6 +108,7 @@
    1.16 #+nil
    1.17 (ql:update-all-dists :prompt nil)
    1.18 
    1.19+;; is the package name already loaded as a feature? uhh look it up
    1.20 (pushnew :demo *features*)
    1.21 
    1.22 (defun update-project-directories (cwd)