[flexi-streams-cvs] r37 - branches/edi/test

[eweitz at common-lisp.net]

Author: eweitz
Date: Tue May 20 08:56:10 2008
New Revision: 37

Modified:
   branches/edi/test/test.lisp
Log:
Remove debugging stuff


Modified: branches/edi/test/test.lisp
==============================================================================
--- branches/edi/test/test.lisp	(original)
+++ branches/edi/test/test.lisp	Tue May 20 08:56:10 2008
@@ -532,11 +532,9 @@
          (no-tests (* 8 (length compare-files-args-list))))
     #+:lispworks
     (setq no-tests (* 2 no-tests))
-    #+(or)
     (dolist (*copy-function* '(copy-stream copy-stream*))
       (dolist (args compare-files-args-list)
         (apply 'compare-files args)))
-    #+(or)
     (let ((string-test-args-list (loop for (file-name symbols) in *test-files*
                                        nconc (create-test-combinations file-name symbols t))))
       (incf no-tests (length string-test-args-list))