clsql/uffi clsql-uffi.lisp,1.7,1.8

Update of /pubcvs/clsql/uffi
In directory boa.b9.com:/tmp/cvs-serv29915/uffi

Modified Files:
	clsql-uffi.lisp 
Log Message:


Index: clsql-uffi.lisp
===================================================================
RCS file: /pubcvs/clsql/uffi/clsql-uffi.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** clsql-uffi.lisp	15 May 2003 07:39:42 -0000	1.7
--- clsql-uffi.lisp	15 May 2003 07:45:17 -0000	1.8
***************
*** 121,126 ****
  		  (make-64-bit-integer high32 low32)))))
  	 (t
  	  (native-to-string char-ptr)
! 	  #+ignore
  	  (uffi:convert-from-foreign-string char-ptr)))))))
    
--- 121,128 ----
  		  (make-64-bit-integer high32 low32)))))
  	 (t
+ 	  ;; Choose optimized routine
+ 	  #-(or cmu sbcl)
  	  (native-to-string char-ptr)
! 	  #+(or cmu sbcl)
  	  (uffi:convert-from-foreign-string char-ptr)))))))