projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.29.21: less strict os-provides-dladdr.c
[sbcl.git]
/
contrib
/
sb-cltl2
/
tests.lisp
diff --git
a/contrib/sb-cltl2/tests.lisp
b/contrib/sb-cltl2/tests.lisp
index
0788260
..
ec5e8c9
100644
(file)
--- a/
contrib/sb-cltl2/tests.lisp
+++ b/
contrib/sb-cltl2/tests.lisp
@@
-6,7
+6,7
@@
;;;; more information.
(defpackage :sb-cltl2-tests
;;;; more information.
(defpackage :sb-cltl2-tests
- (:use :sb-cltl2 :cl :sb-rt))
+ (:use :sb-cltl2 :cl :sb-rt :sb-ext))
(in-package :sb-cltl2-tests)
(in-package :sb-cltl2-tests)
@@
-209,6
+209,16
@@
(var-info #:undefined)
(nil nil nil))
(var-info #:undefined)
(nil nil nil))
+(declaim (global this-is-global))
+(deftest global-variable
+ (var-info this-is-global)
+ (:global nil nil))
+
+(defglobal this-is-global-too 42)
+(deftest global-variable.2
+ (var-info this-is-global-too)
+ (:global nil ((always-bound . t))))
+
;;;; FUNCTION-INFORMATION
(defmacro fun-info (var &environment env)
;;;; FUNCTION-INFORMATION
(defmacro fun-info (var &environment env)
@@
-269,4
+279,3
@@
(fun-info identity))
(:function nil ((inline . inline)
(ftype function (t) (values t &optional)))))
(fun-info identity))
(:function nil ((inline . inline)
(ftype function (t) (values t &optional)))))
-