(defun list-moment-left-A
(map left-moment-A *left-forces-A* *left-A*))
; in: DEFUN LIST-MOMENT-LEFT-A
; (SB-INT:NAMED-LAMBDA LIST-MOMENT-LEFT-A
; (MAP LEFT-MOMENT-A *LEFT-FORCES-A* *LEFT-A*)
; (BLOCK LIST-MOMENT-LEFT-A))
;
; caught STYLE-WARNING:
; The variable MAP is defined but never used.
;
; caught STYLE-WARNING:
; The variable LEFT-MOMENT-A is defined but never used.
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
LIST-MOMENT-LEFT-A