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