/[gcl]/gcl/ansi-tests/types-and-class.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/types-and-class.lsp

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

revision 1.22 by pfdietz, Sat Feb 1 01:40:36 2003 UTC revision 1.23 by pfdietz, Sat Feb 1 04:39:54 2003 UTC
# Line 257  Line 257 
257          collect sym)          collect sym)
258    nil)    nil)
259    
260    ;;; Confirm that all standard generic functions are instances of
261    ;;; the class standard-generic-function.
262    
263    (deftest all-standard-generic-functions-are-instances-of-that-class
264      (loop for sym in *cl-standard-generic-function-symbols*
265            for fun = (and (fboundp sym) (symbol-function sym))
266            unless (and (typep fun 'generic-function)
267                        (typep fun 'standard-generic-function))
268            collect (list sym fun))
269      nil)
270    
271    
272    ;;; Canonical metaobjects are in the right classes
273    
274    (deftest structure-object-is-in-structure-class
275      (notnot-mv (typep (find-class 'structure-object) 'structure-class))
276      t)
277    
278    (deftest standard-object-is-in-standard-class
279      (notnot-mv (typep (find-class 'standard-object) 'standard-class))
280      t)
281    
282    
283  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

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