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

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

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

revision 1.1 by pfdietz, Sun Apr 20 13:17:45 2003 UTC revision 1.2 by pfdietz, Sat Jun 14 15:10:40 2003 UTC
# Line 84  Line 84 
84            :test-not (complement #'equal) :key nil)            :test-not (complement #'equal) :key nil)
85    (aaa "AAA" "aaa" #\a))    (aaa "AAA" "aaa" #\a))
86    
87    ;;; Ordering in comparison function
88    
89    (deftest adjoin.19
90      (adjoin 10 '(1 2 3) :test #'<)
91      (10 1 2 3))
92    
93    (deftest adjoin.20
94      (adjoin 10 '(1 2 3) :test #'>)
95      (1 2 3))
96    
97    (deftest adjoin.21
98      (adjoin 10 '(1 2 3) :test-not #'>)
99      (10 1 2 3))
100    
101    (deftest adjoin.22
102      (adjoin 10 '(1 2 3) :test-not #'<)
103      (1 2 3))
104    
105    
106  (deftest adjoin.order.1  (deftest adjoin.order.1
107    (let ((i 0) w x y z)    (let ((i 0) w x y z)
108      (values      (values

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