/[gcl]/gcl/ansi-tests/multiple-value-prog1.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/multiple-value-prog1.lsp

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

revision 1.1 by pfdietz, Sat Oct 19 12:55:37 2002 UTC revision 1.2 by camm, Sat Oct 26 16:18:13 2002 UTC
# Line 45  Line 45 
45       x y))       x y))
46    (1 0 2 10))    (1 0 2 10))
47    
48  #|  
49  (deftest multiple-value-prog1.8  (deftest multiple-value-prog1.8
50    (let* ((n (min 100 multiple-values-limit)))    (let* ((n (min 100 multiple-values-limit)))
51      (not      (not
# Line 58  Line 58 
58                                            nil)))                                            nil)))
59              x))))              x))))
60    nil)    nil)
61  |#  
62    
63  (deftest multiple-value-prog1.9  (deftest multiple-value-prog1.9
64    (let ((x 0) (y 0))    (let ((x 0) (y 0))

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