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))