|
[Sbcl-help] ed function bug?
From: 十亀 眞怜 <poketo7878@ya...> - 2009-09-21 11:18
|
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/
|
| Thread | Author | Date | |
|---|---|---|---|
| [Sbcl-help] ed function bug? | 十亀 眞怜 <poketo7878@ya...> |
|