--- cffi.old/src/libraries.lisp	2008-09-10 21:51:48.000000000 +0400
+++ cffi.new/src/libraries.lisp	2008-09-10 21:54:56.000000000 +0400
@@ -117,7 +117,7 @@
   (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)))