bldc/tests/test_undefine_2.lisp

9 lines
86 B
Common Lisp

(define apa 1)
(define bepa 0)
(setvar 'bepa 2)
(undefine 'apa)
(check (= bepa 2))