Adjust Bob so we can use quickload the project to get all dependencies

2025-02-14 20:39:00 +00:00
parent fba391a6e8
commit d328bfbbdf
2 changed files with 9 additions and 5 deletions
--- a/bob.lisp
+++ b/bob.lisp
@@ -18,16 +18,18 @@

 ;;; Code:

+(pushnew (truename (uiop:getcwd))
+         ql:*local-project-directories*)
+
 (defpackage bob
  (:use :cl)
  (:export :build :load-all))

 (in-package :bob)

-(asdf:load-asd (merge-pathnames "cantedraw.asd" (uiop:getcwd)))
+(defun load-all ()
+  (ql:quickload :cantedraw :verbose t))

 (defun build ()
+  (load-all)
  (asdf:make :cantedraw))
-
-(defun load-all ()
-  (asdf:load-system :cantedraw))