[armedbear-cvs] r12949 - trunk/abcl/test/lisp/abcl

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Oct  4 02:59:23 2010
New Revision: 12949

Log:
Remove debug print.


Modified:
   trunk/abcl/test/lisp/abcl/jar-pathname.lisp

Modified: trunk/abcl/test/lisp/abcl/jar-pathname.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/jar-pathname.lisp	(original)
+++ trunk/abcl/test/lisp/abcl/jar-pathname.lisp	Mon Oct  4 02:59:23 2010
@@ -57,9 +57,9 @@
       (cl-fad-copy-file (merge-pathnames "eek.lisp")
                  (merge-pathnames "eek.lisp" sub))
       (sys:zip (merge-pathnames "baz.jar")
-               (print (append
-                       (directory (merge-pathnames "*" dir))
-                       (directory (merge-pathnames "*" sub))))
+               (append
+                (directory (merge-pathnames "*" dir))
+                (directory (merge-pathnames "*" sub)))
                dir)
       (delete-directory-and-files dir)))
   (setf *jar-file-init* t))