<div dir="ltr"><br><div>Hi Mirko,</div><div><br></div><div>I think you can do:</div><div><br></div><div> (pushnew "~/.../lisp-development/" ql:*local-project-directories* :test #'equalp)</div><div> (ql:register-local-projects)</div>
<div><br></div><div><br></div><div>This involves quicklisp though, and I'm not sure what the pure asdf answer is.</div><div><br></div><div>Regards,</div><div><br></div><div> Dave</div><div> </div><div><br></div></div>
<div class="gmail_extra"><br><br><div class="gmail_quote">On Wed, Nov 6, 2013 at 10:47 AM, Mirko Vukovic <span dir="ltr"><<a href="mailto:mirko.vukovic@gmail.com" target="_blank">mirko.vukovic@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div><div><div><div><div><div><div>Hello,<br><br>this is on recently upgraded SBCL1.1.13 and ASDF 3.0.2<br>
<br></div>I have a system sitting in ~/quicklisp/local-dists and a development version sitting in ~/.../lisp-development/<br>
<br></div>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 ...) still tries to fetch the version in the<br></div>quicklisp directory.<br>
<br></div>I tried setting the (:directory :here) entry in source-registry.conf but that led to an error in <br></div><div>asdf/configuration:resolve-absolute-location:<br><br>NIL fell through ETYPECASE expression.<br>Wanted one of ((EQL :USER-CACHE) (EQL :HERE) (EQL :HOME)<br>
(EQL :ROOT) CONS STRING PATHNAME).<br><br><br></div><div>I could fix that error by setting the *here-directory* to *default-pathname-defaults*:<br>(progn<br> (asdf/configuration:clear-configuration)<br> (let ((asdf/configuration:*here-directory* *default-pathname-defaults*))<br>
(print asdf/configuration:*here-directory*)<br> (asdf/configuration:resolve-absolute-location :here)<br> (asdf:load-system :my-utils :verbose t)))<br><br></div><div>Now resolve-absolute-location returns the correct directory, asdf:system-source-directory<br>
still returns the version in the quicklisp directory.<br><br></div><div>I did trace a bit deeper, but I am not sure that I am on the correct path. <br><br></div><div>These are the contents of my configuration file:<br>(:source-registry<br>
(:directory :here)<br> :inherit-configuration)<br></div><br></div>Without the last directive, I get an error:<br>Unable to display error condition: unbound condition slot: UIOP/CONFIGURATION::FORM<br> [Condition of type INVALID-SOURCE-REGISTRY]<br>
...<br>Backtrace:<br> 0: (REPORT-INVALID-FORM INVALID-SOURCE-REGISTRY :ARGUMENTS ("~@<One and only one of ~S or ~S is required.~@:>" :INHERIT-CONFIGURATION :IGNORE-INHERITED-CONFIGURATION))<br> 1: (VALIDATE-CONFIGURATION-FORM (:SOURCE-REGISTRY (:DIRECTORY :HERE) (:TREE "/home/977315/projects/chamber-matching/experimental-data/data-analysis-software/")) :SOURCE-REGISTRY VALIDATE-SOURCE-REGISTRY-..<br>
2: ((:METHOD PROCESS-SOURCE-REGISTRY (PATHNAME)) #P"/home/mv/.config/common-lisp/source-registry.conf" :INHERIT (USER-SOURCE-REGISTRY-DIRECTORY SYSTEM-SOURCE-REGISTRY SYSTEM-SOURCE-REGISTRY-DIRECTORY DEF..<br>
3: (ASDF/SOURCE-REGISTRY::PROCESS-SOURCE-REGISTRY-DIRECTIVE :INHERIT-CONFIGURATION :INHERIT (NIL ENVIRONMENT-SOURCE-REGISTRY USER-SOURCE-REGISTRY USER-SOURCE-REGISTRY-DIRECTORY SYSTEM-SOURCE-REGISTRY SYS..<br> 4: ((:METHOD PROCESS-SOURCE-REGISTRY (CONS)) (:SOURCE-REGISTRY (:TREE #P"/usr/local/lib/sbcl/") :INHERIT-CONFIGURATION) :INHERIT (NIL ENVIRONMENT-SOURCE-REGISTRY USER-SOURCE-REGISTRY USER-SOURCE-REGISTRY..<br>
5: (FLATTEN-SOURCE-REGISTRY NIL)<br><br><br></div>Thanks,<br><br></div>Mirko<br><div><div><br><br><br></div></div></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br>My Best,<br><br>Dave Cooper, Genworks Support<br><a href="mailto:david.cooper@genworks.com">david.cooper@genworks.com</a>, <a href="http://dave.genworks.com">dave.genworks.com</a>(skype)<br>
USA: 248-327-3253(o), 1-248-330-2979(mobile)<br>UK: 0191 645 1699<br>
</div>