X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/26d71c7a759173543c9f0034ef5cfc22e588bad5..e046c3f65a8f7241889fb9b6005aac21e2aad1a8:/src/c-types-impl.lisp

diff --git a/src/c-types-impl.lisp b/src/c-types-impl.lisp
index 47266e6..6b7c904 100644
--- a/src/c-types-impl.lisp
+++ b/src/c-types-impl.lisp
@@ -328,7 +328,7 @@
 	       `(progn
 		  (export '(,type ,kind ,constructor))
 		  (defclass ,type (tagged-c-type) ()
-		    (:documentation ,(format nil "C ~a types." what)))
+		    (:documentation ,(format nil "C ~A types." what)))
 		  (defmethod c-tagged-type-kind ((type ,type))
 		    ',keyword)
 		  (defmethod kind-c-tagged-type ((kind (eql ',keyword)))
@@ -585,7 +585,7 @@
 	(let ((this-name (argument-name this))
 	      (prev-name (argument-name prev)))
 	  (when (string= this-name prev-name)
-	    (error "Duplicate keyword argument name `~A'." this-name)))))
+	    (error "Duplicate keyword argument name `~A'" this-name)))))
     list))
 
 (export 'merge-keyword-lists)
@@ -627,7 +627,7 @@
 		       (other-what (cdr other-item)))
 		  (unless (c-type-equal-p type other-type)
 		    (error "Type mismatch for keyword argument `~A': ~
-			    ~A~@[ (~A)~] doesn't match ~A~@[ (~A)~]."
+			    ~A~@[ (~A)~] doesn't match ~A~@[ (~A)~]"
 			   name
 			   type what
 			   other-type other-what))))))))