anchor.diff:  #define SIGNED64P(x) ( x <= 0x7FFFFFFFFFFFFFFFLL )
   
   void type_name(FILE *output, int signed_p, int size);
  +char* print_double_for_lisp(double n);
   
   int main(int argc, char**argv) {
     FILE *output = argc > 1 ? fopen(argv[1], \"w\") : stdout;
  
positive.code: 
  ;;; Syntax differs from anything else in CFFI.  Fix?
  (define-grovel-syntax constant ((lisp-name &rest c-names)
                                  &key documentation optional)
    (when (keywordp lisp-name)
      (setf lisp-name (format-symbol "~A" lisp-name)))
    (c-section-header out "constant" lisp-name)
  
negative.code: 
  error:
    fprintf(output, \"(cl:error \\\"No type of size ~D.\\\" %i)\\n\", size);
  }
  
  char* print_double_for_lisp(double n)
  {
      static char buf[256];
      memset(buf, 0, 256);
      snprintf(buf, 255, \"(let ((*read-default-float-format* 'double-float)) (coerce (read-from-string \\\"%.20E\\\") 'double-float))\", n);
      return buf;
  }
  ")
  
  