diff --git a/src/org/armedbear/lisp/compile-system.lisp b/src/org/armedbear/lisp/compile-system.lisp index 234e815bc9723b0bd7daa55c15d5d7069ad8fff4..654821a4d9baec61888a8c19be375a444741fd7e 100644 --- a/src/org/armedbear/lisp/compile-system.lisp +++ b/src/org/armedbear/lisp/compile-system.lisp @@ -85,11 +85,9 @@ (unless output-path (setf output-path *default-pathname-defaults*)) (flet ((do-compile (file) - (print file) - (print output-path) (let ((out (make-pathname :type "abcl" - :defaults (print (merge-pathnames - file output-path))))) + :defaults (merge-pathnames + file output-path)))) (compile-file-if-needed file :output-file out)))) (load (do-compile "coerce.lisp")) (load (do-compile "open.lisp"))