src/class-finalize-impl.lisp (clos-tiebreaker): Refactor.

[sod] / src / c-types-proto.lisp

diff --git a/src/c-types-proto.lisp b/src/c-types-proto.lisp
index f8e758999b216e91442ead0d806e7f085508d98b..43824da3e50f89ef2c0aa0844d59832d30fddddb 100644 (file)
--- a/src/c-types-proto.lisp
+++ b/src/c-types-proto.lisp
@@ -242,7 +242,7 @@ (defun c-name-case (name)
                             ((char= ch #\-)
                              (write-char #\_ out))
                             (t
-                             (error "Bad character in C name ~S." name))))))
+                             (error "Bad character in C name ~S" name))))))
     (t name)))
 
 ;;;--------------------------------------------------------------------------