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

Julian E. C. Squires jsquires at common-lisp.net
Tue Jul 5 17:48:13 UTC 2005


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

Modified Files:
	osicat.lisp 
Log Message:
Some OpenMCL fixes for ...-TEMPORARY-FILES and USER-INFO.

Date: Tue Jul  5 19:48:13 2005
Author: jsquires

Index: src/osicat.lisp
diff -u src/osicat.lisp:1.32 src/osicat.lisp:1.33
--- src/osicat.lisp:1.32	Tue Jul  5 18:55:46 2005
+++ src/osicat.lisp	Tue Jul  5 19:48:12 2005
@@ -150,7 +150,8 @@
   ;; fds, also relatively safe from race conditions through obscurity?
   ;; XXX Another bug with this: the file doesn't get unlinked.
   #-(or cmu sbcl)
-  (open (tmpnam nil) :direction :io :element-type element-type))
+  (open (convert-from-cstring (tmpnam (make-null-pointer 'cstring)))
+	:direction :io :element-type element-type))
 
 
 (defmacro with-temporary-file ((stream &key element-type) &body body)
@@ -465,9 +466,9 @@
 		 (integer (getpwuid id))
 		 (t (make-null-pointer :pointer-void)))))
     (when (not (null-pointer-p pwent))
-      (list (cons :name (osicat-pwent-name pwent))
+      (list (cons :name (convert-from-cstring (osicat-pwent-name pwent)))
 	    (cons :user-id (osicat-pwent-uid pwent))
 	    (cons :group-id (osicat-pwent-gid pwent))
-	    (cons :gecos (osicat-pwent-gecos pwent))
-	    (cons :home (osicat-pwent-home pwent))
-	    (cons :shell (osicat-pwent-shell pwent))))))
+	    (cons :gecos (convert-from-cstring (osicat-pwent-gecos pwent)))
+	    (cons :home (convert-from-cstring (osicat-pwent-home pwent)))
+	    (cons :shell (convert-from-cstring (osicat-pwent-shell pwent)))))))




More information about the Osicat-cvs mailing list