[slime-devel] shortcuts to OPs other than ASDF's own

[Walter C. Pelissero]

I was wondering if this patch could be considered for inclusion in
SLIME.  It allows to write repl shortcuts for operations not belonging
to the ASDF package simply prefixing the operation string with the
package name.

diff -c -r1.92 swank-backend.lisp
*** swank-backend.lisp	23 Oct 2005 08:47:54 -0000	1.92
--- swank-backend.lisp	24 Jan 2006 13:51:45 -0000
***************
*** 313,319 ****
      (error "ASDF is not loaded."))
    (with-compilation-hooks ()
      (let ((operate (find-symbol "OPERATE" :asdf))
!           (operation (find-symbol operation-name :asdf)))
        (when (null operation)
          (error "Couldn't find ASDF operation ~S" operation-name))
        (apply operate operation system-name keyword-args))))
--- 313,323 ----
      (error "ASDF is not loaded."))
    (with-compilation-hooks ()
      (let ((operate (find-symbol "OPERATE" :asdf))
!           (operation (let ((colon (position #\: operation-name)))
!                        (if colon
!                            (find-symbol (subseq operation-name (1+ colon))
!                                         (subseq operation-name 0 colon))
!                            (find-symbol operation-name :asdf)))))
        (when (null operation)
          (error "Couldn't find ASDF operation ~S" operation-name))
        (apply operate operation system-name keyword-args))))

-- 
walter pelissero
http://www.pelissero.de