Common Lisp DEFUN SETF - worked example

[pnathan]

```

 CL-USER> (defun (setf bob) (object object2 object3) 
    (format t "Setting Bob ~a , ~a , ~a~&" object object2 object3))

 (SETF BOB)

 CL-USER> (setf (bob 'bob1 'bob2) 'bob3)
 Setting Bob BOB3 , BOB1 , BOB2
 NIL

```

Simple worked example I couldn't find on the general internet.