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