X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/14adef2f3c2a0a80be0ca2e1a364256812203bd8..450a4be6a6d832ce1e54169d9cc7740f5a04dc89:/src/c-types-impl.lisp

diff --git a/src/c-types-impl.lisp b/src/c-types-impl.lisp
index dfb23e6..6b7c904 100644
--- a/src/c-types-impl.lisp
+++ b/src/c-types-impl.lisp
@@ -276,7 +276,7 @@
 (define-simple-c-type double "double" :export t)
 (define-simple-c-type long-double "long double" :export t)
 
-(define-simple-c-type bool "_Bool" :export t)
+(define-simple-c-type bool ("_Bool" "bool") :export t)
 
 (define-simple-c-type float-complex "float _Complex" :export t)
 (define-simple-c-type double-complex "double _Complex" :export t)
@@ -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))))))))