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

Diff of /gcl/ansi-tests/butlast.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, Mon Jun 30 23:47:15 2003 UTC
# Line 45  Line 45 
45    (butlast (copy-tree '(a b c . d)) 1)    (butlast (copy-tree '(a b c . d)) 1)
46    (a b))    (a b))
47    
48    (deftest butlast.6
49      (butlast '(a b c d e) (1+ most-positive-fixnum))
50      nil)
51    
52  (deftest butlast.order.1  (deftest butlast.order.1
53    (let ((i 0) x y)    (let ((i 0) x y)
54      (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