Steel Bank Common Lisp

Also, when using :wait nil, you must call sb-ext:process-wait to ensure 
exit code is ready to be read and to avoid defunct processes.

Additionally you should call sb-ext:process-close to ensure the output 
stream (and any other streams) of the processes is closed.

To sum up:

(let ((instance (sb-ext:run-program "zcat" '("/tmp/test.gz")
				    :output :stream
				    :search t
				    :wait nil)))
   (unwind-protect
        (display-stream (sb-ext:process-output instance))
     (sb-ext:process-wait instance)
     (sb-ext:process-close instance))
   (assert (zerop (sb-ext:process-exit-code instance)) ()
	  "zcat exited with code ~A"
	  (sb-ext:process-exit-code instance)))

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/