chiark / gitweb /
src/c-types-impl.lisp: Remember `signed' as a C-level synonym for `int'.
authorMark Wooding <mdw@distorted.org.uk>
Fri, 26 Jul 2019 23:48:46 +0000 (00:48 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Sat, 27 Jul 2019 13:56:31 +0000 (14:56 +0100)
src/c-types-impl.lisp

index 255a470227f7629487e4b7e3077cdd2abc93ec71..a5969d47d3daa370ee166e7d8dd18b044445193d 100644 (file)
@@ -253,7 +253,8 @@ (define-simple-c-type (unsigned-char uchar) "unsigned char" :export t)
 (define-simple-c-type (signed-char schar) "signed char" :export t)
 (define-simple-c-type wchar-t "wchar_t" :export t)
 
-(define-simple-c-type (int signed signed-int sint) "int" :export t)
+(define-simple-c-type (int signed signed-int sint)
+  ("int" "signed") :export t)
 (define-simple-c-type (unsigned unsigned-int uint) "unsigned" :export t)
 
 (define-simple-c-type (short signed-short short-int signed-short-int sshort)