From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 8 Aug 2019 19:07:23 +0000 (+0100)
Subject: src/class-finalize-impl.lisp: Fix bungled format string.
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/67678b0be4da2701655d3d52db205d815f0687ea

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

diff --git a/src/class-finalize-impl.lisp b/src/class-finalize-impl.lisp
index 320dabe..58dc508 100644
--- a/src/class-finalize-impl.lisp
+++ b/src/class-finalize-impl.lisp
@@ -447,7 +447,7 @@
   (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,