21 |
nil) |
nil) |
22 |
|
|
23 |
(deftest function.3 |
(deftest function.3 |
24 |
(not (typep #'identity 'function)) |
(not-mv (typep #'identity 'function)) |
25 |
nil) |
nil) |
26 |
|
|
27 |
(deftest function.4 |
(deftest function.4 |
52 |
(defun (setf function-7-accessor) (y x) (setf (car x) y) y))) |
(defun (setf function-7-accessor) (y x) (setf (car x) y) y))) |
53 |
|
|
54 |
(deftest function.7 |
(deftest function.7 |
55 |
(not (typep #'(setf function-7-accessor) 'function)) |
(not-mv (typep #'(setf function-7-accessor) 'function)) |
56 |
nil) |
nil) |
57 |
|
|
58 |
(deftest function.8 |
(deftest function.8 |
59 |
(not (typep #'(lambda (x) x) 'function)) |
(not-mv (typep #'(lambda (x) x) 'function)) |
60 |
nil) |
nil) |
61 |
|
|
62 |
(deftest function.9 |
(deftest function.9 |
63 |
(not (typep (compile nil '(lambda (x) x)) 'function)) |
(not-mv (typep (compile nil '(lambda (x) x)) 'function)) |
64 |
nil) |
nil) |
65 |
|
|
66 |
;;; The next test demonstrates an incompatibility between CLtL1 and ANSI CL. |
;;; The next test demonstrates an incompatibility between CLtL1 and ANSI CL. |
79 |
nil) |
nil) |
80 |
|
|
81 |
(deftest function.12 |
(deftest function.12 |
82 |
(flet ((%f () nil)) (not (typep #'%f 'function))) |
(flet ((%f () nil)) (not-mv (typep #'%f 'function))) |
83 |
nil) |
nil) |
84 |
|
|
85 |
(deftest function.13 |
(deftest function.13 |
86 |
(labels ((%f () nil)) (not (typep #'%f 'function))) |
(labels ((%f () nil)) (not-mv (typep #'%f 'function))) |
87 |
nil) |
nil) |
88 |
|
|
89 |
;;; "If name is a function name, the functional definition of that |
;;; "If name is a function name, the functional definition of that |
91 |
;;; labels, or macrolet form, if there is one." (page for FUNCTION, sec. 5.3) |
;;; labels, or macrolet form, if there is one." (page for FUNCTION, sec. 5.3) |
92 |
;;; ^^^^^^^^ |
;;; ^^^^^^^^ |
93 |
;;;(deftest function.14 |
;;;(deftest function.14 |
94 |
;;; (macrolet ((%f () nil)) (not (typep #'%f 'function))) |
;;; (macrolet ((%f () nil)) (not-mv (typep #'%f 'function))) |
95 |
;;; nil) |
;;; nil) |