112 |
(destructuring-bind (&rest x &key) nil x) |
(destructuring-bind (&rest x &key) nil x) |
113 |
nil) |
nil) |
114 |
|
|
115 |
|
(deftest destructuring-bind.25 |
116 |
|
(let ((x :bad)) |
117 |
|
(declare (special x)) |
118 |
|
(let ((x :good)) |
119 |
|
(destructuring-bind (y) (list x) |
120 |
|
(declare (special x)) |
121 |
|
y))) |
122 |
|
:good) |
123 |
|
|
124 |
|
(deftest destructuring-bind.26 |
125 |
|
(destructuring-bind (x) (list 1)) |
126 |
|
nil) |
127 |
|
|
128 |
|
(deftest destructuring-bind.27 |
129 |
|
(destructuring-bind (x) (list 1) |
130 |
|
(declare (optimize))) |
131 |
|
nil) |
132 |
|
|
133 |
|
(deftest destructuring-bind.28 |
134 |
|
(destructuring-bind (x) (list 1) |
135 |
|
(declare (optimize)) |
136 |
|
(declare)) |
137 |
|
nil) |
138 |
|
|
139 |
;;; Error cases |
;;; Error cases |
140 |
|
|
141 |
#| |
#| |