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