Make ASDF noisier with KILN_DEBUG set

ruricolist · Dec 14, 2024 · bbafda5 · bbafda5
1 parent 815a61f
commit bbafda5
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/system.lisp b/system.lisp
@@ -14,7 +14,11 @@
         (lambda (system &rest args)
           (apply fn system :silent silent args)))
       (if (not silent)
-          #'asdf:load-system
+          (lambda (system &rest args)
+            (multiple-value-call #'asdf:load-system
+              system
+              (values-list args)
+              :verbose t))
           (lambda (system &rest args)
             (let ((*standard-output* (make-broadcast-stream))
                   (*error-output* (make-broadcast-stream)))