73 |
;;; called on a symbol with a global definition as a special |
;;; called on a symbol with a global definition as a special |
74 |
;;; operator |
;;; operator |
75 |
(deftest funcall.error.1 |
(deftest funcall.error.1 |
76 |
(signals-error (funcall 'quote 1) undefined-function) |
(signals-error (funcall 'quote 1) undefined-function :name quote) |
77 |
t) |
t) |
78 |
|
|
79 |
(deftest funcall.error.2 |
(deftest funcall.error.2 |
80 |
(signals-error (funcall 'progn 1) undefined-function) |
(signals-error (funcall 'progn 1) undefined-function :name progn) |
81 |
t) |
t) |
82 |
|
|
83 |
;;; FUNCALL should throw an UNDEFINED-FUNCTION condition when |
;;; FUNCALL should throw an UNDEFINED-FUNCTION condition when |
84 |
;;; called on a symbol with a global definition as a macro |
;;; called on a symbol with a global definition as a macro |
85 |
(deftest funcall.error.3 |
(deftest funcall.error.3 |
86 |
(signals-error (funcall 'defconstant '(defconstant x 10)) |
(signals-error (funcall 'defconstant '(defconstant x 10)) |
87 |
undefined-function) |
undefined-function |
88 |
|
:name defconstant) |
89 |
t) |
t) |
90 |
|
|
91 |
(deftest funcall.error.4 |
(deftest funcall.error.4 |