RosettaCodeData/Task/Undefined-values/Common-Lisp/undefined-values-3.lisp

8 lines
252 B
Common Lisp

(defvar *dyn*) ;; special, no binding
(let (*dyn* ;; locally scoped override, value is nil
lex) ;; lexical, value is nil
(list (boundp '*dyn*) *dyn* (boundp 'lex) lex)) -> (T NIL NIL NIL)
(boundp '*global*) -> NIL