Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Wed Jan 29 02:11:54 2003 UTC | revision 1.4 by pfdietz, Mon Feb 17 04:22:03 2003 UTC | |
---|---|---|
# | Line 46 | Line 46 |
46 | (deftest boundp.4 | (deftest boundp.4 |
47 | (boundp '#:foo) | (boundp '#:foo) |
48 | nil) | nil) |
49 | ||
50 | (deftest boundp.order.1 | |
51 | (let ((i 0) x) | |
52 | (values | |
53 | (boundp (progn (setf x (incf i)) '#:foo)) | |
54 | i x)) | |
55 | nil 1 1) | |
56 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |