From 57371c7ec7e3c35aa396ad6b49594ea7395cdd8e Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 1 May 2005 01:30:23 +0000
Subject: [PATCH] Make specializers be classes in find-method call

---
 ansi-tests/universe.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/universe.lsp b/ansi-tests/universe.lsp
index c861ec2f..8d38ad2c 100644
--- a/ansi-tests/universe.lsp
+++ b/ansi-tests/universe.lsp
@@ -468,9 +468,9 @@
 
 (defparameter *methods*
   (list
-   #+(or (not :gcl) :ansi-cl)
+   #+(or (not :gcl) :ansi-cl )
    (find-method #'meaningless-user-generic-function-for-universe nil
-		'(integer integer integer))
+		(mapcar #'find-class '(integer integer integer)))
    ;; Add more methods here
    ))
    
-- 
GitLab