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)