X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure.lisp;h=2f642b56ceeed3da82c65fd5ad83033b3a4b868c;hb=df679ed627975948b1cee190f4d79c397588c43e;hp=14787f56967a117b1eaeccd3e2f841a626aca2eb;hpb=5d0643d3b70aade43037e8b7cdf39b7e12f5d3fd;p=sbcl.git

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index 14787f5..2f642b5 100644
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -320,7 +320,9 @@
   (assert-program-error (defclass foo008 ()
 			  (a :initarg :a)
 			  (:default-initargs :a 1)
-			  (:default-initargs :a 2))))
+			  (:default-initargs :a 2)))
+  ;; and also BUG 47d, fixed in sbcl-0.8alpha.0.26
+  (assert-program-error (defgeneric if (x))))
 
 ;;; DOCUMENTATION's argument-precedence-order wasn't being faithfully
 ;;; preserved through the bootstrap process until sbcl-0.7.8.39.