1 665c255d 2023-08-04 jrmu (defun make-sum (a1 a2)
 2 665c255d 2023-08-04 jrmu   (list a1 '+ a2))
 3 665c255d 2023-08-04 jrmu (defun make-product (m1 m2)
 4 665c255d 2023-08-04 jrmu   (list m1 '* m2))
 5 665c255d 2023-08-04 jrmu (defun sum? (x)
 6 665c255d 2023-08-04 jrmu   (and (consp x) (eql (cadr x) '+)))
 7 665c255d 2023-08-04 jrmu (defun addend (x)
 8 665c255d 2023-08-04 jrmu   (car x))
 9 665c255d 2023-08-04 jrmu (defun augend (s)
10 665c255d 2023-08-04 jrmu   (caddr s))
11 665c255d 2023-08-04 jrmu (defun product? (x)
12 665c255d 2023-08-04 jrmu   (and (consp x) (eql (cadr x) '*)))
13 665c255d 2023-08-04 jrmu (defun multiplier (s)
14 665c255d 2023-08-04 jrmu   (car s))
15 665c255d 2023-08-04 jrmu (defun multiplicand (s)
16 665c255d 2023-08-04 jrmu   (caddr s))