Steel Bank Common Lisp

Hi,

I use sbcl with slime on mac osx. And I setup ed function like this:
(push #'swank:ed-in-emacs sb-ext:*ed-functions*)
Then I try to use ed like this:
(ed 'ed)
Bug I got an error message.
Then I check ed functions declaration in target-misc.lisp.

(defun ed (&optional x)
  "Starts the editor (on a file or a function if named).  Functions
from the list *ED-FUNCTIONS* are called in order with X as an argument
until one of them returns non-NIL; these functions are responsible for
signalling a FILE-ERROR to indicate failure to perform an operation on
the file system."
  (dolist (fun *ed-functions*
           (error 'extension-failure
                  :format-control "Don't know how to ~S ~A"
                  :format-arguments (list 'ed x)
                  :references (list '(:sbcl :variable *ed-functions*))))
    (when (funcall fun x)
      (return t))))

So,I try to declare our-ed like this(just remove error sexp):

(defun ed (&optional x)
  (dolist (fun *ed-functions*)
    (when (funcall fun x)
      (return t))))

and retry (our-ed 'ed) then our-ed works fine.
So I think ed function's construction has some mistake.

Many thanks!

--------------------------------------
Thanks 10 years!  Yahoo! Shopping and Yahoo! Auctions
http://pr.mail.yahoo.co.jp/ec10years/