Hi Mirko,
I think you can do:
(pushnew "~/.../lisp-development/" ql:*local-project-directories* :test #'equalp) (ql:register-local-projects)
This involves quicklisp though, and I'm not sure what the pure asdf answer is.
Regards,
Dave
On Wed, Nov 6, 2013 at 10:47 AM, Mirko Vukovic mirko.vukovic@gmail.comwrote:
Hello,
this is on recently upgraded SBCL1.1.13 and ASDF 3.0.2
I have a system sitting in ~/quicklisp/local-dists and a development version sitting in ~/.../lisp-development/
I would like ASDF to open the latter one. I use asdf:load-system.
I cd to the development directory and start slime there. (asdf:load-system ...) still tries to fetch the version in the quicklisp directory.
I tried setting the (:directory :here) entry in source-registry.conf but that led to an error in asdf/configuration:resolve-absolute-location:
NIL fell through ETYPECASE expression. Wanted one of ((EQL :USER-CACHE) (EQL :HERE) (EQL :HOME) (EQL :ROOT) CONS STRING PATHNAME).
I could fix that error by setting the *here-directory* to *default-pathname-defaults*: (progn (asdf/configuration:clear-configuration) (let ((asdf/configuration:*here-directory* *default-pathname-defaults*)) (print asdf/configuration:*here-directory*) (asdf/configuration:resolve-absolute-location :here) (asdf:load-system :my-utils :verbose t)))
Now resolve-absolute-location returns the correct directory, asdf:system-source-directory still returns the version in the quicklisp directory.
I did trace a bit deeper, but I am not sure that I am on the correct path.
These are the contents of my configuration file: (:source-registry (:directory :here) :inherit-configuration)
Without the last directive, I get an error: Unable to display error condition: unbound condition slot: UIOP/CONFIGURATION::FORM [Condition of type INVALID-SOURCE-REGISTRY] ... Backtrace: 0: (REPORT-INVALID-FORM INVALID-SOURCE-REGISTRY :ARGUMENTS ("~@<One and only one of ~S or ~S is required.~@:>" :INHERIT-CONFIGURATION :IGNORE-INHERITED-CONFIGURATION)) 1: (VALIDATE-CONFIGURATION-FORM (:SOURCE-REGISTRY (:DIRECTORY :HERE) (:TREE "/home/977315/projects/chamber-matching/experimental-data/data-analysis-software/")) :SOURCE-REGISTRY VALIDATE-SOURCE-REGISTRY-.. 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.. 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.. 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.. 5: (FLATTEN-SOURCE-REGISTRY NIL)
Thanks,
Mirko