Those who run into this and need to get work done with devhead SBCL
can in the meanwhile stick this in their .sbclrc after the #-quicklisp
stanza.

(The effect of the code is that REQUIRE and ASDF:LOAD-SYSTEM won't
pull in quicklisp systems -- you need to use QL:QUICKLOAD to load
things with dependencies satisfied by Quicklisp. It's ugly, but it
does the job.)

#+quicklisp
(progn
  (setf asdf:*system-definition-search-functions*
        (remove 'ql-dist::find-asdf-system-file
                asdf:*system-definition-search-functions*))
  (defvar *quickload* #'ql:quickload)
  (handler-bind ((style-warning #'muffle-warning))
    (defun ql:quickload (&rest args)
      (let ((asdf:*system-definition-search-functions*
             (append asdf:*system-definition-search-functions*
                     (list 'ql-dist::find-asdf-system-file))))
        (apply *quickload* args)))))

Cheers,

 -- Nikodemus

_______________________________________________
asdf-devel mailing list
asdf-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel

Reply via email to