Recursive Expansion

In adding a vector of vectors, the function vectorplus is expanded three times:


(vofv (list (x vector)
            (y vector))
  supers  (vector))

(gldefun t8 ((u vofv) (v vofv)) u + v)

result type: VOFV
(LAMBDA (U V)
  (LIST
    (LET ((GLVAR35435 (CAR U))
          (GLVAR35436 (CAR V)))
      (LIST (+ (CAR GLVAR35435)
               (CAR GLVAR35436))
            (+ (CADR GLVAR35435)
               (CADR GLVAR35436))))
    (LET ((GLVAR35437 (CADR U))
          (GLVAR35438 (CADR V)))
      (LIST (+ (CAR GLVAR35437)
               (CAR GLVAR35438))
            (+ (CADR GLVAR35437)
               (CADR GLVAR35438))))))

Contents    Page-10    Prev    Next    Page+10    Index