[osicat-cvs] CVS update: src/osicat.lisp src/version.txt

[Nikodemus Siivola]

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