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

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

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

revision 1.9 by pfdietz, Fri Dec 20 04:04:58 2002 UTC revision 1.10 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 21  Line 21 
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
# Line 52  Line 52 
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.
# Line 79  Line 79 
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
# Line 91  Line 91 
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)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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