X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop.impure.lisp;h=e69a1ea6a41ffc1182b3fefa60726552504dfc13;hb=fb03344c5e8388e0b16512f1cb662d8cf5d13972;hp=8b18720341fea45f0b5bc822f7d38b722e5edb83;hpb=4910cad99c5f9c86db7029eadc46a94bdb309d39;p=sbcl.git

diff --git a/tests/mop.impure.lisp b/tests/mop.impure.lisp
index 8b18720..e69a1ea 100644
--- a/tests/mop.impure.lisp
+++ b/tests/mop.impure.lisp
@@ -480,5 +480,10 @@
              ()
              (:metaclass funcallable-standard-class))
            (make-instance 'bad-funcallable-standard-class))))
-
+
+;;; we should be able to make classes with silly names
+(make-instance 'standard-class :name 3)
+(defclass foo () ())
+(reinitialize-instance (find-class 'foo) :name '(a b))
+
 ;;;; success