clsql/uffi clsql-uffi.lisp,1.24,1.25

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

Modified Files:
	clsql-uffi.lisp 
Log Message:
Automatic commit for debian_version_1_6_4-1

Index: clsql-uffi.lisp
===================================================================
RCS file: /pubcvs/clsql/uffi/clsql-uffi.lisp,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** clsql-uffi.lisp	17 May 2003 07:52:21 -0000	1.24
--- clsql-uffi.lisp	22 May 2003 15:44:30 -0000	1.25
***************
*** 145,149 ****
      str))
  
! #-(and allegro ics)
  (defun native-to-string (s)
    (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))
--- 145,149 ----
      str))
  
! #+(and allegro (not ics))
  (defun native-to-string (s)
    (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))
***************
*** 167,171 ****
        (incf i))
      str))
- 
- 
- 
--- 167,168 ----