/[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.2 by pfdietz, Mon Jun 30 23:47:15 2003 UTC revision 1.3 by pfdietz, Tue Jul 1 12:16:10 2003 UTC
# Line 49  Line 49 
49    (butlast '(a b c d e) (1+ most-positive-fixnum))    (butlast '(a b c d e) (1+ most-positive-fixnum))
50    nil)    nil)
51    
52    (deftest butlast.7
53      (butlast '(a b c d e) most-positive-fixnum)
54      nil)
55    
56    (deftest butlast.8
57      (butlast '(a b c d e) (1- most-positive-fixnum))
58      nil)
59    
60  (deftest butlast.order.1  (deftest butlast.order.1
61    (let ((i 0) x y)    (let ((i 0) x y)
62      (values      (values

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