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

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

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

revision 1.1 by pfdietz, Wed Jan 22 02:44:51 2003 UTC revision 1.2 by pfdietz, Wed Jan 22 12:59:55 2003 UTC
# Line 105  Line 105 
105    program-error)    program-error)
106    
107  (deftest array-displacement.error.3  (deftest array-displacement.error.3
108    (loop for e in *mini-universe*    (let (why)
109          unless (or (typep e 'array)      (loop for e in *mini-universe*
110                     (eq 'type-error            unless (or (typep e 'array)
111                         (classify-error** `(array-displacement ',e))))                       (eq 'type-error
112          collect e)                           (setq why (classify-error**
113                                        `(array-displacement ',e)))))
114            collect (list e why)))
115    nil)    nil)

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