/[gcl]/gcl/ansi-tests/gensym.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/gensym.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26