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

[Nikodemus Siivola]

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

Modified Files:
	osicat-glue.c osicat.lisp version.txt 
Log Message:
Fixed FILE-KIND on symbolic links.
Date: Sun Oct 26 10:54:56 2003
Author: nsiivola

Index: src/osicat-glue.c
diff -u src/osicat-glue.c:1.3 src/osicat-glue.c:1.4
--- src/osicat-glue.c:1.3	Sun Oct 26 09:19:32 2003
+++ src/osicat-glue.c	Sun Oct 26 10:54:55 2003
@@ -31,10 +31,14 @@
     struct stat buf;
     int err;
 
-    if (follow_p)
+    if (follow_p) {
+	printf ("stat\n");
 	err = stat (name, &buf);
-    else
+    }
+    else {
+	printf ("lstat\n");
 	err = lstat (name, &buf);
+    }
 
     if (! err)
 	return buf.st_mode;


Index: src/osicat.lisp
diff -u src/osicat.lisp:1.5 src/osicat.lisp:1.6
--- src/osicat.lisp:1.5	Sun Oct 26 10:31:27 2003
+++ src/osicat.lisp	Sun Oct 26 10:54:55 2003
@@ -84,8 +84,10 @@
   (let ((path (pathname pathspec)))
     (when (wild-pathname-p path)
       (error "Pathname is wild: ~S." path))
+    (print (list 'namestring (namestring path)))
     (with-cstring (cfile (namestring path))
-      (c-file-kind cfile 0))))
+      (print (list 'cfile cfile))
+      (c-file-kind cfile nil))))
 
 (def-function "opendir" ((name :cstring))
   :module "osicat"


Index: src/version.txt
diff -u src/version.txt:1.3 src/version.txt:1.4
--- src/version.txt:1.3	Sun Oct 26 09:38:02 2003
+++ src/version.txt	Sun Oct 26 10:54:55 2003
@@ -1 +1 @@
-0.3
+0.3.1