anchor.diff:    (call-next-method val hash key))
   
   (defmethod prop ((hash global-object) key)
  -  (format t "looking for ~A~%" key)
  +  #+js-debug (format t "looking for ~A~%" key)
     (call-next-method hash key))
   
   (defclass native-function (native-hash)
  
positive.code:   (let ((ret (gensym)))
      `(let ((,ret (make-instance 'native-hash :prototype (prop ,func "prototype"))))
         (funcall (proc ,func) ,ret ,@args)
         (setf (prop ,ret 'constructor) ,func)
         ,ret)))
  
  (defmacro js!return (ret)
  
negative.code: (defmacro js!num (num) num)
  
  (defmacro js!stat (form)
    `(progn ,form))
  
  (defmacro js!block (form)
    `(progn ,form))
  
  (defmacro js!var (vars)
  