Revert "Add logging during build of quicklisp releases"

This reverts commit 6f75a317.

map-declt.lisp

@@ -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))