clsql/uffi clsql-uffi.lisp,1.27,1.28

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

Modified Files:
	clsql-uffi.lisp 
Log Message:


Index: clsql-uffi.lisp
===================================================================
RCS file: /pubcvs/clsql/uffi/clsql-uffi.lisp,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** clsql-uffi.lisp	27 May 2003 21:40:16 -0000	1.27
--- clsql-uffi.lisp	29 May 2003 05:19:50 -0000	1.28
***************
*** 17,22 ****
  ;;;; *************************************************************************
  
! (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
! (in-package :clsql-uffi)
  
  
--- 17,21 ----
  ;;;; *************************************************************************
  
! (in-package #:clsql-uffi)
  
  
***************
*** 121,126 ****
  		  (make-64-bit-integer high32 low32)))))
  	 (t
! 	  #+allegro (native-to-string char-ptr) ;; optimized
! 	  #-allegro (uffi:convert-from-foreign-string char-ptr)))))))
    
  
--- 120,125 ----
  		  (make-64-bit-integer high32 low32)))))
  	 (t
! 	  #+(or allegro lispworks) (native-to-string char-ptr) ;; optimized
! 	  #-(or allegro lispworks) (uffi:convert-from-foreign-string char-ptr)))))))
    
  
***************
*** 129,133 ****
    :returning :unsigned-int)
  
! #+(and allegro ics)
  (defun native-to-string (s)
    (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))
--- 128,132 ----
    :returning :unsigned-int)
  
! #+(or lispworks (and allegro ics))
  (defun native-to-string (s)
    (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))