137 |
(setf (defsetf.5-accessor x) 'c) |
(setf (defsetf.5-accessor x) 'c) |
138 |
x)) |
x)) |
139 |
c (c . b)) |
c (c . b)) |
140 |
|
|
141 |
|
;;; Test that the defsetf expansion function is defined in the same |
142 |
|
;;; lexical environment that the defsetf appears in |
143 |
|
|
144 |
|
(defun defsetf.6-accessor (x) (car x)) |
145 |
|
|
146 |
|
(let ((z 'car)) |
147 |
|
(defsetf defsetf.6-accessor (y) (val) |
148 |
|
`(setf (,z ,y) ,val))) |
149 |
|
|
150 |
|
(deftest defsetf.6a |
151 |
|
(let ((x (cons 'a 'b))) |
152 |
|
(values |
153 |
|
(setf (defsetf.6-accessor x) 'c) |
154 |
|
x)) |
155 |
|
c (c . b)) |