/[gcl]/gcl/ansi-tests/cons-test-11.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-11.lsp

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

revision 1.8 by pfdietz, Sat Feb 8 06:23:02 2003 UTC revision 1.9 by pfdietz, Mon Feb 17 04:22:03 2003 UTC
# Line 100  Line 100 
100              count (eqt c1 c2)))))              count (eqt c1 c2)))))
101    0)    0)
102    
103  (deftest ldiff.9  (deftest ldiff.order.1
104    (let ((i 0) x y)    (let ((i 0) x y)
105      (values      (values
106       (ldiff (progn (setf x (incf i))       (ldiff (progn (setf x (incf i))
# Line 108  Line 108 
108              (progn (setf y (incf i))              (progn (setf y (incf i))
109                     'd))                     'd))
110       i x y))       i x y))
111    (a b c) 2 1 2)                  (a b c) 2 1 2)      
112    
113  ;; Error checking  ;; Error checking
114    
# Line 182  Line 182 
182       t))       t))
183    t)    t)
184    
   
185  ;; The next four tests test that tailp handles dotted lists.  See  ;; The next four tests test that tailp handles dotted lists.  See
186  ;; TAILP-NIL:T in the X3J13 documentation.  ;; TAILP-NIL:T in the X3J13 documentation.
187    
# Line 251  Line 250 
250    0)    0)
251  |#  |#
252            
253  (deftest tailp.8  (deftest tailp.order.1
254    (let ((i 0) x y)    (let ((i 0) x y)
255      (values      (values
256       (notnot       (notnot

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

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