[bknr-cvs] ksprotte changed trunk/projects/bos/m2/map.lisp

[BKNR Commits]

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

better to partly revert last commit
U   trunk/projects/bos/m2/map.lisp

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