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