/[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.1 by pfdietz, Thu Oct 10 03:19:37 2002 UTC revision 1.2 by pfdietz, Mon Jan 13 14:11:50 2003 UTC
# Line 42  Line 42 
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    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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