/[gcl]/gcl/ansi-tests/class-precedence-lists.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/class-precedence-lists.lsp

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

revision 1.6 by pfdietz, Wed Jun 18 13:27:28 2003 UTC revision 1.7 by pfdietz, Sat Jul 12 13:46:01 2003 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (unless #| (fboundp 'class-precedence-list) |# nil  (eval-when (:load-toplevel :compile-toplevel :execute)
9    (defgeneric class-precedence-list (x)    (unless #| (fboundp 'class-precedence-list) |# nil
10      (:method-combination list)      (report-and-ignore-errors
11      .        (defgeneric class-precedence-list (x)
12      #.(loop for s in *cl-types-that-are-classes-symbols*          (:method-combination list)
13              collect          .
14              `(:method list ((x ,s)) ',s))))          #.(loop for s in *cl-types-that-are-classes-symbols*
15                    collect
16                    `(:method list ((x ,s)) ',s))))))
17    
18  (defmacro def-cpl-test (objform expected-cpl &optional name)  (defmacro def-cpl-test (objform expected-cpl &optional name)
19    (let* ((ordered (loop for e = expected-cpl then (cdr e)    (let* ((ordered (loop for e = expected-cpl then (cdr e)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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