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 |