Would it work to do something like:
(setf asdf:*system-definition-search-functions* #+asdf3.1 (list 'sysdef-package-system-search) #-asdf3.1 nil) ;; push quicklisp function onto asdf:*system-definition-search-functions*
I'm afraid I haven't had a chance to look at your code, so I'm not entirely sure what's going on there, but this seems benign.
Would it work to do something like:
(setf asdf:*system- definition- search- functions* package- system- search) definition- search- functions*
#+asdf3.1
(list 'sysdef-
#-asdf3.1
nil)
;; push quicklisp function onto asdf:*system-
I'm afraid I haven't had a chance to look at your code, so I'm not entirely sure what's going on there, but this seems benign.