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

Diff of /gcl/ansi-tests/stable-sort.lsp

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

revision 1.2 by pfdietz, Mon Nov 4 04:31:48 2002 UTC revision 1.3 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 85  Line 85 
85    "11111000")    "11111000")
86    
87  (deftest stable-sort-string.3  (deftest stable-sort-string.3
88    (let ((a (make-array 10 :initial-contents (coerce "1001111011" 'list)    (let ((a (make-array 10 :initial-contents "1001111011"
89                         :element-type 'character                         :element-type 'character
90                         :fill-pointer 5)))                         :fill-pointer 5)))
91      (stable-sort a #'char<))      (stable-sort a #'char<))

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