- (format stream "printf(\"(cl:deftype char () '(unsigned-byte %d))\\\n\",SIGNED_(char),8*sizeof (char));~%")
- (format stream "printf(\"(cl:deftype long () '(unsigned-byte %d))\\\n\",SIGNED_(long),8*sizeof (long));~%")
+ (format stream "printf(\"(cl:deftype char () '(%ssigned-byte %d))\\\n\",SIGNED_(char),8*sizeof (char));~%")
+ (format stream "printf(\"(cl:deftype long () '(%ssigned-byte %d))\\\n\",SIGNED_(long),8*sizeof (long));~%")
+ (format stream "printf(\"(cl:defconstant size-of-int %d)\\\n\",sizeof (int));~%")
+ (format stream "printf(\"(cl:defconstant size-of-char %d)\\\n\",sizeof (char));~%")
+ (format stream "printf(\"(cl:defconstant size-of-long %d)\\\n\",sizeof (long));~%")