<in cffi-allegro.lisp>
In Allegro 6.2 (and presumably all earlier versions), the keyword
argument :FOREIGN to function LOAD is not defined. So perhaps you
want something more like:
(defun %load-foreign-library (name)
"Load the foreign library NAME."
;; ACL 8.0 honors the :FOREIGN option and always tries to foreign load
;; the argument. However, previous versions do not and will only
;; foreign load the argument if its type is a member of the
;; EXCL::*LOAD-FOREIGN-TYPES* list. Therefore, we bind that special
;; to a list containing whatever type NAME has.
(let ((excl::*load-foreign-types*
(list (pathname-type (parse-namestring name)))))
(ignore-errors (load name
#+(and allegro-version>= (version>= 7 0)) :foreign
#+(and allegro-version>= (version>= 7 0)) t))))
Andrew
_______________________________________________
cffi-devel mailing list
cffi-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
