X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/f64eb323a5798e155cc494043f5f750abf50a482..450a4be6a6d832ce1e54169d9cc7740f5a04dc89:/src/c-types-proto.lisp?ds=sidebyside

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)))
 
 ;;;--------------------------------------------------------------------------