Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Mon Feb 17 04:22:03 2003 UTC | revision 1.5 by pfdietz, Sat Aug 2 20:59:18 2003 UTC | |
---|---|---|
# | Line 47 | Line 47 |
47 | (boundp '#:foo) | (boundp '#:foo) |
48 | nil) | nil) |
49 | ||
50 | ;;; See 11.1.2.1.1 | |
51 | (deftest boundp.5 | |
52 | (loop for x in *cl-non-variable-constant-symbols* | |
53 | when (boundp x) | |
54 | collect x) | |
55 | nil) | |
56 | ||
57 | (deftest boundp.order.1 | (deftest boundp.order.1 |
58 | (let ((i 0) x) | (let ((i 0) x) |
59 | (values | (values |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |