uffi/src libraries.lisp,1.12,1.13

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

Modified Files:
	libraries.lisp 
Log Message:


Index: libraries.lisp
===================================================================
RCS file: /pubcvs/uffi/src/libraries.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** libraries.lisp	27 Aug 2003 20:00:21 -0000	1.12
--- libraries.lisp	27 Aug 2003 20:02:59 -0000	1.13
***************
*** 108,111 ****
--- 108,112 ----
  	(let ((type (pathname-type (parse-namestring filename))))
  	  (if (or (string-equal type "so")
+ 		  (string-equal type "bundle")
  		  (string-equal type "dylib"))
  	      (sb-alien::load-1-foreign filename)