Daily Fortunes

Jun 11, 2017

=== ALL USERS PLEASE NOTE ======================== There...
=== 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 ...
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)) ...
PUSH (CAAR LP)) (RPLACA LP (CDAR LP)) (SETQ LP (CDR LP)) (GO L1) L2 (

FINISH-FUNCTION-CALL FCN T (LENGTH LISTS) NIL) ...
FINISH-FUNCTION-CALL FCN T (LENGTH LISTS) NIL) (SETQ LP (

POP)) (RPLACD P (SETQ P (NCONS LP))) ...
POP)) (RPLACD P (SETQ P (NCONS LP))) (GO L))) We hope this clears up the many questions we've had about it.

Daily Fortunes for Jun 11, 2017

Jan

Feb

Mar

Apr

May

Jun

Jul

Aug

Sep

Oct

Nov