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

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

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

revision 1.4 by pfdietz, Tue Jan 7 03:35:40 2003 UTC revision 1.5 by pfdietz, Thu Jan 9 13:51:00 2003 UTC
# Line 218  Line 218 
218    #2a((x x x) (x x x)))    #2a((x x x) (x x x)))
219    
220  (deftest make-array.16  (deftest make-array.16
221    (make-array-with-checks '(0 0))    (equalpt (make-array-with-checks '(0 0))
222    #2a())             (read-from-string "#2a()"))
223      t)
224    
225  (deftest make-array.17  (deftest make-array.17
226    (make-array-with-checks '(2 3) :initial-contents '((a b c) (d e f)))    (make-array-with-checks '(2 3) :initial-contents '((a b c) (d e f)))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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