'(THIS IS THE LAP FOR ((DSK MACRAK) FOOB /1)) 
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /86 MAKLAP /80 INITIA /120) 

;COMPILED ON MONDAY, DECEMBER 2, 1902, AT 10:39 PM

(COMMENT ****  A Undeclared - taken as SPECIAL in function FOO)
(COMMENT ****  B Undeclared - taken as SPECIAL in function FOO)
(LAP FOO SUBR) 
(ARGS FOO (()  . 0)) 
(MOVE 1 (SPECIAL B)) 
(JSP T %NCONS) 
(MOVE 2 (SPECIAL A)) 
(JSP T %XCONS) 
(POPJ P) 
()