83 |
(def-all-error-test destructuring-bind.3 |
(def-all-error-test destructuring-bind.3 |
84 |
(typef '(or symbol cons)) |
(typef '(or symbol cons)) |
85 |
#'(lambda (x) `(destructuring-bind ,x nil))) |
#'(lambda (x) `(destructuring-bind ,x nil))) |
86 |
|
(def-error-test destructuring-bind.4 (destructuring-bind (x) '(a) nil (declare) x)) |
87 |
|
|
88 |
;;; LET |
;;; LET |
89 |
|
|
102 |
(def-all-error-test let.12 'symbolp |
(def-all-error-test let.12 'symbolp |
103 |
#'(lambda (x) `(let ((,x)) nil))) |
#'(lambda (x) `(let ((,x)) nil))) |
104 |
|
|
105 |
|
(def-error-test let.13 (let ((x 0) (x 1)) x)) |
106 |
|
|
107 |
;;; LET* |
;;; LET* |
108 |
|
|
109 |
(def-error-test let*.1 (let*)) |
(def-error-test let*.1 (let*)) |