[osicat-cvs] CVS update: src/make-readme.lisp src/osicat.lisp src/packages.lisp

[Nikodemus Siivola]

Update of /project/osicat/cvsroot/src
In directory common-lisp.net:/tmp/cvs-serv26078

Modified Files:
	make-readme.lisp osicat.lisp packages.lisp 
Log Message:

* Documentation updates.

Date: Sun Apr 25 08:24:12 2004
Author: nsiivola

Index: src/make-readme.lisp
diff -u src/make-readme.lisp:1.1 src/make-readme.lisp:1.2
--- src/make-readme.lisp:1.1	Sun Feb 29 07:44:47 2004
+++ src/make-readme.lisp	Sun Apr 25 08:24:12 2004
@@ -34,9 +34,10 @@
 		    collect (cons (symbol-name sym) doc))))
     (setf syms (sort syms #'string< :key #'car))
     (format t "OSICAT ~A~%~%" osicat:*osicat-version*)
-    (format t "~A~%~%~%" (documentation (find-package :osicat) t))
+    (format t "~A~%~%---~%~%" (documentation (find-package :osicat) t))
+    (format t "Dictionary:~%~%")
     (dolist (cons syms)
       (format t "~& - ~A~%" (string-downcase (car cons))))
-    (format t "~%~%")
+    (format t "~%")
     (dolist (cons syms)
       (format t "---~%~%~A~%~%" (cdr cons)))))


Index: src/osicat.lisp
diff -u src/osicat.lisp:1.23 src/osicat.lisp:1.24
--- src/osicat.lisp:1.23	Sun Apr 25 08:11:31 2004
+++ src/osicat.lisp	Sun Apr 25 08:24:12 2004
@@ -141,14 +141,15 @@
 such that successive invocations of (iterator) return the directory
 entries, one by one. Both files and directories are returned, except
 '.' and '..'. The order of entries is not guaranteed. The entries are
-returned as relative pathnames against the designated
-directory. Entries that are symbolic links are not resolved, but links
-that point to directories are interpreted as directory
-designators. Once all entries have been returned, further invocations
-of (iterator) will all return NIL.
+returned as relative pathnames against the designated directory.
+Entries that are symbolic links are not resolved, but links that point
+to directories are interpreted as directory designators. Once all
+entries have been returned, further invocations of (iterator) will all
+return NIL.
 
 The value returned is the value of the last form evaluated in
-body. Signals an error if pathspec is wild or does not designate a directory."
+body. Signals an error if pathspec is wild or does not designate a
+directory."
   (with-unique-names (one-iter)
     `(call-with-directory-iterator ,pathspec
       (lambda (,one-iter)
@@ -298,6 +299,7 @@
 Signals an error if pathspec is wild, or does not designate a symbolic
 link."
   (handler-bind
+      ;; FIXME: Declare types properly to get rid of this.
       (#+sbcl (sb-ext:compiler-note #'muffle-warning))
     (with-c-file (path (normpath pathspec t) :symbolic-link)
       (do* ((size 64 (* size 2))


Index: src/packages.lisp
diff -u src/packages.lisp:1.9 src/packages.lisp:1.10
--- src/packages.lisp:1.9	Sun Apr 25 07:16:25 2004
+++ src/packages.lisp	Sun Apr 25 08:24:12 2004
@@ -34,8 +34,7 @@
 
   When a relative pathname designator is used as a directory designator
   it is first resolved agains *default-pathname-default*, and then
-  against the current directory. (With MERGE-PATHNAMES in both cases.)
-")
+  against the current directory. (With MERGE-PATHNAMES in both cases.)")
   (:shadow
    ;; DIRECTORY is used as constant internally. Let's not confuse other packages.
    #:directory)