Commit 37843f6b authored by Antoine Martin's avatar Antoine Martin
Browse files

Revert "Add logging during build of quicklisp releases"

This reverts commit 6f75a317.
parent 9034b4eb
......@@ -3,18 +3,12 @@
(ql:quickload "quickref")
(ql:quickload "net.didierverna.declt")
(defun log-condition (c)
(with-open-file (file (quickref::from-homedir
(format nil "declt-logfiles/~A.log"
cl-user::*qlmapper-object-name*))
:direction :output
:if-does-not-exist :create)
(format file "~A~%" c)))
(let ((primary-system
(quickref:get-primary-system-name cl-user::*qlmapper-object-name*)))
(quickref:get-primary-system-name cl-user::*qlmapper-object-name*)))
;; #### TODO: encapsulate this into an error catching form.
(format t "STARTED BUILDING PACKAGE ~A~%" primary-system)
(handler-case (net.didierverna.declt:declt primary-system
:library cl-user::*qlmapper-object-name*)
(error (c) (log-condition c)))
(ql:quickload primary-system)
;; #### TODO: See about providing more information to the DECLT call.
(net.didierverna.declt:declt primary-system
:library cl-user::*qlmapper-object-name*)
(format t "FINISHED BUILDING PACKAGE ~A~%" primary-system))
Supports Markdown
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