clsql/uffi clsql-uffi.lisp,1.9,1.10

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

Modified Files:
	clsql-uffi.lisp 
Log Message:
Auto commit for Debian build

Index: clsql-uffi.lisp
===================================================================
RCS file: /pubcvs/clsql/uffi/clsql-uffi.lisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** clsql-uffi.lisp	16 May 2003 08:04:02 -0000	1.9
--- clsql-uffi.lisp	16 May 2003 08:07:39 -0000	1.10
***************
*** 165,169 ****
  #+allegro
  (excl:ics-target-case
!  (:-ics
    (defun native-to-string (s)
      (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))
--- 165,169 ----
  #+allegro
  (excl:ics-target-case
!  (:+ics
    (defun native-to-string (s)
      (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))
***************
*** 180,184 ****
  	(incf i))
      str)))
!  (:+ics
    (defun native-to-string (s)
    (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))
--- 180,184 ----
  	(incf i))
      str)))
!  (:-ics
    (defun native-to-string (s)
    (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))