12 lines
190 B
Plaintext
12 lines
190 B
Plaintext
;;; Test case for AR 6273
|
|
|
|
(do-test "SETF in MACROLET"
|
|
(let ((x '(1 2 3)))
|
|
(macrolet ((foo () '(second x)))
|
|
(and (setf (foo) t)
|
|
(equal x '(1 t 3))
|
|
)
|
|
)
|
|
)
|
|
)
|