Renamed system back to com.informatimago.common-lisp.virtual-file-system; some more renaming.

Pascal J. Bourguignon [2013-03-15 22:43]
Renamed system back to com.informatimago.common-lisp.virtual-file-system; some more renaming.
Filename
com.informatimago.common-lisp.virtual-file-system.asd
com.informatimago.vfs.asd
packages.lisp
streams.lisp
vfs-packages.lisp
diff --git a/com.informatimago.common-lisp.virtual-file-system.asd b/com.informatimago.common-lisp.virtual-file-system.asd
new file mode 100644
index 0000000..7bcb89f
--- /dev/null
+++ b/com.informatimago.common-lisp.virtual-file-system.asd
@@ -0,0 +1,43 @@
+;;;; -*- mode:lisp; coding:utf-8 -*-
+
+(asdf:defsystem :com.informatimago.common-lisp.virtual-file-system
+    :name "Virtual File System"
+    :description  "Implements a RAM-based Virtual File System."
+    :author "<PJB> Pascal Bourguignon <pjb@informatimago.com>"
+    :version "0.0.4"
+    :licence "GPL"
+    :properties ((#:author-email                   . "pjb@informatimago.com")
+                 (#:date                           . "Spring 2011")
+                 ((#:albert #:output-dir)          . "../documentation/com.informatimago.vfs/")
+                 ((#:albert #:formats)             . ("docbook"))
+                 ((#:albert #:docbook #:template)  . "book")
+                 ((#:albert #:docbook #:bgcolor)   . "white")
+                 ((#:albert #:docbook #:textcolor) . "black"))
+    :depends-on (:split-sequence
+                 :cl-ppcre
+                 :com.informatimago.common-lisp.cesarum)
+    :components ((:file "packages")
+                 (:file "utility"              :depends-on ("packages"))
+                 (:file "filenames"            :depends-on ("utility"))
+                 (:file "streams"              :depends-on ("utility"))
+
+                 (:file "virtual-fs"           :depends-on ("filenames"))
+                 (:file "files"                :depends-on ("streams" "filenames" "virtual-fs"))
+                 (:file "vfs-file-stream"      :depends-on ("streams" "filenames" "virtual-fs"))
+
+                 (:file "string-input"         :depends-on ("streams" "filenames"))
+                 (:file "string-output"        :depends-on ("streams" "filenames"))
+                 (:file "concatenated-stream"  :depends-on ("streams" "filenames"))
+                 (:file "broadcast-stream"     :depends-on ("streams" "filenames"))
+                 (:file "synonym-stream"       :depends-on ("streams" "filenames"))
+                 (:file "two-way-stream"       :depends-on ("streams" "filenames"))
+                 (:file "echo-stream"          :depends-on ("streams" "filenames"))
+                 (:file "standard-streams"     :depends-on ("string-input" "string-output" "two-way-stream"))
+                 (:file "cl-stream"            :depends-on ("standard-streams"))
+                 (:file "general"              :depends-on ("streams" "filenames" "files"))
+                 ;; ---
+                 (:file "initialize"           :depends-on ("cl-stream" "virtual-fs"))
+                 ))
+
+
+;;;; THE END ;;;;
diff --git a/com.informatimago.vfs.asd b/com.informatimago.vfs.asd
deleted file mode 100644
index 28d70a1..0000000
--- a/com.informatimago.vfs.asd
+++ /dev/null
@@ -1,43 +0,0 @@
-;;;; -*- mode:lisp; coding:utf-8 -*-
-
-(asdf:defsystem :com.informatimago.vfs
-    :name "Virtual File System"
-    :description  "Implements a RAM-based Virtual File System."
-    :author "<PJB> Pascal Bourguignon <pjb@informatimago.com>"
-    :version "0.0.4"
-    :licence "GPL"
-    :properties ((#:author-email                   . "pjb@informatimago.com")
-                 (#:date                           . "Spring 2011")
-                 ((#:albert #:output-dir)          . "../documentation/com.informatimago.vfs/")
-                 ((#:albert #:formats)             . ("docbook"))
-                 ((#:albert #:docbook #:template)  . "book")
-                 ((#:albert #:docbook #:bgcolor)   . "white")
-                 ((#:albert #:docbook #:textcolor) . "black"))
-    :depends-on (:split-sequence
-                 :cl-ppcre
-                 :com.informatimago.common-lisp.cesarum)
-    :components ((:file "vfs-packages")
-                 (:file "utility"              :depends-on ("vfs-packages"))
-                 (:file "filenames"            :depends-on ("utility"))
-                 (:file "streams"              :depends-on ("utility"))
-
-                 (:file "virtual-fs"           :depends-on ("filenames"))
-                 (:file "files"                :depends-on ("streams" "filenames" "virtual-fs"))
-                 (:file "vfs-file-stream"      :depends-on ("streams" "filenames" "virtual-fs"))
-
-                 (:file "string-input"         :depends-on ("streams" "filenames"))
-                 (:file "string-output"        :depends-on ("streams" "filenames"))
-                 (:file "concatenated-stream"  :depends-on ("streams" "filenames"))
-                 (:file "broadcast-stream"     :depends-on ("streams" "filenames"))
-                 (:file "synonym-stream"       :depends-on ("streams" "filenames"))
-                 (:file "two-way-stream"       :depends-on ("streams" "filenames"))
-                 (:file "echo-stream"          :depends-on ("streams" "filenames"))
-                 (:file "standard-streams"     :depends-on ("string-input" "string-output" "two-way-stream"))
-                 (:file "cl-stream"            :depends-on ("standard-streams"))
-                 (:file "general"              :depends-on ("streams" "filenames" "files"))
-                 ;; ---
-                 (:file "initialize"           :depends-on ("cl-stream" "virtual-fs"))
-                 ))
-
-
-;;;; THE END ;;;;
diff --git a/packages.lisp b/packages.lisp
new file mode 100644
index 0000000..fefa3a3
--- /dev/null
+++ b/packages.lisp
@@ -0,0 +1,103 @@
+;;;; -*- mode:lisp;coding:utf-8 -*-
+;;;;**************************************************************************
+;;;;FILE:               vfs-packages.lisp
+;;;;LANGUAGE:           Common-Lisp
+;;;;SYSTEM:             Common-Lisp
+;;;;USER-INTERFACE:     NONE
+;;;;DESCRIPTION
+;;;;
+;;;;    Defines the vfs packages.
+;;;;
+;;;;AUTHORS
+;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
+;;;;MODIFICATIONS
+;;;;    2011-05-22 <PJB> Created.
+;;;;BUGS
+;;;;LEGAL
+;;;;    GPL
+;;;;
+;;;;    Copyright Pascal J. Bourguignon 2011 - 2011
+;;;;
+;;;;    This program is free software; you can redistribute it and/or
+;;;;    modify it under the terms of the GNU General Public License
+;;;;    as published by the Free Software Foundation; either version
+;;;;    2 of the License, or (at your option) any later version.
+;;;;
+;;;;    This program is distributed in the hope that it will be
+;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
+;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+;;;;    PURPOSE.  See the GNU General Public License for more details.
+;;;;
+;;;;    You should have received a copy of the GNU General Public
+;;;;    License along with this program; if not, write to the Free
+;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
+;;;;    Boston, MA 02111-1307 USA
+;;;;**************************************************************************
+
+(in-package "COMMON-LISP-USER")
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defparameter *redefined-symbols*
+    '(
+      ;; 19. Filenames
+      "PATHNAME" "LOGICAL-PATHNAME"
+      "PATHNAME-HOST" "PATHNAME-DEVICE" "PATHNAME-DIRECTORY"
+      "PATHNAME-NAME" "PATHNAME-TYPE" "PATHNAME-VERSION"
+      "MAKE-PATHNAME" "PATHNAMEP" "LOGICAL-PATHNAME-TRANSLATIONS"
+      "LOAD-LOGICAL-PATHNAME-TRANSLATIONS" "LOGICAL-PATHNAME"
+      "*DEFAULT-PATHNAME-DEFAULTS*" "PARSE-NAMESTRING"
+      "WILD-PATHNAME-P" "PATHNAME-MATCH-P"
+      "TRANSLATE-LOGICAL-PATHNAME" "TRANSLATE-PATHNAME" "MERGE-PATHNAMES"
+      "NAMESTRING" "FILE-NAMESTRING" "DIRECTORY-NAMESTRING" "HOST-NAMESTRING" "ENOUGH-NAMESTRING"
+      ;; 20. Files
+      "DIRECTORY" "PROBE-FILE" "ENSURE-DIRECTORIES-EXIST" "TRUENAME"
+      "FILE-AUTHOR" "FILE-WRITE-DATE" "RENAME-FILE" "DELETE-FILE"
+      ;; 21. Streams.
+      "STREAM" "BROADCAST-STREAM" "CONCATENATED-STREAM" "ECHO-STREAM" "FILE-STREAM"
+      "STRING-STREAM" "SYNONYM-STREAM" "TWO-WAY-STREAM"
+      "INPUT-STREAM-P" "OUTPUT-STREAM-P" "INTERACTIVE-STREAM-P"
+      "OPEN-STREAM-P" "STREAM-ELEMENT-TYPE" "STREAMP" "READ-BYTE"
+      "WRITE-BYTE" "PEEK-CHAR" "READ-CHAR" "READ-CHAR-NO-HANG" "TERPRI"
+      "FRESH-LINE" "UNREAD-CHAR" "WRITE-CHAR" "READ-LINE" "WRITE-STRING"
+      "WRITE-LINE" "READ-SEQUENCE" "WRITE-SEQUENCE" "FILE-LENGTH"
+      "FILE-POSITION" "FILE-STRING-LENGTH" "OPEN" "STREAM-EXTERNAL-FORMAT"
+      "WITH-OPEN-FILE" "CLOSE" "WITH-OPEN-STREAM" "LISTEN" "CLEAR-INPUT"
+      "FINISH-OUTPUT" "FORCE-OUTPUT" "CLEAR-OUTPUT" "Y-OR-N-P" "YES-OR-NO-P"
+      "MAKE-SYNONYM-STREAM" "SYNONYM-STREAM-SYMBOL"
+      "BROADCAST-STREAM-STREAMS" "MAKE-BROADCAST-STREAM"
+      "MAKE-TWO-WAY-STREAM" "TWO-WAY-STREAM-INPUT-STREAM"
+      "TWO-WAY-STREAM-OUTPUT-STREAM" "ECHO-STREAM-INPUT-STREAM"
+      "ECHO-STREAM-OUTPUT-STREAM" "MAKE-ECHO-STREAM"
+      "CONCATENATED-STREAM-STREAMS" "MAKE-CONCATENATED-STREAM"
+      "GET-OUTPUT-STREAM-STRING" "MAKE-STRING-INPUT-STREAM"
+      "MAKE-STRING-OUTPUT-STREAM" "WITH-INPUT-FROM-STRING"
+      "WITH-OUTPUT-TO-STRING" "*DEBUG-IO*" "*ERROR-OUTPUT*" "*QUERY-IO*"
+      "*STANDARD-INPUT*" "*STANDARD-OUTPUT*" "*TRACE-OUTPUT*"
+      "*TERMINAL-IO*" "STREAM-ERROR-STREAM"
+      ;; 3. Evaluation and Compilation
+      "TYPE")))
+
+(defpackage "COM.INFORMATIMAGO.COMMON-LISP.VIRTUAL-FILE-SYSTEM"
+  (:nicknames "VFS" "VIRTUAL-FILE-SYSTEM")
+  (:use "COMMON-LISP"
+        "SPLIT-SEQUENCE"
+        "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY"
+        "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.ARRAY"
+        "COM.INFORMATIMAGO.COMMON-LISP.LISP-SEXP.SOURCE-FORM")
+  (:shadow . #.*redefined-symbols*)
+  (:export "INSTALL-PATHNAME-READER-MACRO" "RESET-READTABLE"
+           "DELETE-DIRECTORY"
+           "FILE-ELEMENT-TYPE"
+           "PURGE-FILE" "DELETE-VERSION"
+           . #.*redefined-symbols*))
+
+(defpackage "COM.INFORMATIMAGO.COMMON-LISP.VIRTUAL-FILE-SYSTEM-USER"
+  (:nicknames "VFS-USER" "VIRTUAL-FILE-SYSTEM-USER")
+  (:use "COMMON-LISP"
+        "COM.INFORMATIMAGO.COMMON-LISP.VIRTUAL-FILE-SYSTEM")
+  (:shadowing-import-from
+   "COM.INFORMATIMAGO.COMMON-LISP.VIRTUAL-FILE-SYSTEM"
+   . #.*redefined-symbols*))
+
+
+;;;; THE END ;;;;
diff --git a/streams.lisp b/streams.lisp
index 8143bdb..5a8c752 100644
--- a/streams.lisp
+++ b/streams.lisp
@@ -163,7 +163,7 @@
     ((nil)     direction)
     (otherwise stream)))

-(defun raise-type-error (object type)
+(defun signal-type-error (object type)
   (error (make-condition 'type-error :datum object :expected-type type)))


@@ -278,7 +278,7 @@ DO:     Specifies the name and parameter list of methods.
                  ))
        ,@(when check-stream-type
                `((defmethod ,m-name ,(make-method-lambda-list lambda-list stream-name 't)
-                   (raise-type-error ,stream-name ',check-stream-type))))
+                   (signal-type-error ,stream-name ',check-stream-type))))
        ,@(mapcar
           (lambda (method)
             (when (and (listp method) (eq :method (car method)))
diff --git a/vfs-packages.lisp b/vfs-packages.lisp
deleted file mode 100644
index fefa3a3..0000000
--- a/vfs-packages.lisp
+++ /dev/null
@@ -1,103 +0,0 @@
-;;;; -*- mode:lisp;coding:utf-8 -*-
-;;;;**************************************************************************
-;;;;FILE:               vfs-packages.lisp
-;;;;LANGUAGE:           Common-Lisp
-;;;;SYSTEM:             Common-Lisp
-;;;;USER-INTERFACE:     NONE
-;;;;DESCRIPTION
-;;;;
-;;;;    Defines the vfs packages.
-;;;;
-;;;;AUTHORS
-;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
-;;;;MODIFICATIONS
-;;;;    2011-05-22 <PJB> Created.
-;;;;BUGS
-;;;;LEGAL
-;;;;    GPL
-;;;;
-;;;;    Copyright Pascal J. Bourguignon 2011 - 2011
-;;;;
-;;;;    This program is free software; you can redistribute it and/or
-;;;;    modify it under the terms of the GNU General Public License
-;;;;    as published by the Free Software Foundation; either version
-;;;;    2 of the License, or (at your option) any later version.
-;;;;
-;;;;    This program is distributed in the hope that it will be
-;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
-;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
-;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
-;;;;    You should have received a copy of the GNU General Public
-;;;;    License along with this program; if not, write to the Free
-;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
-;;;;    Boston, MA 02111-1307 USA
-;;;;**************************************************************************
-
-(in-package "COMMON-LISP-USER")
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (defparameter *redefined-symbols*
-    '(
-      ;; 19. Filenames
-      "PATHNAME" "LOGICAL-PATHNAME"
-      "PATHNAME-HOST" "PATHNAME-DEVICE" "PATHNAME-DIRECTORY"
-      "PATHNAME-NAME" "PATHNAME-TYPE" "PATHNAME-VERSION"
-      "MAKE-PATHNAME" "PATHNAMEP" "LOGICAL-PATHNAME-TRANSLATIONS"
-      "LOAD-LOGICAL-PATHNAME-TRANSLATIONS" "LOGICAL-PATHNAME"
-      "*DEFAULT-PATHNAME-DEFAULTS*" "PARSE-NAMESTRING"
-      "WILD-PATHNAME-P" "PATHNAME-MATCH-P"
-      "TRANSLATE-LOGICAL-PATHNAME" "TRANSLATE-PATHNAME" "MERGE-PATHNAMES"
-      "NAMESTRING" "FILE-NAMESTRING" "DIRECTORY-NAMESTRING" "HOST-NAMESTRING" "ENOUGH-NAMESTRING"
-      ;; 20. Files
-      "DIRECTORY" "PROBE-FILE" "ENSURE-DIRECTORIES-EXIST" "TRUENAME"
-      "FILE-AUTHOR" "FILE-WRITE-DATE" "RENAME-FILE" "DELETE-FILE"
-      ;; 21. Streams.
-      "STREAM" "BROADCAST-STREAM" "CONCATENATED-STREAM" "ECHO-STREAM" "FILE-STREAM"
-      "STRING-STREAM" "SYNONYM-STREAM" "TWO-WAY-STREAM"
-      "INPUT-STREAM-P" "OUTPUT-STREAM-P" "INTERACTIVE-STREAM-P"
-      "OPEN-STREAM-P" "STREAM-ELEMENT-TYPE" "STREAMP" "READ-BYTE"
-      "WRITE-BYTE" "PEEK-CHAR" "READ-CHAR" "READ-CHAR-NO-HANG" "TERPRI"
-      "FRESH-LINE" "UNREAD-CHAR" "WRITE-CHAR" "READ-LINE" "WRITE-STRING"
-      "WRITE-LINE" "READ-SEQUENCE" "WRITE-SEQUENCE" "FILE-LENGTH"
-      "FILE-POSITION" "FILE-STRING-LENGTH" "OPEN" "STREAM-EXTERNAL-FORMAT"
-      "WITH-OPEN-FILE" "CLOSE" "WITH-OPEN-STREAM" "LISTEN" "CLEAR-INPUT"
-      "FINISH-OUTPUT" "FORCE-OUTPUT" "CLEAR-OUTPUT" "Y-OR-N-P" "YES-OR-NO-P"
-      "MAKE-SYNONYM-STREAM" "SYNONYM-STREAM-SYMBOL"
-      "BROADCAST-STREAM-STREAMS" "MAKE-BROADCAST-STREAM"
-      "MAKE-TWO-WAY-STREAM" "TWO-WAY-STREAM-INPUT-STREAM"
-      "TWO-WAY-STREAM-OUTPUT-STREAM" "ECHO-STREAM-INPUT-STREAM"
-      "ECHO-STREAM-OUTPUT-STREAM" "MAKE-ECHO-STREAM"
-      "CONCATENATED-STREAM-STREAMS" "MAKE-CONCATENATED-STREAM"
-      "GET-OUTPUT-STREAM-STRING" "MAKE-STRING-INPUT-STREAM"
-      "MAKE-STRING-OUTPUT-STREAM" "WITH-INPUT-FROM-STRING"
-      "WITH-OUTPUT-TO-STRING" "*DEBUG-IO*" "*ERROR-OUTPUT*" "*QUERY-IO*"
-      "*STANDARD-INPUT*" "*STANDARD-OUTPUT*" "*TRACE-OUTPUT*"
-      "*TERMINAL-IO*" "STREAM-ERROR-STREAM"
-      ;; 3. Evaluation and Compilation
-      "TYPE")))
-
-(defpackage "COM.INFORMATIMAGO.COMMON-LISP.VIRTUAL-FILE-SYSTEM"
-  (:nicknames "VFS" "VIRTUAL-FILE-SYSTEM")
-  (:use "COMMON-LISP"
-        "SPLIT-SEQUENCE"
-        "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY"
-        "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.ARRAY"
-        "COM.INFORMATIMAGO.COMMON-LISP.LISP-SEXP.SOURCE-FORM")
-  (:shadow . #.*redefined-symbols*)
-  (:export "INSTALL-PATHNAME-READER-MACRO" "RESET-READTABLE"
-           "DELETE-DIRECTORY"
-           "FILE-ELEMENT-TYPE"
-           "PURGE-FILE" "DELETE-VERSION"
-           . #.*redefined-symbols*))
-
-(defpackage "COM.INFORMATIMAGO.COMMON-LISP.VIRTUAL-FILE-SYSTEM-USER"
-  (:nicknames "VFS-USER" "VIRTUAL-FILE-SYSTEM-USER")
-  (:use "COMMON-LISP"
-        "COM.INFORMATIMAGO.COMMON-LISP.VIRTUAL-FILE-SYSTEM")
-  (:shadowing-import-from
-   "COM.INFORMATIMAGO.COMMON-LISP.VIRTUAL-FILE-SYSTEM"
-   . #.*redefined-symbols*))
-
-
-;;;; THE END ;;;;
ViewGit