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

Diff of /gcl/lsp/gcl_setf.lsp

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

revision 1.13 by camm, Sun Sep 18 02:46:35 2005 UTC revision 1.14 by camm, Wed Oct 12 03:12:57 2005 UTC
# Line 232  Line 232 
232  (defsetf symbol-plist si:set-symbol-plist)  (defsetf symbol-plist si:set-symbol-plist)
233  (defsetf gethash (k h &optional d) (v) `(si:hash-set ,k ,h ,v))  (defsetf gethash (k h &optional d) (v) `(si:hash-set ,k ,h ,v))
234  (defsetf row-major-aref si:aset1)  (defsetf row-major-aref si:aset1)
235    (defsetf readtable-case si::set-readtable-case)
236  (defsetf documentation (s d) (v)  (defsetf documentation (s d) (v)
237    `(case ,d    `(case ,d
238       (variable (si:putprop ,s ,v 'variable-documentation))       (variable (si:putprop ,s ,v 'variable-documentation))
# Line 528  Line 529 
529                 (mapcar #'list                 (mapcar #'list
530                         (append vars stores)                         (append vars stores)
531                         (append vals (list ,update-form)))                         (append vals (list ,update-form)))
532                 store-form))))))))))))))))))))                 store-form)))))
533    
534    
535  ;;; Some macro definitions.  ;;; Some macro definitions.

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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