uffi/src libraries.lisp,1.8,1.9 objects.lisp,1.14,1.15

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

Modified Files:
	libraries.lisp objects.lisp 
Log Message:


Index: libraries.lisp
===================================================================
RCS file: /pubcvs/uffi/src/libraries.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** libraries.lisp	26 Jun 2003 18:02:08 -0000	1.8
--- libraries.lisp	8 Jul 2003 12:37:21 -0000	1.9
***************
*** 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)
--- 99,109 ----
  			       supporting-libraries)))
  	#+sbcl
! 	(let ((type (pathname-type (parse-namestring filename))))
! 	  (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.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** objects.lisp	26 Jun 2003 18:02:08 -0000	1.14
--- objects.lisp	8 Jul 2003 12:37:21 -0000	1.15
***************
*** 135,143 ****
    obj)
  
- ;; Returns the numeric value of a byte at a pointer
- ;; Highly optimized
- (defmacro byte-value-at-pointer (ptr)
-   )
- 
  (defmacro pointer-address (obj)
    #+(or cmu scl)
--- 135,138 ----