9 lines
357 B
Plaintext
9 lines
357 B
Plaintext
;; Regression tests for changes in LLSYMBOL
|
|
|
|
(do-test ("AR 7385: (setf (symbol-function ...) ...) doesn't remove macro definition"
|
|
:before (fmakunbound 'zab)
|
|
:after (fmakunbound 'zab))
|
|
(progn (setf (macro-function 'zab) 'expand-zab)
|
|
(setf (symbol-function 'zab) '(lambda () 9))
|
|
(not (macro-function 'zab))))
|