anchor.diff:         (defun ,name (&rest ,args2)
   	 (apply (proc ,func) this ,args2)))))
   
  -(defmacro js-binary-operators (&rest ops)
  +(defmacro js-operators (&rest ops)
     `(progn
        ,@(mapcar (lambda (op)
   		 (if (symbolp op)
  
positive.code:   `(sub ,obj ,attr))
  
  (defmacro !assign (op place val)
    `(setf ,place ,val))
  
  (defmacro !num (num) num)
  (defmacro !string (str) str)
  
negative.code:   (declare (fixnum ls rs))
    (the boolean (< ls rs)))
  ;;;;;;;;
  (js-operators
  ;;binary
   (+ plus) (- minus) * / (% mod)
   (== equalp) (< less) > <= >= (!= /=)
  ;;unary
   (++ 1+) (-- 1-))
  
  (defmacro !binary (op-sym ls rs)
    (let ((op (symbol-function op-sym)))
  