uffi/src libraries.lisp,1.10,1.11

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

Modified Files:
	libraries.lisp 
Log Message:


Index: libraries.lisp
===================================================================
RCS file: /pubcvs/uffi/src/libraries.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** libraries.lisp	14 Aug 2003 19:35:05 -0000	1.10
--- libraries.lisp	26 Aug 2003 17:39:47 -0000	1.11
***************
*** 100,104 ****
  	#+sbcl
  	(let ((type (pathname-type (parse-namestring filename))))
! 	  (if (string-equal type "so")
  	      (sb-alien::load-1-foreign filename)
  	      (sb-alien:load-foreign filename 
--- 100,105 ----
  	#+sbcl
  	(let ((type (pathname-type (parse-namestring filename))))
! 	  (if (or (string-equal type "so")
! 		  (string-equal type "dylib"))
  	      (sb-alien::load-1-foreign filename)
  	      (sb-alien:load-foreign filename