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