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

Modified Files: ffi.lisp osicat.lisp Log Message: Applied patch from Luis Oliveira on comp.lang.lisp, just tweaking some quoting of FFI types.

Date: Sat Sep 17 13:03:16 2005 Author: jsquires

Index: src/ffi.lisp diff -u src/ffi.lisp:1.5 src/ffi.lisp:1.6 --- src/ffi.lisp:1.5 Fri Jul 8 16:18:19 2005 +++ src/ffi.lisp Sat Sep 17 13:03:15 2005 @@ -104,7 +104,7 @@ :returning :int)

(def-array-pointer cstring-array :cstring) -(def-foreign-var "environ" 'cstring-array "osicat") +(def-foreign-var "environ" cstring-array "osicat")

(def-function "getpwnam" ((name :cstring)) :module "osicat"

Index: src/osicat.lisp diff -u src/osicat.lisp:1.34 src/osicat.lisp:1.35 --- src/osicat.lisp:1.34 Fri Jul 8 16:18:19 2005 +++ src/osicat.lisp Sat Sep 17 13:03:15 2005 @@ -312,7 +312,7 @@ (handler-case (loop for i from 0 by 1 for string = (convert-from-cstring - (deref-array environ cstring-array i)) + (deref-array environ 'cstring-array i)) for split = (position #= string) while string collecting (cons (subseq string 0 split)