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)) |
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. |