pnathan: elephant bypasses fence to drink from pool (Default)
[personal profile] 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.

Most Popular Tags

Expand Cut Tags

No cut tags
Page generated Jul. 11th, 2025 05:47 am
Powered by Dreamwidth Studios