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