anchor.diff:  
   (add-to-lib *stdlib*
     (.object "JSON"
  +    (:slot-default :noenum)
       (.func "parse" (string)
         (parse-json (to-string string)))
       (.func "stringify" (string replacer)
  
positive.code:     (:prototype :error))
  
    (.prototype :error
      (.value "name" "Error")
      (.value "message" "Error")
      (.func "toString" ()
  
negative.code:               (init-reobj this pattern flags)))
        (:prototype :regexp)
        (:make-new #'make-reobj)
        (:slot-default :noenum)
        (:properties
         (.value "length" 2))) ;; Because the standard says so
  
      (.prototype :regexp
        (:slot-default :nodel)
        (.func "toString" ()
          (if (reobj-p this)
              (multiple-value-bind (source flags) (regexp-args this)
  