
I am trying to continue on the quest I described before -- "I want to create a variant of `defun' that takes arguments from Emacs and assembles a body to be evaluated by SLIME." I think I am most of the way there. Dan McCarthy pointed out: You probably want to quote the argument to slime-eval; that error is b/c the (progn...) is being evaluated in Emacs, not CL. Oops -- yes that I should be sure SLIME is doing the evalution, not Emacs -- but note, I also need to make sure that in the data I am sending to SLIME contains the values of the arguments, not just their names! Here is a macro that accomplishes this: (defmacro lefun (name arglist &rest body) `(defun ,name ,arglist (slime-eval (list (append (list 'lambda ',arglist) ',body) ,@arglist)))) Unfortunately, it still produces an error when I test it with the following code: (lefun myplus (a b) (+ a b)) (myplus 2 3) Specifically, the above triggers SLDB with the following message: Execution of a form compiled with errors. Form: ((LAMBDA (A B) (+ A B)) 2 3) Compile-time error: illegal function call I do not know what this means. It seems there is a work-around using Vladimir's suggestion on how to interact programmatically with the REPL: (defmacro lefun (name arglist &rest body) `(defun ,name ,arglist (setq argument-values (list )) (second (slime-eval (list 'swank:eval-and-grab-output (format "%S" (list (append (list 'lambda ',arglist) ',body) ,@arglist))))))) Testing: (lefun current-package () *package*) (current-package) (lefun elephant-toy () (elephant::open-store '(:bdb "/home/joe/musndb")) (elephant::add-to-root "foo" 2) (elephant::close-store)) (elephant-toy) In conclusion, I seem to have tentatively solved the problem -- but I would appreciate it if someone could explain why I am seeing the error mentioned above!