anchor.diff:  
   (example (with-input-from-string (s ".212E+32")
   	   (parse-json-number #\0 s))
  -	 => 2.12e31)
  +	 => 2.12e31 :warn-only t)
   
   
   (example (afetch "isAlive" 
  
positive.code: 
  (example (with-input-from-string (s "34.212e-42")
  	   (parse-json-number #\- s))
  	 => -3.42113e-41)
  
  (example (with-input-from-string (s "34.212e-42")
  	   (parse-json-number #\1 s))
  
negative.code: 
  (example 
   (encode-json-to-string -3.242E-12)
   => "-3.242E-12" :warn-only t)
  
  (defmethod encode-json (stream (thing (eql :true)) &key (indent nil) (first-line nil))
    (json-write stream (if first-line nil indent) nil "true"))
  