From 5703d225484b59e8a9a31c65edab232c31c7f5ed Mon Sep 17 00:00:00 2001 From: camm <camm@localhost> Date: Tue, 7 Oct 2003 21:06:32 +0000 Subject: [PATCH] Initial setf function implementation, removes about 1/5 of ansi test failures --- ansi-tests/class-precedence-lists.lsp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ansi-tests/class-precedence-lists.lsp b/ansi-tests/class-precedence-lists.lsp index d2d63d31..541dca3e 100644 --- a/ansi-tests/class-precedence-lists.lsp +++ b/ansi-tests/class-precedence-lists.lsp @@ -8,10 +8,11 @@ (eval-when (:load-toplevel :compile-toplevel :execute) (unless #| (fboundp 'class-precedence-list) |# nil (report-and-ignore-errors - (defgeneric class-precedence-list (x) + (defgeneric class-precedence-list-foo (x) (:method-combination list) . #.(loop for s in *cl-types-that-are-classes-symbols* + when (ignore-errors (pcl::find-class-from-cell s (pcl::find-class-cell s))) collect `(:method list ((x ,s)) ',s)))))) @@ -27,7 +28,7 @@ "-CPL") :cl-test)) (let* ((obj ,objform) - (cpl (class-precedence-list obj))) + (cpl (class-precedence-list-foo obj))) (or ,(if ordered nil `(and (not (eql (class-of obj) (find-class ',(first expected-cpl)))) -- GitLab