Defining SETF functions with SEdit

[pamoroso]

How do I define a Common Lisp SETF function with SEdit? Under SETFS the initial menu lists the types DEFINE-SETF-METHOD and DEFSETF but ED doesn't seem to accept a list as a function name.

[nbriggs]

What did you actually type? I wouldn't expect ED to accept a list as a function name. If you type (ED 'FOO 'SETFS) (for previously undefined FOO) it will suggest "FOO has no SETFS definition. Select a definer to use for a dummy definition", where the definer options are DEFINE-SETF-METHOD and DEFSETF -- pick one and it will produce an appropriate template for you to fill in in SEdit.

[pamoroso]

I'm trying to define a SETF function like this:

(defun (setf foo) (newval other-args)
  body)

I call SEdit with (ED '(SETF FOO)) and pick the FUNCTIONS > DEFUN definer, but I get these messages and SEdit doesn't open:

9_ (ED '(SETF FOO))
(SETF FOO) has no definitions.
Select a type of dummy definition to install.
(SETF FOO) has no FUNCTIONS definition.
(SETF FOO)

[nbriggs]

I don't believe our DEFUN implementation accepts that form for a SETF definition. See DEFSETF instead.

[pamoroso]

DEFSETF will do thanks.