X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fctor.impure.lisp;h=3d8e1b4f7961fc635cfc1c417abc855bb69d06c8;hb=273757631306c5d5c36f3aa7fed496a6d5c5f35e;hp=e8fecb14ecc5241a7cb7fc8da5d9860506c4a1ea;hpb=a6bd77d792d22785860bd082d55692f4a1c65fd7;p=sbcl.git

diff --git a/tests/ctor.impure.lisp b/tests/ctor.impure.lisp
index e8fecb1..3d8e1b4 100644
--- a/tests/ctor.impure.lisp
+++ b/tests/ctor.impure.lisp
@@ -68,7 +68,7 @@
   (make-instance 'one-slot-subclass :b b))
 (compile 'make-one-slot-subclass)
 
-(defmethod update-instance-for-redifined-class
+(defmethod update-instance-for-redefined-class
     ((object one-slot-superclass) added discarded plist &rest initargs)
   (declare (ignore initargs))
   (error "Called U-I-F-R-C on ~A" object))