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

Diff of /gcl/ansi-tests/nbutlast.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 47  Line 47 
47    (nbutlast (list 'a 'b 'c 'd) (1+ most-positive-fixnum))    (nbutlast (list 'a 'b 'c 'd) (1+ most-positive-fixnum))
48    nil)    nil)
49    
50    (deftest nbutlast.8
51      (nbutlast (list 'a 'b 'c 'd) most-positive-fixnum)
52      nil)
53    
54    (deftest nbutlast.9
55      (nbutlast (list 'a 'b 'c 'd) (1- most-positive-fixnum))
56      nil)
57    
58  (deftest nbutlast.order.1  (deftest nbutlast.order.1
59    (let ((i 0) x y)    (let ((i 0) x y)
60      (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