X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/f64eb323a5798e155cc494043f5f750abf50a482..7b118f8a767addd8c869bf83506f48d28dcd7b94:/src/c-types-proto.lisp

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