uffi/src libraries.lisp,1.7,1.8 objects.lisp,1.13,1.14

Update of /pubcvs/uffi/src
In directory boa.b9.com:/tmp/cvs-serv15249/src

Modified Files:
	libraries.lisp objects.lisp 
Log Message:
Auto commit for Debian build

Index: libraries.lisp
===================================================================
RCS file: /pubcvs/uffi/src/libraries.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** libraries.lisp	6 Jun 2003 21:59:18 -0000	1.7
--- libraries.lisp	26 Jun 2003 18:02:08 -0000	1.8
***************
*** 86,95 ****
  	#+cmu
  	(let ((type (pathname-type (parse-namestring filename))))
! 	  (if (equal type "so")
  	      (sys::load-object-file filename)
! 	    (alien:load-foreign filename 
! 				:libraries
! 				(convert-supporting-libraries-to-string
! 				 supporting-libraries))))
  	#+scl
  	(let ((type (pathname-type (parse-namestring filename))))
--- 86,95 ----
  	#+cmu
  	(let ((type (pathname-type (parse-namestring filename))))
! 	  (if (string-equal type "so")
  	      (sys::load-object-file filename)
! 	      (alien:load-foreign filename 
! 				  :libraries
! 				  (convert-supporting-libraries-to-string
! 				   supporting-libraries))))
  	#+scl
  	(let ((type (pathname-type (parse-namestring filename))))
***************
*** 99,106 ****
  			       supporting-libraries)))
  	#+sbcl
! 	(sb-alien:load-foreign filename 
! 			       :libraries
! 				 (convert-supporting-libraries-to-string
! 				  supporting-libraries))
  	#+lispworks (fli:register-module module :real-name filename)
  	#+allegro (load filename)
--- 99,108 ----
  			       supporting-libraries)))
  	#+sbcl
! 	(if (string-equal type "so")
! 	    (sb-alien::load-1-foreign filename)
! 	    (sb-alien:load-foreign filename 
! 				   :libraries
! 				   (convert-supporting-libraries-to-string
! 				    supporting-libraries)))
  	#+lispworks (fli:register-module module :real-name filename)
  	#+allegro (load filename)

Index: objects.lisp
===================================================================
RCS file: /pubcvs/uffi/src/objects.lisp,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** objects.lisp	6 Jun 2003 21:59:18 -0000	1.13
--- objects.lisp	26 Jun 2003 18:02:08 -0000	1.14
***************
*** 119,127 ****
  (defsetf deref-pointer deref-pointer-set)
  
! #+(or (and mcl (not openmcl))) ;; with LW, deref is a character
  (defmacro ensure-char-character (obj)
    obj)
  
! #+(or allegro lispworks cmu sbcl scl openmcl)
  (defmacro ensure-char-character (obj)
    `(code-char ,obj))
--- 119,127 ----
  (defsetf deref-pointer deref-pointer-set)
  
! #+(or lispworks (and mcl (not openmcl))) ;; with LW, deref is a character
  (defmacro ensure-char-character (obj)
    obj)
  
! #+(or allegro cmu sbcl scl openmcl)
  (defmacro ensure-char-character (obj)
    `(code-char ,obj))