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

Diff of /gcl/ansi-tests/sort.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 37  Line 37 
37      (sort a #'<))      (sort a #'<))
38    #(1 2 3 4 5))    #(1 2 3 4 5))
39    
40    (deftest sort-vector.4
41      (let ((a (make-array 10 :initial-contents '(10 40 20 50 30 15 45 25 55 35)
42                           :fill-pointer 5)))
43        (sort a #'<))
44      #(10 20 30 40 50))
45    
46  (deftest sort-bit-vector.1  (deftest sort-bit-vector.1
47    (let ((a (copy-seq #*10011101)))    (let ((a (copy-seq #*10011101)))
48      (sort a #'<))      (sort a #'<))
# Line 48  Line 54 
54    #*11111000    #*11111000
55    #*11111000)    #*11111000)
56    
57    (deftest sort-bit-vector.3
58      (let ((a (make-array 10 :initial-contents '(1 0 0 1 1 1 1 0 1 1)
59                           :element-type 'bit
60                           :fill-pointer 5)))
61        (sort a #'<))
62      #*00111)
63    
64  (deftest sort-string.1  (deftest sort-string.1
65    (let ((a (copy-seq "10011101")))    (let ((a (copy-seq "10011101")))
66      (values (sort a #'char<) a))      (values (sort a #'char<) a))
# Line 60  Line 73 
73    "11111000"    "11111000"
74    "11111000")    "11111000")
75    
76    (deftest sort-string.3
77      (let ((a (make-array 10 :initial-contents (coerce "1001111011" 'list)
78                           :element-type 'character
79                           :fill-pointer 5)))
80        (sort a #'char<))
81      "00111")
82    
83    
84    
85    
86    

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