129 |
;;; (classify-error (destructuring-bind x)) |
;;; (classify-error (destructuring-bind x)) |
130 |
;;; program-error) |
;;; program-error) |
131 |
|
|
132 |
|
(deftest destructuring-bind.error.7 |
133 |
|
(classify-error (funcall (macro-function 'destructuring-bind))) |
134 |
|
program-error) |
135 |
|
|
136 |
|
(deftest destructuring-bind.error.8 |
137 |
|
(classify-error (funcall (macro-function 'destructuring-bind) |
138 |
|
'(destructuring-bind (a . b) '(1 2) nil))) |
139 |
|
program-error) |
140 |
|
|
141 |
|
(deftest destructuring-bind.error.9 |
142 |
|
(classify-error (funcall (macro-function 'destructuring-bind) |
143 |
|
'(destructuring-bind (a . b) '(1 2) nil) |
144 |
|
nil nil)) |
145 |
|
program-error) |
146 |
|
|