*ORIGINAL-CONTROL-PDL*LISP-INTERNALS *NEW-CONTROL-PDL*LISP-INTERNALS *OLD-CONTROL-PDL*LISP-INTERNALS STACK-GROUP-PRESETLISP-INTERNALS STACK-GROUP-PRESETLISP-INTERNALS!  ERRORLISP-INTERNALS %COMPILED-FUNCTION-CODEK2  FIND-FUNCTIONLISP-INTERNALS  STRUCTURE-SETLISP-INTERNALS MAKE-CONTROL-PDLLISP-INTERNALS"! C @@F#+D@ TE(@Az@ @*B`&@B@@B0@A@AlT@ (X 0&&x ~@@ )(@T )X#CFsj @A @A"CDT@ )X +$@T@$Z@jDA"B@A 'Stack group preset can't cope with this  STACK-GROUPLISP-INTERNALS STACK-GROUP-TOGGLELISP-INTERNALS STACK-GROUP-TOGGLELISP-INTERNALS DUMP-CALL-HARDWARELISP-INTERNALS %%SETSYMBOL  %SYMBOL-VALUESYMBOLAABA`pBAG *OLD-CONTROL-PDL*LISP-INTERNALS *OLD-CONTROL-PDL*LISP-INTERNALS SET-UP-TEST-STACK-GROUP-SWITCHLISP-INTERNALS SET-UP-TEST-STACK-GROUP-SWITCHLISP-INTERNALS %%SETSYMBOL  STRUCTURE-REFLISP-INTERNALS %%SETSYMBOL  STRUCTURE-REFLISP-INTERNALS STACK-GROUP-PRESETLISP-INTERNALS MAKE-STACK-GROUPLISP-INTERNALS %%SETSYMBOLA`pBA@B A@@BAz@!BA~pBAz@!B(@@B@A  *NEW-CONTROL-PDL*LISP-INTERNALS  STACK-GROUPLISP-INTERNALS *OLD-CONTROL-PDL*LISP-INTERNALS  STACK-GROUPLISP-INTERNALS FUNNY-FACTORIAL-280LISP-INTERNALSANOTHER-STACK-GROUP *ORIGINAL-CONTROL-PDL*LISP-INTERNALS RESET-OLD-CONTROL-PDLLISP-INTERNALS RESET-OLD-CONTROL-PDLLISP-INTERNALS  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOLAABA@xB@A  *ORIGINAL-CONTROL-PDL*LISP-INTERNALS *NEW-CONTROL-PDL*LISP-INTERNALS FUNNY-FACTORIALLISP-INTERNALS FUNNY-FACTORIALLISP-INTERNALS MULTIPLY-GENERICNEW-MATH FUNNY-FACTORIALLISP-INTERNALS STACK-GROUP-TOGGLELISP-INTERNALS@Cp !0@A @AbD yAB(!F FUNNY-FACTORIAL-280LISP-INTERNALS FUNNY-FACTORIAL-280LISP-INTERNALS FUNNY-FACTORIALLISP-INTERNALStC@A