42 |
;;; FUNCALL should throw an UNDEFINED-FUNCTION condition when |
;;; FUNCALL should throw an UNDEFINED-FUNCTION condition when |
43 |
;;; called on a symbol with a global definition as a special |
;;; called on a symbol with a global definition as a special |
44 |
;;; operator |
;;; operator |
45 |
(deftest funcall.8 |
(deftest funcall.error.1 |
46 |
(classify-error (funcall 'quote 1)) |
(classify-error (funcall 'quote 1)) |
47 |
undefined-function) |
undefined-function) |
48 |
|
|
49 |
(deftest funcall.9 |
(deftest funcall.error.2 |
50 |
(classify-error (funcall 'progn 1)) |
(classify-error (funcall 'progn 1)) |
51 |
undefined-function) |
undefined-function) |
52 |
|
|
53 |
;;; FUNCALL should throw an UNDEFINED-FUNCTION condition when |
;;; FUNCALL should throw an UNDEFINED-FUNCTION condition when |
54 |
;;; called on a symbol with a global definition as a macro |
;;; called on a symbol with a global definition as a macro |
55 |
(deftest funcall.10 |
(deftest funcall.error.3 |
56 |
(classify-error (funcall 'defconstant '(defconstant x 10))) |
(classify-error (funcall 'defconstant '(defconstant x 10))) |
57 |
undefined-function) |
undefined-function) |
58 |
|
|
59 |
|
(deftest funcall.error.4 |
60 |
|
(classify-error (funcall)) |
61 |
|
program-error) |
62 |
|
|