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

Diff of /gcl/ansi-tests/let.lsp

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

revision 1.3 by pfdietz, Sun Oct 13 01:25:10 2002 UTC revision 1.4 by pfdietz, Mon Oct 14 12:41:55 2002 UTC
# Line 48  Line 48 
48      x)      x)
49    (a b c))    (a b c))
50    
51  (deftest let.8  ;;;(deftest let.8
52    (let ((x 0) (x 1)) x)  ;;;  (let ((x 0) (x 1)) x)
53    1)  ;;;  1)
54    
55  (deftest let.9  (deftest let.9
56    (let (x y z) (values x y z))    (let (x y z) (values x y z))
57    nil nil nil)    nil nil nil)
58    
59  (deftest let.10  ;;; (deftest let.10
60    (let ((x 1) x) x)  ;;;  (let ((x 1) x) x)
61    nil)  ;;;  nil)
62    
63  (deftest let.11  (deftest let.11
64    (let ((x 1))    (let ((x 1))
# Line 69  Line 69 
69            x))            x))
70    (1 nil 1))    (1 nil 1))
71    
72  (deftest let.12  ;;; (deftest let.12
73    (let ((x 0))  ;;;  (let ((x 0))
74      (values  ;;;    (values
75       (let ((x 20)  ;;;     (let ((x 20)
76             (x (1+ x)))  ;;;        (x (1+ x)))
77         x)  ;;;       x)
78       x))  ;;;     x))
79    1 0)  ;;;   1 0)
80    
81  (deftest let.13  ;;; (deftest let.13
82    (flet ((%f () (declare (special x))  ;;;  (flet ((%f () (declare (special x))
83               (if (boundp 'x) x 10)))  ;;;          (if (boundp 'x) x 10)))
84      (let ((x 1)  ;;;    (let ((x 1)
85            (x (1+ (%f))))  ;;;       (x (1+ (%f))))
86        (declare (special x))  ;;;      (declare (special x))
87        x))  ;;;      x))
88    11)  ;;;  11)
89    
90  ;;; Tests for LET*  ;;; Tests for LET*
91    
# Line 155  Line 155 
155      (values x y z))      (values x y z))
156    3 2 5)    3 2 5)
157    
158  (deftest let*.13  ;;; (deftest let*.13
159    (flet ((%f () (declare (special x)) x))  ;;;  (flet ((%f () (declare (special x)) x))
160      (let* ((x 1)  ;;;    (let* ((x 1)
161             (x (1+ (%f))))  ;;;        (x (1+ (%f))))
162        (declare (special x))  ;;;      (declare (special x))
163        x))  ;;;      x))
164    2)  ;;;  2)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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