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

Modified Files: osicat.lisp version.txt Log Message: Silence compiler about read-link Date: Sun Oct 26 11:10:33 2003 Author: nsiivola

Index: src/osicat.lisp diff -u src/osicat.lisp:1.7 src/osicat.lisp:1.8 --- src/osicat.lisp:1.7 Sun Oct 26 10:55:55 2003 +++ src/osicat.lisp Sun Oct 26 11:10:33 2003 @@ -270,6 +270,9 @@

Signals an error if pathspec is wild, or does not designate a symbolic link." + ;; KLUDGE: Silence a compiler-note + (handler-bind + (#+sbcl (sb-ext:compiler-note #'muffle-warning)) (with-c-file (path pathspec :symbolic-link) (do* ((size 64 (* size 2)) (buffer #1=(allocate-foreign-string size) #1#) @@ -278,7 +281,7 @@ (let ((str (convert-from-foreign-string buffer :length got))) (free-foreign-object buffer) (pathname str))) - (free-foreign-object buffer)))) + (free-foreign-object buffer)))))

(def-function "symlink" ((old :cstring) (new :cstring)) :module "osicat"

Index: src/version.txt diff -u src/version.txt:1.4 src/version.txt:1.5 --- src/version.txt:1.4 Sun Oct 26 10:54:55 2003 +++ src/version.txt Sun Oct 26 11:10:33 2003 @@ -1 +1 @@ -0.3.1 +0.3.2