/[gcl]/gcl/ansi-tests/array-dimensions.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/array-dimensions.lsp

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

revision 1.2 by pfdietz, Wed Jan 22 04:26:22 2003 UTC revision 1.3 by pfdietz, Wed Jan 22 12:59:55 2003 UTC
# Line 50  Line 50 
50    program-error)    program-error)
51    
52  (deftest array-dimensions.error.3  (deftest array-dimensions.error.3
53    (loop for e in *mini-universe*    (let (why)
54          unless (or (typep e 'array)      (loop for e in *mini-universe*
55                     (eq 'type-error            unless (or (typep e 'array)
56                         (classify-error** `(array-dimensions ',e))))                       (eq 'type-error
57          collect e)                           (setq why (classify-error**
58                                        `(array-dimensions ',e)))))
59              collect (list e why)))
60    nil)    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