clsql/uffi clsql-uffi.lisp,1.20,1.21

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

Modified Files:
	clsql-uffi.lisp 
Log Message:


Index: clsql-uffi.lisp
===================================================================
RCS file: /pubcvs/clsql/uffi/clsql-uffi.lisp,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** clsql-uffi.lisp	16 May 2003 18:53:57 -0000	1.20
--- clsql-uffi.lisp	17 May 2003 07:34:54 -0000	1.21
***************
*** 122,128 ****
  	 (t
  	  ;; Choose optimized routine
! 	  #-(or cmu sbcl)
  	  (native-to-string char-ptr)
! 	  #+(or cmu sbcl)
  	  (uffi:convert-from-foreign-string char-ptr)))))))
    
--- 122,128 ----
  	 (t
  	  ;; Choose optimized routine
! 	  #-(or cmu sbcl lispworks scl)
  	  (native-to-string char-ptr)
! 	  #+(or cmu sbcl lispworks scl)
  	  (uffi:convert-from-foreign-string char-ptr)))))))
    
***************
*** 132,135 ****
--- 132,136 ----
    :returning :unsigned-int)
  
+ #-allegro
  (defun native-to-string (s)
    (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))