Changeset 3774

Show
Ignore:
Timestamp:
09/02/08 17:59:30 (3 months ago)
Author:
ksprotte
Message:

better to partly revert last commit

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/m2/map.lisp

    r3773 r3774  
    233233(defun import-tiles (directory) 
    234234  (bknr.datastore::without-sync () 
    235     (dolist (px (directory directory #+nil :all #+nil nil)) ; was :ALL NIL used on cmucl? 
     235    (dolist (px (directory directory :all nil)) 
    236236      (print px) 
    237237      (let ((x (parse-integer (car (last (pathname-directory px))))) 
    238238            (i 0)) 
    239         (dolist (image-pathname (directory px #+nil :all #+nil nil)) 
     239        (dolist (image-pathname (directory px :all nil)) 
    240240          (handler-case 
    241241              (let* ((y (parse-integer (pathname-name image-pathname)))