Commit 7664dc98 by Dave Cooper

protect setup-cffi for allegro

parent 06140bbf
(in-package :cffi)
(when (find-package :cffi) (in-package :cffi))
(defun %exe-path% ()
#+sbcl (make-pathname :name nil :type nil :defaults sb-ext:*core-pathname*)
......@@ -6,12 +6,13 @@
#+allegro (translate-logical-pathname "sys:")
#+lispworks (make-pathname :name nil :type nil :defaults (first system:*line-arguments-list*)))
(pushnew (merge-pathnames (format nil "dlls/~a/" (if (member :32-bit-host *features*) "32" "64"))
(%exe-path%))
cffi:*foreign-library-directories*)
(when (find-package :cffi)
(pushnew (merge-pathnames (format nil "dlls/~a/" (if (member :32-bit-host *features*) "32" "64"))
(%exe-path%))
(symbol-value (read-from-string "cffi:*foreign-library-directories*")))
(define-foreign-library libeay32
(:windows "libeay32.dll"))
(define-foreign-library libeay32
(:windows "libeay32.dll"))
(use-foreign-library libeay32)
(use-foreign-library libeay32))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment