/[gcl]/gcl/lsp/setf.lsp
ViewVC logotype

Diff of /gcl/lsp/setf.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Fri Oct 18 21:28:53 2002 UTC revision 1.4 by camm, Tue Oct 22 21:42:04 2002 UTC
# Line 328  Line 328 
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)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26