[asdf-devel] Reloading a .asd

[Faré]

On Sun, May 6, 2012 at 5:24 PM, Stelian Ionescu <sionescu at cddr.org> wrote:
> Yes, but I'd like to push this as Slime contrib and there's no guarantee
> that this will work in any case
>
No guarantee that my code will work? You can test and debug it;
the underlying API is not going to change.

No guarantee that the notoriously picky SLIME maintainers
will accept a contribution? I can't help you there.

There, I fixed two obvious bugs. Looks like it works:

(in-package :asdf)

(defvar *slime-override-systems* (make-hash-table :test 'equal))

(defun sysdef-slime-override (name)
  (values (gethash (coerce-name name) *slime-override-systems*)))

(defun register-slime-override ()
  (setf asdf:*system-definition-search-functions*
        (cons 'sysdef-slime-override
              (remove 'sysdef-slime-override
*system-definition-search-functions*))))

(defun load-slime-override-sysdef (name pathname)
  (let ((name (coerce-name name))
        (pathname (pathname pathname)))
    (setf (gethash name *slime-override-systems*) pathname)
    (load-sysdef name pathname)))

—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org
Natural laws have no pity.
        — Robert Heinlein, "Time Enough For Love"