anchor.diff:  
   (defun container-arg-n (expr)
     (cond ((eql (car expr) 'cl:apply)
  -         (1+ (gethash (cadadr expr) *modf-nth-arg*)) )
  -        (t (gethash (car expr) *modf-nth-arg*)) ))
  +         (1+ (gethash (cadadr expr) *modf-nth-arg* 1)) )
  +        (t (gethash (car expr) *modf-nth-arg* 1)) ))
   
   (defun modf-fn-defined? (expr)
     (cond ((eql (car expr) 'cl:apply)
  
positive.code:                               expr form new-val ))
                      ;; Lastly, This must be a modf function or method
                      ((apply-expression? expr)
                       `(apply (function ,(intern (modf-name (cadadr expr)) :modf))
                               ,new-val
                               ,@(cddr
                                  (replace-nth
                                   (container-arg-n expr)
                                   expr form ))))
                      (t
                       `(,(intern (modf-name (car expr)) :modf)
                         ,new-val
                         ,@(cdr
                            (replace-nth
  
negative.code:                            expr form ))))))
                (nth (container-arg-n expr) expr)
                enclosed-obj-sym )))))
  
  ;; <<>>=
  (defmacro modf (place value &rest more)
  