<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">On Wed, Nov 6, 2013 at 11:01 AM, Faré <span dir="ltr"><<a href="mailto:fahree@gmail.com" target="_blank">fahree@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">

<div>On Wed, Nov 6, 2013 at 10:51 AM, Zach Beane <<a href="mailto:xach@xach.com" target="_blank">xach@xach.com</a>> wrote:<br>
> Mirko Vukovic <<a href="mailto:mirko.vukovic@gmail.com" target="_blank">mirko.vukovic@gmail.com</a>> writes:<br>
><br>
>> I have a system sitting in ~/quicklisp/local-dists and a development<br>
>> version sitting in ~/.../lisp-development/<br>
>><br>
>> I would like ASDF to open the latter one.  I use asdf:load-system.<br>
>><br>
>> I cd to the development directory and start slime there.  (asdf:load-system<br>
>> ...) still tries to fetch the version in the<br>
>> quicklisp directory.<br>
><br>
> One easy way:<br>
><br>
>   (push '*default-pathname-defaults* asdf:*central-registry*)<br>
><br>
</div>I disrecommend pushing '*default-pathname-defaults* into the<br>
*central-registry* — that makes system loading less predictable,<br>
depending on the binding of this variable.<br>
<br>
Instead, I recommend pushing an actual pathname object (that may<br>
happen to be the current value of *d-p-d* or of (uiop:getcwd), if you<br>
insist), so that the value remains well-defined in the face of<br>
rebinding of the variable.<br>
<br>
Or better, edit your ~/.config/common-lisp/source-registry.conf and<br>
register your software there. Or for temporary stuff, export a<br>
CL_SOURCE_REGISTRY, or call asdf:initialize-source-registry with a<br>
parameter.<br>
<br>
—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• <a href="http://fare.tunes.org" target="_blank">http://fare.tunes.org</a><br>
Fraud is the homage that force pays to reason.  — Charles Curtis<br>
</blockquote></div><br></div><div class="gmail_extra">This works for me now (lightly tested):<br><br>(defun asdf::load-local-system (system &rest keys<br>                &key<br>                  (directory *default-pathname-defaults*)<br>
                &allow-other-keys)<br>  (let ((asdf:*central-registry*<br>     (push directory asdf:*central-registry*)))<br>    (apply #'asdf:load-system system keys)))<br><br>(export '(asdf::load-local-system) :asdf)<br>
<br></div><div class="gmail_extra">There may be a better name for this function instead of `local'.<br><br></div><div class="gmail_extra">Thanks to all that replied,<br><br>Mirko<br></div></div>