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

[Julian E. C. Squires]

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)