anchor.diff:                      (start (proxy-value (ensure-proxy :expr `(range-start ,range) :name "START")))
                       (step (proxy-value (ensure-proxy :expr `(range-step ,range) :name "STEP")))
                       (end (proxy-value (ensure-proxy :expr `(range-end ,range) :name "END"))))
  -               #+(or)
  -               (ensure-proxy :expr `(print (list :range :axis ,axis :start ,start :step ,step :end ,end)))
                  (setf (svref wrap-in-loop-vector (1+ axis))
                        (if (eql info :contiguous)
                            (lambda (form)
  
positive.code: ;;;
  ;;; Auxiliary Macros
  
  (defmacro setf-row-major-aref (value array index)
    `(setf (row-major-aref ,array ,index)
           ,value))
  
  (defun index-+ (&rest fixnums)
    (apply #'+ fixnums))
  
  
negative.code:          (arguments (mapcar #'proxy-value argument-proxies))
           (expr
             (trivia:ematch (proxy-value operator-proxy)
               ((list 'quote (list 'setf function-name))
                `(setf (,function-name ,@(rest arguments)) ,(first arguments)))
               ((list 'quote (and function-name (type symbol)))
                `(,function-name ,@arguments))
               (operator
                `(funcall ,operator ,@arguments)))))
      (ensure-proxy
       :level level
       :number-of-values number-of-values
  