X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fmop-3.impure-cload.lisp;h=cb6f609903d55af3c71743e3bfba9fe710c92861;hb=260de2062fca170efdac3e42491d7d866c2d2e56;hp=44b3a84b1938162570fe2f2e4b9a26b34ca3d50c;hpb=92c8db80e039f60623e53a0b9355cf0a9ec49f3d;p=sbcl.git

diff --git a/tests/mop-3.impure-cload.lisp b/tests/mop-3.impure-cload.lisp
index 44b3a84..cb6f609 100644
--- a/tests/mop-3.impure-cload.lisp
+++ b/tests/mop-3.impure-cload.lisp
@@ -12,10 +12,7 @@
 ;;;; more information.
 
 ;;; This file contains two tests for COMPUTE-APPLICABLE-METHODS on
-;;; subclasses of generic functions.  However, at present it is
-;;; impossible to have both of these in the same image, because of a
-;;; vicious metacircle.  Once the vicious metacircle is dealt with,
-;;; uncomment the second test case.
+;;; subclasses of generic functions.
 
 ;;; tests from Bruno Haible (sbcl-devel 2004-08-02)
 
@@ -58,7 +55,6 @@
 (assert (equalp (list (testgf07 5.0) (testgf07 17))
                 '((number real) #(number real integer))))
 
-#|
 (defclass nonumber-generic-function (standard-generic-function)
   ()
   (:metaclass funcallable-standard-class))
@@ -89,6 +85,3 @@
 
 (assert (equalp (list (testgf08 5.0) (testgf08 17))
                 '((real) #(integer real))))
-|#
-
-(sb-ext:quit :unix-status 104)