Plaster

(defun logging-load (system) (trace load) (with-open-file (out (format nil "load-~(~a~)-log.txt" system) :direction :output) (let ((*trace-output* out)) (asdf:load-system system :force t))) (untrace load))