src/class-finalize-impl.lisp: Fix bungled format string.

diff --git a/src/class-finalize-impl.lisp b/src/class-finalize-impl.lisp
index 320dabe8d0a9aca5dd336b0a77ef9ad8aa496576..58dc50842b2bb1c619633293d3300b5efba61e75 100644 (file)
--- a/src/class-finalize-impl.lisp
+++ b/src/class-finalize-impl.lisp
@@ -447,7 +447,7 @@ (defmethod check-sod-class ((class sod-class))
   (let ((link (sod-class-chain-link class)))
     (unless (or (not link)
                (member link (cdr (sod-class-precedence-list class))))
   (let ((link (sod-class-chain-link class)))
     (unless (or (not link)
                (member link (cdr (sod-class-precedence-list class))))

-      (cerror* "In `~A~, chain-to class `~A' is not a proper superclass"
+      (cerror* "In `~A', chain-to class `~A' is not a proper superclass"

               class link)))
 
   ;; Check that the initargs declare compatible types.  Duplicate entries,
               class link)))
 
   ;; Check that the initargs declare compatible types.  Duplicate entries,