anchor.diff:      (let ((func (apply #'new-function args)))
         (setf (value (!this)) func)
         func)))
  -
  -(defmethod placeholder-class ((func (eql function.ctor))) 'native-function)
   
   (finalize-class-construction
    "Function" function.ctor function.prototype :explicit-ctor t)
  
positive.code: (define-primitive-prototype regexp.prototype
      (make-regexp "(?:)" ""))
  
  (defmethod placeholder-class ((func (eql regexp.ctor))) 'regexp)
  
  (finalize-class-construction
  "RegExp" regexp.ctor regexp.prototype :explicit-ctor t)
  
  
negative.code: 
  (defgeneric list-props (hash)
    (:method (hash) (declare (ignore hash)) ()))
  
  (defgeneric (setf value) (obj val)
    (:method (obj val) (declare (ignore obj)) val))
  