(let ((*print-right-margin* nil))
(format stream "#define SIGNEDP(x) (((x)-1)<0)~%")
(format stream "#define SIGNED_(x) (SIGNEDP(x)?\"\":\"un\")~%")
(let ((*print-right-margin* nil))
(format stream "#define SIGNEDP(x) (((x)-1)<0)~%")
(format stream "#define SIGNED_(x) (SIGNEDP(x)?\"\":\"un\")~%")