/[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.7 by pfdietz, Sat Jan 17 22:34:46 2004 UTC revision 1.8 by pfdietz, Tue Sep 21 13:07:11 2004 UTC
# Line 91  Line 91 
91      (stable-sort a #'char<))      (stable-sort a #'char<))
92    "00111")    "00111")
93    
94    (deftest stable-sort-string.4
95      (do-special-strings
96       (s "aebdc" nil)
97       (let ((s2 (stable-sort s #'char<)))
98         (assert (eq s s2))
99         (assert (string= s2 "abcde"))))
100      nil)
101    
102  ;;; Order of evaluation tests  ;;; Order of evaluation tests
103    
104  (deftest stable-sort.order.1  (deftest stable-sort.order.1

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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