/[gcl]/gcl/ansi-tests/funcall.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/funcall.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by pfdietz, Sat Jan 17 13:31:44 2004 UTC revision 1.8 by pfdietz, Mon May 2 11:21:41 2005 UTC
# Line 73  Line 73 
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

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26