When using DEFSETF, DEFINE-SETF-EXPANDER and similar functions, the SETF functions were undefined.

parent b079b120
...@@ -38,7 +38,6 @@ by (documentation 'SYMBOL 'setf)." ...@@ -38,7 +38,6 @@ by (documentation 'SYMBOL 'setf)."
(put-sysprop ',access-fn 'SETF-UPDATE-FN ',(car rest)) (put-sysprop ',access-fn 'SETF-UPDATE-FN ',(car rest))
(rem-sysprop ',access-fn 'SETF-LAMBDA) (rem-sysprop ',access-fn 'SETF-LAMBDA)
(rem-sysprop ',access-fn 'SETF-METHOD) (rem-sysprop ',access-fn 'SETF-METHOD)
(rem-sysprop ',access-fn 'SETF-SYMBOL)
,@(si::expand-set-documentation access-fn 'setf (cadr rest)) ,@(si::expand-set-documentation access-fn 'setf (cadr rest))
',access-fn)) ',access-fn))
(t (t
...@@ -51,7 +50,6 @@ by (documentation 'SYMBOL 'setf)." ...@@ -51,7 +50,6 @@ by (documentation 'SYMBOL 'setf)."
(put-sysprop ',access-fn 'SETF-LAMBDA #'(lambda-block ,access-fn (,@store ,@args) ,@body)) (put-sysprop ',access-fn 'SETF-LAMBDA #'(lambda-block ,access-fn (,@store ,@args) ,@body))
(rem-sysprop ',access-fn 'SETF-UPDATE-FN) (rem-sysprop ',access-fn 'SETF-UPDATE-FN)
(rem-sysprop ',access-fn 'SETF-METHOD) (rem-sysprop ',access-fn 'SETF-METHOD)
(rem-sysprop ',access-fn 'SETF-SYMBOL)
,@(si::expand-set-documentation access-fn 'setf doc) ,@(si::expand-set-documentation access-fn 'setf doc)
',access-fn))))) ',access-fn)))))
...@@ -90,7 +88,6 @@ by (DOCUMENTATION 'SYMBOL 'SETF)." ...@@ -90,7 +88,6 @@ by (DOCUMENTATION 'SYMBOL 'SETF)."
(put-sysprop ',access-fn 'SETF-METHOD #'(ext::lambda-block ,access-fn ,args ,@body)) (put-sysprop ',access-fn 'SETF-METHOD #'(ext::lambda-block ,access-fn ,args ,@body))
(rem-sysprop ',access-fn 'SETF-LAMBDA) (rem-sysprop ',access-fn 'SETF-LAMBDA)
(rem-sysprop ',access-fn 'SETF-UPDATE-FN) (rem-sysprop ',access-fn 'SETF-UPDATE-FN)
(rem-sysprop ',access-fn 'SETF-SYMBOL)
,@(si::expand-set-documentation access-fn 'setf ,@(si::expand-set-documentation access-fn 'setf
(find-documentation body)) (find-documentation body))
',access-fn)) ',access-fn))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment