Commit 4c93d36b authored by Dave Cooper's avatar Dave Cooper

commented out cffi-setup for allegro

parent b050c421
(when (find-package :cffi) (in-package :cffi))
;;(when (find-package :cffi) (in-package :cffi))
(in-package :cffi)
(defun %exe-path% ()
#+sbcl (make-pathname :name nil :type nil :defaults sb-ext:*core-pathname*)
#+ccl (make-pathname :name nil :type nil :defaults (first (ccl::command-line-arguments)))
#+allegro (translate-logical-pathname "sys:")
#+lispworks (make-pathname :name nil :type nil :defaults (first system:*line-arguments-list*)))
(when (find-package :cffi)
(pushnew (merge-pathnames (format nil "dlls/~a/" (if (member :32-bit-host *features*) "32" "64"))
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