;(QUOTE (((MAPNIL FN L) - Map FN over the elements of L%; ignore results) (ARGUMENTS: FN - a function of one argument) (% % % % % % % % % % L - a list) (VALUE: ()) (DESCRIPTION: Uses MAP with a () valued accumulating function.)))
;(QUOTE (((MAPCONS FN L) - Map FN over the elements of L%; accumulate results as a list) (ARGUMENTS: FN - a function of one argument) (% % % % % % % % % % L - a list) (VALUE: A list of the results of applying FN to each element of L,) (% in the reverse order of L.) (DESCRIPTION: Uses MAP with CONS as the accumulating function.)))
(DEFINE MAPCONS (FN L) (MAP FN L CONS ()))
(QUOTE ())
;(QUOTE ((Please Document MAPCONSN)))
(DEFINE MAPCONSN (FN L) (MAP FN L (LAMBDA (X Y) (IF X (CONS X Y) Y)) ()))
(QUOTE ())
;(QUOTE ((Please Document MAPNCONC)))
(DEFINE MAPNCONC (FN L) (MAP FN L NCONC ()))
(QUOTE ())
;(QUOTE (((MAPTCONC FN L) - Map FN over the elements of L%; return results as a list) (ARGUMENTS: FN - a function of one argument) (% % % % % % % % % % L - a list) (VALUE: A list of the results of applying FN to the elements of L, in the) (% same order as L.) (DESCRIPTION: Uses MAP with TCONC as the accumulating function. Takes CAR of) (% the result before returning it.)))
(DEFINE MAPTCONC (FN L) (CAR (MAP FN L TCONC ())))
