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

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

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

revision 1.2 by pfdietz, Sat Jan 25 17:59:57 2003 UTC revision 1.3 by pfdietz, Sun Jan 26 14:28:55 2003 UTC
# Line 31  Line 31 
31    (notnot-mv (typep #*010101 'array))    (notnot-mv (typep #*010101 'array))
32    t)    t)
33    
34    (deftest array.1.7
35      (typep nil 'array)
36      nil)
37    
38    (deftest array.1.8
39      (typep 'x 'array)
40      nil)
41    
42    (deftest array.1.9
43      (typep '(a b c) 'array)
44      nil)
45    
46    (deftest array.1.10
47      (typep 10.0 'array)
48      nil)
49    
50    (deftest array.1.11
51      (typep #'(lambda (x) (cons x nil)) 'array)
52      nil)
53    
54    (deftest array.1.12
55      (typep 1 'array)
56      nil)
57    
58    (deftest array.1.13
59      (typep (1+ most-positive-fixnum) 'array)
60      nil)
61    
62    
63  ;;; Tests of (array *)  ;;; Tests of (array *)
64    
65  (deftest array.2.1  (deftest array.2.1

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