mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 22:01:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

We cannot use :READ-ONLY in the SETF expansions because some code out there modifies the variables.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-05-20 22:48:15 +02:00
parent b2d8477479
commit 0f06c4e85b
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/lsp/setf.lsp
View file

@ -358,9 +358,12 @@ Does not check if the third gang is a single-element list."
((try-simpler-expansion place vars vals stores newvalue store-form))
(t
`(let* ,(mapcar #'list vars vals)
(declare (:read-only ,@vars))
;; Unfortunately we cannot do this because there is code out
;; there that changes the variables and values
;; (declare (:read-only ,@vars))
(multiple-value-bind ,stores ,newvalue
(declare (:read-only ,@stores))
;; Same here
;; (declare (:read-only ,@stores))
,store-form))))))
(defun setf-expand (l env)