[armedbear-cvs] r11677 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Feb 21 21:53:38 2009
New Revision: 11677

Log:
Remove accidentally committed debug PRINT forms.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compile-system.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compile-system.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-system.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compile-system.lisp	Sat Feb 21 21:53:38 2009
@@ -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"))