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

Diff of /gcl/ansi-tests/adjustable-array-p.lsp

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

revision 1.6 by pfdietz, Sat Jan 17 23:15:54 2004 UTC revision 1.7 by pfdietz, Thu May 5 03:08:56 2005 UTC
# Line 44  Line 44 
44    t)    t)
45    
46  (deftest adjustable-array-p.error.3  (deftest adjustable-array-p.error.3
47    (signals-error (adjustable-array-p 10) type-error)    (signals-type-error x 10 (adjustable-array-p x))
48    t)    t)
49    
50  (deftest adjustable-array-p.error.4  (deftest adjustable-array-p.error.4
51    (loop for e in *mini-universe*    (loop for e in *mini-universe*
52          unless (or (typep e 'array)          unless (or (typep e 'array)
53                     (eval `(signals-error (adjustable-array-p ',e)                     (eval `(signals-type-error x ',e (adjustable-array-p x))))
                                          type-error)))  
54          collect e)          collect e)
55    nil)    nil)
56    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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