/[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.4 by camm, Tue Oct 22 21:42:04 2002 UTC revision 1.5 by camm, Fri Jan 3 21:26:39 2003 UTC
# Line 205  Line 205 
205  (defsetf fill-pointer si:fill-pointer-set)  (defsetf fill-pointer si:fill-pointer-set)
206  (defsetf symbol-plist si:set-symbol-plist)  (defsetf symbol-plist si:set-symbol-plist)
207  (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))
208    (defsetf row-major-aref si:aset1)
209  (defsetf documentation (s d) (v)  (defsetf documentation (s d) (v)
210    `(case ,d    `(case ,d
211       (variable (si:putprop ,s ,v 'variable-documentation))       (variable (si:putprop ,s ,v 'variable-documentation))

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

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