Commit 4a120b68 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Hush ql:quickload, as per recommendation by Xach, using make-broadcast-stream.

parent d682a656
......@@ -13,9 +13,11 @@
;;; ASDF3 is loaded, now use it!
(eval-when (:compile-toplevel :load-toplevel :execute)
#-quicklisp (asdf:load-system :asdf-tools :verbose nil)
#+quicklisp (ql:quickload :asdf-tools :verbose nil :explain nil :prompt nil))
(asdf:load-system :asdf-tools :verbose nil)
(let ((*standard-output* (make-broadcast-stream)))
(ql:quickload :asdf-tools)))
;;; Actually run the stuff!
(uiop:restore-image :entry-point 'asdf-tools::entry-point)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment