Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Jun 14 10:57:44 2003 UTC | revision 1.2 by pfdietz, Tue Jul 1 02:08:54 2003 UTC | |
---|---|---|
# | Line 93 | Line 93 |
93 | *gensym-counter*) | *gensym-counter*) |
94 | 10) | 10) |
95 | ||
96 | ;;; GENSYM counter is a non-negative integer | |
97 | (deftest gensym-counter.1 | |
98 | (and (integerp *gensym-counter*) | |
99 | (>= *gensym-counter* 0) | |
100 | t) | |
101 | t) | |
102 | ||
103 | ;;; Check response to erroneous arguments | ;;; Check response to erroneous arguments |
104 | ;;; Note! NIL is not the same as no argument | ;;; Note! NIL is not the same as no argument |
105 | ;;; gensym should be implemented so that its only | ;;; gensym should be implemented so that its only |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |