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

[Nikodemus Siivola]

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

Modified Files:
	osicat-glue.c osicat.lisp 
Log Message:
Yugh, debuging cruft.
Date: Sun Oct 26 10:55:55 2003
Author: nsiivola

Index: src/osicat-glue.c
diff -u src/osicat-glue.c:1.4 src/osicat-glue.c:1.5
--- src/osicat-glue.c:1.4	Sun Oct 26 10:54:55 2003
+++ src/osicat-glue.c	Sun Oct 26 10:55:55 2003
@@ -32,11 +32,9 @@
     int err;
 
     if (follow_p) {
-	printf ("stat\n");
 	err = stat (name, &buf);
     }
     else {
-	printf ("lstat\n");
 	err = lstat (name, &buf);
     }
 


Index: src/osicat.lisp
diff -u src/osicat.lisp:1.6 src/osicat.lisp:1.7
--- src/osicat.lisp:1.6	Sun Oct 26 10:54:55 2003
+++ src/osicat.lisp	Sun Oct 26 10:55:55 2003
@@ -84,9 +84,7 @@
   (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))
-      (print (list 'cfile cfile))
       (c-file-kind cfile nil))))
 
 (def-function "opendir" ((name :cstring))