anchor.diff:  
   ;;;
   
  -(setf (prop this "Object") (js!function () () ()))
  +(setf (prop this 'Object) (js!function () () ()))
  +
   (defun test1 ()
     #+nil(setf (prop this "a") (make-instance 'native-hash))
   #{javascript}
  
positive.code:   (let ((args2 (gensym))
  	(func (gensym)))
      `(let ((,func (js!function ,name ,args ,body)))
         (setf (prop this ,name) ,func)
         (defun ,(->sym name) (&rest ,args2)
  	 (apply (proc ,func) this ,args2)))))
  
  (defmacro js!eval (str)
    (intern-keywords (parse-js-string str)))
  
negative.code:   ())
  
  (defmethod (setf prop) (val (hash global-object) key)
    (set key val)
    (call-next-method val hash key))
  
  (defmethod prop ((hash global-object) key)
  