/[gcl]/gcl/ansi-tests/do-all-symbols.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/do-all-symbols.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Fri Dec 10 12:42:04 2004 UTC revision 1.3 by pfdietz, Mon Dec 13 13:45:33 2004 UTC
# Line 82  Line 82 
82       (return-from done :bad2)))       (return-from done :bad2)))
83    :good)    :good)
84    
85    ;;; Test that do-all-symbols accepts declarations
86    
87    (deftest do-all-symbols.9
88      (let ((x 0)
89            (y 1))
90        (do-all-symbols (z nil)
91          (declare (type (integer * 0) x))
92          (declare (type (integer 1 *) y))
93          (declare (ignore z))
94          (when (< x y) (return :good))))
95      :good)
96    
97    ;;; Default return is NIL
98    
99    (deftest do-all-symbols.10
100      (do-all-symbols (s) (declare (ignore s)))
101      nil)

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

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