Optimizing Ruby's JSON, Part 4(byroot.github.io)

  snprintf(buf, sizeof buf, "%ld", long_value);

  (format t (lambda (...) ...) args ...)

  [8]> (format t "~1,05f" pi)
  3.14159
  NIL
  [9]> (format t "~10,5f" pi)
     3.14159
  NIL
  [10]> (format t (formatter "~10,5f") pi)
     3.14159
  NIL
  [11]> (macroexpand '(formatter "~10,5F"))
  #'(LAMBDA (STREAM #:ARG3345 &REST #:ARGS3342) (DECLARE (IGNORABLE STREAM))
     (LET ((SYSTEM::*FORMAT-CS* NIL)) (DECLARE (IGNORABLE #:ARG3345 #:ARGS3342))
      (SYSTEM::DO-FORMAT-FIXED-FLOAT STREAM NIL NIL 10 5 NIL NIL NIL #:ARG3345) #:ARGS3342)) ;
  T

    if (number == -9223372036854775808) return "-9223372036854775808";

    unsigned unumber = number;
    if (number < 0) unumber = -unumber;