anchor.diff:  (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)
   
  
positive.code:     (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)
  
negative.code: 			    :initial-contents args)))
        (setf (value (!this)) arr)
        arr)))
  
  (define-primitive-prototype
      array.prototype
  