/[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.8 by camm, Tue Oct 7 21:06:32 2003 UTC revision 1.9 by pfdietz, Wed Oct 8 00:16:07 2003 UTC
# Line 12  Line 12 
12          (:method-combination list)          (:method-combination list)
13          .          .
14          #.(loop for s in *cl-types-that-are-classes-symbols*          #.(loop for s in *cl-types-that-are-classes-symbols*
15                  when (ignore-errors (pcl::find-class-from-cell s (pcl::find-class-cell s)))                  ;; FIXME
16                    ;; This was added to get gcl to not abort here,
17                    ;; but it masks ANSI noncompliance
18                    #+gcl when #+gcl (ignore-errors (pcl::find-class-from-cell
19                                                     s (pcl::find-class-cell s)))
20                  collect                  collect
21                  `(:method list ((x ,s)) ',s))))))                  `(:method list ((x ,s)) ',s))))))
22    

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

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