1 (defparameter *cwd* (asdf:system-source-directory :demo)) 2 (load (merge-pathnames "tools/build-image.lisp" *cwd*))