anchor.diff:      (c-format out "(cl:defconstant ")
       (c-print-symbol out lisp-name t)
       (c-format out " ")
  -    (c-printf out "%i" c-name)
  +    (format out "~&  if(SIGNED64P(~A))~%" c-name)
  +    (format out "    fprintf(output, \"%lli\", (int64_t) ~A);" c-name)
  +    (format out "~&  else~%")
  +    (format out "    fprintf(output, \"%llu\", (uint64_t) ~A);" c-name)
       (when documentation
         (c-format out " ~S" documentation))
       (c-format out ")~%")
  
positive.code: 
  #define SIGNEDP(x) (((x)-1)<0)
  #define SIGNED_(x) (SIGNEDP(x)?\"\":\"un\")
  
  void type_name(FILE *output, int signed_p, int size);
  
  
negative.code:   "
  #include <stdio.h>
  #include <stdlib.h>
  #include <stdint.h>
  
  #ifndef offsetof
  #define offsetof(type, slot) ((int) ((char *) &(((type *) 0)->slot)))
  