/[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.2 by pfdietz, Mon Jan 13 14:11:50 2003 UTC revision 1.3 by pfdietz, Mon Jan 13 23:19:51 2003 UTC
# Line 39  Line 39 
39    (1 . 2)    (1 . 2)
40    (2 1))    (2 1))
41    
42    (deftest funcall.8
43      (flet ((foo (x y z) (values x y z)))
44        (funcall #'foo 1 2 3))
45      1 2 3)
46    
47    (deftest funcall.9
48      (flet ((foo () (values)))
49        (funcall #'foo))
50      )
51    
52    
53    
54  ;;; FUNCALL should throw an UNDEFINED-FUNCTION condition when  ;;; FUNCALL should throw an UNDEFINED-FUNCTION condition when
55  ;;; called on a symbol with a global definition as a special  ;;; called on a symbol with a global definition as a special
56  ;;; operator  ;;; operator

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

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