Commit 6da699c4 authored by pfdietz's avatar pfdietz

Add checks for name in undefined-function errors

parent 417194ff
......@@ -47,5 +47,7 @@
t)
(deftest eval.error.3
(signals-error (eval (list (gensym))) undefined-function)
(let ((v (gensym)))
(eval `(signals-error (eval (list ',v)) undefined-function
:name ,v)))
t)
......@@ -16,15 +16,19 @@
t)
(deftest fdefinition.error.3
(signals-error (fdefinition (gensym)) undefined-function)
(let ((v (gensym)))
(eval `(signals-error (fdefinition ',v) undefined-function
:name ,v)))
t)
(deftest fdefinition.error.4
(signals-error (fdefinition 10) type-error)
(signals-error (fdefinition 10) type-error :name 10)
t)
(deftest fdefinition.error.5
(signals-error (fdefinition (list 'setf (gensym))) undefined-function)
(let ((fn `(setf ,(gensym))))
(eval `(signals-error (fdefinition ',fn) undefined-function
:name ,fn)))
t)
(deftest fdefinition.error.6
......
......@@ -73,18 +73,19 @@
;;; called on a symbol with a global definition as a special
;;; operator
(deftest funcall.error.1
(signals-error (funcall 'quote 1) undefined-function)
(signals-error (funcall 'quote 1) undefined-function :name quote)
t)
(deftest funcall.error.2
(signals-error (funcall 'progn 1) undefined-function)
(signals-error (funcall 'progn 1) undefined-function :name progn)
t)
;;; FUNCALL should throw an UNDEFINED-FUNCTION condition when
;;; called on a symbol with a global definition as a macro
(deftest funcall.error.3
(signals-error (funcall 'defconstant '(defconstant x 10))
undefined-function)
undefined-function
:name defconstant)
t)
(deftest funcall.error.4
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment