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) ())