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

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

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

revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Mon Nov 4 04:31:48 2002 UTC
# Line 32  Line 32 
32    (let* ((x (make-array 5 :initial-contents '(1 2 3 4 5)    (let* ((x (make-array 5 :initial-contents '(1 2 3 4 5)
33                          :fill-pointer t :adjustable t))                          :fill-pointer t :adjustable t))
34           (y (nreverse x)))           (y (nreverse x)))
35      (values y (equal (type-of x) (type-of y))))      (values y (equalt (type-of x) (type-of y))))
36    #(5 4 3 2 1)    #(5 4 3 2 1)
37    t)    t)
38    
39  (deftest nreverse-bitstring.1  (deftest nreverse-nonsimple-vector.3
40      (let* ((x (make-array 10 :initial-contents '(1 2 3 4 5 6 7 8 9 10)
41                            :fill-pointer 5))
42             (y (nreverse x)))
43        (values y (equalt (type-of x) (type-of y))))
44      #(5 4 3 2 1)
45      t)
46    
47    (deftest nreverse-bit-vector.1
48    (nreverse #*)    (nreverse #*)
49    #*)    #*)
50    
51  (deftest nreverse-bitstring.2  (deftest nreverse-bit-vector.2
52    (let ((x (copy-seq #*000110110110)))    (let ((x (copy-seq #*000110110110)))
53      (nreverse x))      (nreverse x))
54    #*011011011000)    #*011011011000)
55    
56    (deftest nreverse-bit-vector.3
57      (let* ((x (make-array 10 :initial-contents '(0 0 0 1 1 0 1 0 1 0)
58                            :fill-pointer 5
59                            :element-type 'bit))
60             (y (nreverse x)))
61        y)
62      #*11000)
63    
64  (deftest nreverse-string.1  (deftest nreverse-string.1
65    (nreverse "")    (nreverse "")
66    "")    "")
# Line 54  Line 70 
70      (nreverse x))      (nreverse x))
71    "011011011000")    "011011011000")
72    
73    (deftest nreverse-string.3
74      (let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list)
75                            :fill-pointer 5
76                            :element-type 'character))
77             (y (nreverse x)))
78        y)
79      "edcba")
80    
81    (deftest nreverse-string.4
82      (let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list)
83                            :fill-pointer 5
84                            :element-type 'base-char))
85             (y (nreverse x)))
86        y)
87      "edcba")
88    
89  (deftest nreverse-error.1  (deftest nreverse-error.1
90    (catch-type-error (nreverse 'a))    (catch-type-error (nreverse 'a))
91    type-error)    type-error)

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