From: Yaroslav K. <kav...@je...> - 2008-02-04 08:23:44
|
Sam Steingold wrote: > please investigate: > $ clisp -K full -q -norc Reserved address range 0x19d90000-0x5fffffff . STACK depth: 98222 [0x143ff40 0x13e0088] SP depth: 515968 [1]> (ext:make-directory "foo/") T [2]> (defparameter *dir* (directory "foo/" :full t)) *DIR* [3]> (cdr *dir*) NIL [4]> (length (car *dir*)) 4 [5]> (equal (caar *dir*) (cadar *dir*)) NIL [6]> (equal (caar *dir*) (car (directory "foo/"))) NIL [7]> (ext:rename-directory "foo/" "bar/") T [8]> (equal (cddar (directory "bar/" :full t)) (cddar *dir*)) T [9]> (directory "foo/") NIL [10]> (ext:delete-directory "bar/") T [11]> (directory "bar/" :full t) NIL [12]> and result of mod-check: finished 4 files: 8 errors out of 412 tests 1 i18n\test.tst: 0 errors out of 10 tests 2 syscalls\test.tst: 1 error out of 64 tests 3 regexp\test.tst: 7 errors out of 308 tests 4 readline\test.tst: 0 errors out of 30 tests Bye. make: *** [base-mod-check] Error 1 -- WBR, Yaroslav Kavenchuk. |