Skip to content
Snippets Groups Projects
Commit 6da699c4 authored by pfdietz's avatar pfdietz
Browse files

Add checks for name in undefined-function errors

parent 417194ff
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment