Commit fe3d1afc authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Make asdf-tools work well with quicklisp.

Fix parenthesizing so ASDF is always being configured properly (Oops).
parent 9b8170cc
......@@ -13,7 +13,7 @@
;;; ASDF3 is loaded, now use it!
(eval-when (:compile-toplevel :load-toplevel :execute)
(asdf:load-system :asdf-tools))
(#-quicklisp asdf:load-system #+quicklisp ql:quickload :asdf-tools))
;;; Actually run the stuff!
(uiop:restore-image :entry-point 'asdf-tools::entry-point)
......@@ -34,7 +34,7 @@
(merge-pathnames (make-pathname :defaults parent
:directory (cons :relative directory)
:name name :type type :version version)
parent))
(make-pathname :name nil :type nil :version nil :defaults parent)))
(here-directory ()
(subpath (or *compile-file-truename* *load-truename*
(truename *default-pathname-defaults*))))
......@@ -55,7 +55,7 @@
(unless (member :asdf2 *features*)
(or (and (try-load (asdf-lisp)) (member :asdf2 *features*))
(error "This Lisp implementation fails to provide ASDF 2 or later. ~
Please install it in ~A" (asdf-lisp)))
Please install it in ~A" (asdf-lisp))))
;; Configure ASDF
(configure-asdf)
(let ((provided-version (asdf-version)))
......@@ -74,7 +74,7 @@
;; to provide a copy of ASDF that the implementation might be lacking,
;; we'd move this form right below the (funcall 'require "asdf") above.
;; See also notes in try-load-quicklisp.
(try-load-quicklisp)))
(try-load-quicklisp))
;; User-configurable parts
(required-asdf-version () "3.1.2") ;; In the end, we want at least ASDF 3.1.2
(asdf-lisp ()
......
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