anchor.diff:  (defun op-form-p (form)
     (and (listp form)
          (not (js-compiler-macro-form-p form))
  -       (not (null (gethash (first form) *op-precedence-hash*)))))
  +       (not (null (op-precedence (first form))))))
   
   (defun klammer (string-list)
     (prepend-to-first string-list "(")
  
positive.code: 	     :join-after " ="))
  
  (defmethod expression-precedence ((setf js-setf))
    (gethash '= *op-precedence-hash*))
  
  ;;; defvar
  
  
negative.code: 				       (list "}")))))
  
  (defmethod expression-precedence ((if js-if))
    (op-precedence 'if))
  
  (defmethod js-to-strings ((if js-if) start-pos)
    (assert (typep (if-then if) 'expression))
  