Fix handling of the T clause in DEFINE-FOREIGN-LIBRARY

- Added regression test: LIBRARY.T-CLAUSE.

Bug report and initial patch courtesy of Kalyanov Dmitry.

src/libraries.lisp

@@ -117,7 +117,10 @@
   (setf (gethash name *foreign-libraries*) value))
 
 (defun %foreign-library-spec (lib)
-  (assoc-if #'featurep (slot-value lib 'spec)))
+  (assoc-if (lambda (feature)
+              (or (eq feature t)
+                  (featurep feature)))
+            (slot-value lib 'spec)))
 
 (defun foreign-library-spec (lib)
   (second (%foreign-library-spec lib)))

tests/misc.lisp

@@ -83,6 +83,19 @@
       (load-foreign-library-error () 'error))
   error)
 
+(define-foreign-library pseudo-library
+  (t pseudo-library-spec))
+
+;;; RT: T clause was being handled as :T by FEATUREP.
+;;;
+;;; We might want to export (and clean up) the API used in this test
+;;; when the need arises.
+(deftest library.t-clause
+    (eq (cffi::foreign-library-spec
+         (cffi::get-foreign-library 'pseudo-library))
+        'pseudo-library-spec)
+  t)
+
 ;;;# Shareable Byte Vector Tests
 
 #+(or ecl allegro)