13 lines
349 B
Plaintext
13 lines
349 B
Plaintext
;; Regression tests for changes to LLINTERP
|
|
|
|
(do-test "AR 7404: MAKUNBOUND and BOUNDP disagree"
|
|
(let ((*foo* 7))
|
|
(declare (special *foo*))
|
|
(makunbound '*foo*)
|
|
(not (boundp '*foo*))))
|
|
|
|
(do-test "AR 7398: COMPILED-FUNCTION-P should always be NIL on symbols"
|
|
(and (not (compiled-function-p '+))
|
|
(compiled-function-p #'+)))
|
|
|