[bknr-cvs] ksprotte changed trunk/

[BKNR Commits]

Revision: 3773
Author: ksprotte
URL: http://bknr.net/trac/changeset/3773

once again STYLE-WARNING fixes
U   trunk/projects/bos/m2/map.lisp
U   trunk/thirdparty/unit-test/unit-test.lisp

Modified: trunk/projects/bos/m2/map.lisp
===================================================================
--- trunk/projects/bos/m2/map.lisp	2008-09-02 15:05:46 UTC (rev 3772)
+++ trunk/projects/bos/m2/map.lisp	2008-09-02 15:50:01 UTC (rev 3773)
@@ -232,11 +232,11 @@
 
 (defun import-tiles (directory)
   (bknr.datastore::without-sync ()
-    (dolist (px (directory directory :all nil))
+    (dolist (px (directory directory #+nil :all #+nil nil)) ; was :ALL NIL used on cmucl?
       (print px)
       (let ((x (parse-integer (car (last (pathname-directory px)))))
             (i 0))
-        (dolist (image-pathname (directory px #+nil :all #+nil nil)) ; was :ALL NIL used on cmucl?
+        (dolist (image-pathname (directory px #+nil :all #+nil nil))
           (handler-case
               (let* ((y (parse-integer (pathname-name image-pathname)))
                      (tile (ensure-original-map-tile x y)))

Modified: trunk/thirdparty/unit-test/unit-test.lisp
===================================================================
--- trunk/thirdparty/unit-test/unit-test.lisp	2008-09-02 15:05:46 UTC (rev 3772)
+++ trunk/thirdparty/unit-test/unit-test.lisp	2008-09-02 15:50:01 UTC (rev 3773)
@@ -134,10 +134,11 @@
   (eq (test-result-status test) :crash))
 
 (defmethod print-object ((result test-result) stream)
-  (format stream "#<TEST-RESULT FORM: ~A STATUS: ~A>"
-	  (test-result-form result)
-	  (test-result-status result)
-	  (test-result-reason result)))
+  (print-unreadable-object (result stream :type t)
+    (format stream "FORM: ~A STATUS: ~A REASON: ~A"
+            (test-result-form result)
+            (test-result-status result)
+            (test-result-reason result))))
 
 (defclass test-assert-result (test-result)
   ())