Implemented file streams.

Pascal J. Bourguignon [2012-01-14 13:34]
Implemented file streams.
Filename
virtual-fs-test.lisp
diff --git a/virtual-fs-test.lisp b/virtual-fs-test.lisp
index b8cb8e2..deef760 100644
--- a/virtual-fs-test.lisp
+++ b/virtual-fs-test.lisp
@@ -672,7 +672,7 @@



-(setf (logical-pathname-translations "LISP") nil
-      (logical-pathname-translations "LISP") (list (list #P"LISP:**;*.*.*" #P"HOME:SRC;LISP;**;*.*.*")
+(setf (logical-pathname-translations "LISP") nil)
+(setf (logical-pathname-translations "LISP") (list (list #P"LISP:**;*.*.*" #P"HOME:SRC;LISP;**;*.*.*")
                                                    (list #P"LISP:**;*.*"   #P"HOME:SRC;LISP;**;*.*")
                                                    (list #P"LISP:**;*"     #P"HOME:SRC;LISP;**;*")))
ViewGit