+2005-06-09 Kevin Rosenberg (kevin@rosenberg.net)
+ * src/libraries.lisp: Commit patch from Edi Weitz to
+ allow plain filename library names to allow underlying
+ lisp implementation to find foreign libraries in the
+ locations known to the operating system.
+ * tests/cast.lisp: Add :module keyword as noted by
+ Joerg Hoehle.
+
2005-04-12 Kevin Rosenberg (kevin@rosenberg.net)
* Version 1.4.37
* src/strings.lisp: Fix variable name
+cl-uffi (1.4.38-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Wed, 08 Jun 2005 10:42:10 -0600
+
cl-uffi (1.4.37-1) unstable; urgency=low
* New upstream
<listitem>
<para>A string or pathname specifying the library location
in the filesystem. At least one implementation (&lw;) can not
-accept a logical pathname.
+accept a logical pathname. If this parameter denotes a pathname without a
+directory component then most of the supported Lisp implementations will be
+able to find the library themselves if it is located in one of the standard
+locations as defined by the underlying operating system.
</para>
</listitem>
</varlistentry>
force-load)
#+(or allegro mcl) (declare (ignore module supporting-libraries))
#+(or cmu scl sbcl) (declare (ignore module))
-
- (when (and filename (probe-file filename))
- (if (pathnamep filename) ;; ensure filename is a string to check if
- (setq filename (namestring filename))) ; already loaded
+ #+lispworks (declare (ignore supporting-libraries))
+
+ (when (and filename (or (null (pathname-directory filename))
+ (probe-file filename)))
+ (if (pathnamep filename) ;; ensure filename is a string to check if already loaded
+ (setq filename (namestring (if (null (pathname-directory filename))
+ filename (truename filename)))))
(if (and (not force-load)
(find filename *loaded-libraries* :test #'string-equal))
(funcall (intern "LOAD-SHARED-OBJECT" :sb-alien) filename)
(error c))))
- #+lispworks (fli:register-module module :real-name filename)
+ #+lispworks (fli:register-module module :real-name filename
+ :connection-style :immediate)
#+allegro (load filename)
#+openmcl (ccl:open-shared-library filename)
#+(and mcl (not openmcl)) (ccl:add-to-shared-library-search-path filename t)