Remove accidentally committed debug PRINT forms.

parent 44556732
...@@ -85,11 +85,9 @@ ...@@ -85,11 +85,9 @@
(unless output-path (unless output-path
(setf output-path *default-pathname-defaults*)) (setf output-path *default-pathname-defaults*))
(flet ((do-compile (file) (flet ((do-compile (file)
(print file)
(print output-path)
(let ((out (make-pathname :type "abcl" (let ((out (make-pathname :type "abcl"
:defaults (print (merge-pathnames :defaults (merge-pathnames
file output-path))))) file output-path))))
(compile-file-if-needed file :output-file out)))) (compile-file-if-needed file :output-file out))))
(load (do-compile "coerce.lisp")) (load (do-compile "coerce.lisp"))
(load (do-compile "open.lisp")) (load (do-compile "open.lisp"))
......
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