59 |
;;; (deftest unless.error.1 |
;;; (deftest unless.error.1 |
60 |
;;; (classify-error (unless)) |
;;; (classify-error (unless)) |
61 |
;;; program-error) |
;;; program-error) |
62 |
|
|
63 |
|
(deftest unless.error.1 |
64 |
|
(classify-error (funcall (macro-function 'unless))) |
65 |
|
program-error) |
66 |
|
|
67 |
|
(deftest unless.error.2 |
68 |
|
(classify-error (funcall (macro-function 'unless) |
69 |
|
'(unless t))) |
70 |
|
program-error) |
71 |
|
|
72 |
|
(deftest unless.error.3 |
73 |
|
(classify-error (funcall (macro-function 'unless) |
74 |
|
'(unless t) nil nil)) |
75 |
|
program-error) |