43 |
;;; "This is a docstring" |
;;; "This is a docstring" |
44 |
;;; "This is an unnecessary extra argument.")) |
;;; "This is an unnecessary extra argument.")) |
45 |
;;; program-error) |
;;; program-error) |
46 |
|
|
47 |
|
(deftest defconstant.error.1 |
48 |
|
(classify-error (funcall (macro-function 'defconstant))) |
49 |
|
program-error) |
50 |
|
|
51 |
|
(deftest defconstant.error.2 |
52 |
|
(classify-error (funcall (macro-function 'defconstant) |
53 |
|
'(defconstant +nonexistent-constant+ 0))) |
54 |
|
program-error) |
55 |
|
|
56 |
|
(deftest defconstant.error.3 |
57 |
|
(classify-error (funcall (macro-function 'defconstant) |
58 |
|
'(defconstant +nonexistent-constant+ 0) |
59 |
|
nil nil)) |
60 |
|
program-error) |
61 |
|
|