anchor.diff:      (cdr result)))
   
   (defmacro array-slice (m i)
  -  (let ((mm (gensym))
  -        (ii (gensym)))
  +  (with-gensyms (mm ii)
       `(let* ((,mm ,m)
               (,ii ,i)
               (dim (array-dimensions ,mm))
  
positive.code:                         (aref ,mm ,ii id))))))
  
  (defmacro array-multiply (array1 array2)
    (let ((arr1 (gensym))
          (arr2 (gensym)))
      `(let ((,arr1 ,array1)
             (,arr2 ,array2))
         (loop for i across ,arr1
  
negative.code:         nums)))
  
  (defmacro *list-to-array (l)
    (with-gensyms (ll)
      `(let* ((,ll ,l)
              (len (length ,ll))
           (ar (make-array len :initial-contents ,ll)))
      ar)))
  
  (defmacro *array-to-list (ar)
    (with-gensyms (a)
      `(let ((,a ,ar))
         (loop for i across ,a collect i))))
  
  