===  ALL USERS PLEASE NOTE  ========================

There has been some confusion concerning MAPCAR.
	(DEFUN MAPCAR (&FUNCTIONAL FCN &EVAL &REST LISTS)
		(PROG (V P LP)
		(SETQ P (LOCF V))
	L	(SETQ LP LISTS)
		(%START-FUNCTION-CALL FCN T (LENGTH LISTS) NIL)
	L1	(OR LP (GO L2))
		(AND (NULL (CAR LP)) (RETURN V))
		(%PUSH (CAAR LP))
		(RPLACA LP (CDAR LP))
		(SETQ LP (CDR LP))
		(GO L1)
	L2	(%FINISH-FUNCTION-CALL FCN T (LENGTH LISTS) NIL)
		(SETQ LP (%POP))
		(RPLACD P (SETQ P (NCONS LP)))
		(GO L)))
We hope this clears up the many questions weve had about it.