328 |
`(let ((,sym (multiple-value-list ,newvalue))) |
`(let ((,sym (multiple-value-list ,newvalue))) |
329 |
(values ,@(nreverse forms))))) |
(values ,@(nreverse forms))))) |
330 |
(declare (fixnum n) (object vl)) |
(declare (fixnum n) (object vl)) |
331 |
(push `(setq ,(car vl) (nth ,n ,sym)) forms))) |
(let ((method (if (symbolp (car vl)) 'setq 'setf))) |
332 |
|
(push `(,method ,(car vl) (nth ,n ,sym)) forms)))) |
333 |
(when (symbolp place) |
(when (symbolp place) |
334 |
(return-from setf-expand-1 `(setq ,place ,newvalue))) |
(return-from setf-expand-1 `(setq ,place ,newvalue))) |
335 |
(when (and (consp place) |
(when (and (consp place) |