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)) |
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 |
|
|
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) |