anchor.diff:  (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'LIST-SYMBOL COMMON-LISP:NIL) *FUNCTIONALS*))
   (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'LIST-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN LIST-SYMBOL (X) (COMMON-LISP:BLOCK LIST-SYMBOL (COMMON-LISP:BLOCK COMMON-LISP:NIL (MAKE-SYMBOL (LIST-STRING X))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'LIST-SYMBOL *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'LIST-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-STRING (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'LIST-SYMBOL))
   (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'SUBSEQ COMMON-LISP:NIL) *FUNCTIONALS*))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'LIST-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 999999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN LIST-SUBSEQ (SEQ START COMMON-LISP:&OPTIONAL (END 999999)) (COMMON-LISP:BLOCK LIST-SUBSEQ (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (? SEQ (NOT (== START END))) (COMMON-LISP:PROGN (? (> START END) (COMMON-LISP:LABELS ((G3059 (~G1032) (COMMON-LISP:PROGN (COMMON-LISP:SETQ START END) (COMMON-LISP:SETQ END ~G1032)))) (G3059 START))) (COMMON-LISP:LABELS ((COPY-NUM (LST LEN) (? LST (? (< 0 LEN) (COMMON-LISP:CONS (COMMON-LISP:CAR LST) (COPY-NUM (COMMON-LISP:CDR LST) (-- LEN))))))) (COPY-NUM (COMMON-LISP:NTHCDR START SEQ) (- END START)))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'LIST-SUBSEQ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 999999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'LIST-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1032 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '~G1032 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LABELS (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COPY-NUM (COMMON-LISP:CONS (COMMON-LISP:CONS 'LST (COMMON-LISP:CONS 'LEN COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'LST (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 0 (COMMON-LISP:CONS 'LEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COPY-NUM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '-- (COMMON-LISP:CONS 'LEN COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COPY-NUM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:NTHCDR (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '- (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'START COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'LIST-SUBSEQ))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%SUBSEQ-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKER (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %SUBSEQ-SEQUENCE (MAKER SEQ START END) (COMMON-LISP:BLOCK %SUBSEQ-SEQUENCE (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (NOT (== START END)) (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3060 (!) (? (< START !) (COMMON-LISP:PROGN (? (>= END !) (COMMON-LISP:PROGN (COMMON-LISP:SETQ END !))) (COMMON-LISP:LABELS ((G3061 (L) (COMMON-LISP:LABELS ((G3062 (S) (COMMON-LISP:LABELS ((G3063 (~G1033) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3064 (X) (COMMON-LISP:TAGBODY ~G1036 (? (INTEGER== X ~G1033) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN S))) (COMMON-LISP:PROGN (=-ELT (COMMON-LISP:ELT SEQ (+ START X)) S X)) (COMMON-LISP:SETQ X (INTEGER+ 1 X)) (COMMON-LISP:GO ~G1036)))) (G3064 0))))) (G3063 (INTEGER L))))) (G3062 (FUNCALL MAKER L))))) (G3061 (- END START))))))) (G3060 (COMMON-LISP:LENGTH SEQ)))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%SUBSEQ-SEQUENCE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKER (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%SUBSEQ-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'START (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '>= (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'L COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'MAKER (COMMON-LISP:CONS 'L COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1033 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1036 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS '~G1033 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-ELT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'X COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 1 (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1036 COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS 'L COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '- (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'START COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%SUBSEQ-SEQUENCE))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN SUBSEQ (SEQ START COMMON-LISP:&OPTIONAL (END 99999)) (COMMON-LISP:BLOCK SUBSEQ (COMMON-LISP:BLOCK COMMON-LISP:NIL (? SEQ (COMMON-LISP:PROGN (? (> START END) (COMMON-LISP:LABELS ((G3065 (~G1034) (COMMON-LISP:PROGN (COMMON-LISP:SETQ START END) (COMMON-LISP:SETQ END ~G1034)))) (G3065 START))) (COMMON-LISP:LABELS ((G3066 (~G1035) (? (CONS? ~G1035) (LIST-SUBSEQ SEQ START END) (STRING? ~G1035) (STRING-SUBSEQ SEQ START END) (ARRAY? ~G1035) (%SUBSEQ-SEQUENCE #'MAKE-ARRAY SEQ START END) (ERROR "Type of ~A not supported." SEQ)))) (G3066 SEQ))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'SUBSEQ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1034 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '~G1034 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1035 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'CONS? (COMMON-LISP:CONS '~G1035 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-SUBSEQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING? (COMMON-LISP:CONS '~G1035 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING-SUBSEQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARRAY? (COMMON-LISP:CONS '~G1035 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%SUBSEQ-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'MAKE-ARRAY COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "Type of ~A not supported." (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL))) COMMON-LISP:NIL)))))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'SUBSEQ))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STRING-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STRING-SUBSEQ (SEQ START COMMON-LISP:&OPTIONAL (END 99999)) (COMMON-LISP:BLOCK STRING-SUBSEQ (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (== START END) "" (COMMON-LISP:LABELS ((G3067 (SEQLEN) (? (< START SEQLEN) (COMMON-LISP:PROGN (? (>= END SEQLEN) (COMMON-LISP:PROGN (COMMON-LISP:PROGN (COMMON-LISP:SETQ END SEQLEN)))) (COMMON-LISP:LABELS ((G3068 (L) (COMMON-LISP:LABELS ((G3069 (S) (COMMON-LISP:LABELS ((G3070 (~G1037) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3071 (X) (COMMON-LISP:TAGBODY ~G1038 (? (INTEGER== X ~G1037) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN S))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ S (+ S (STRING (COMMON-LISP:ELT SEQ (+ START X)))))) (COMMON-LISP:SETQ X (INTEGER+ 1 X)) (COMMON-LISP:GO ~G1038)))) (G3071 0))))) (G3070 (INTEGER L))))) (G3069 (COMMON-LISP:MAKE-STRING 0))))) (G3068 (- END START))))))) (G3067 (COMMON-LISP:LENGTH SEQ))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STRING-SUBSEQ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STRING-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS "" (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '>= (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'L COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:MAKE-STRING (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1037 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1038 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS '~G1037 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 1 (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1038 COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS 'L COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '- (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'START COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STRING-SUBSEQ))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'LIST-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 999999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN LIST-SUBSEQ (SEQ START COMMON-LISP:&OPTIONAL (END 999999)) (COMMON-LISP:BLOCK LIST-SUBSEQ (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (? SEQ (NOT (== START END))) (COMMON-LISP:PROGN (? (> START END) (COMMON-LISP:LABELS ((G3642 (~G1457) (COMMON-LISP:PROGN (COMMON-LISP:SETQ START END) (COMMON-LISP:SETQ END ~G1457)))) (G3642 START))) (COMMON-LISP:LABELS ((COPY-NUM (LST LEN) (? LST (? (< 0 LEN) (COMMON-LISP:CONS (COMMON-LISP:CAR LST) (COPY-NUM (COMMON-LISP:CDR LST) (-- LEN))))))) (COPY-NUM (COMMON-LISP:NTHCDR START SEQ) (- END START)))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'LIST-SUBSEQ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 999999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'LIST-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1457 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '~G1457 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LABELS (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COPY-NUM (COMMON-LISP:CONS (COMMON-LISP:CONS 'LST (COMMON-LISP:CONS 'LEN COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'LST (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 0 (COMMON-LISP:CONS 'LEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COPY-NUM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '-- (COMMON-LISP:CONS 'LEN COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COPY-NUM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:NTHCDR (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '- (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'START COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'LIST-SUBSEQ))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%SUBSEQ-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKER (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %SUBSEQ-SEQUENCE (MAKER SEQ START END) (COMMON-LISP:BLOCK %SUBSEQ-SEQUENCE (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (NOT (== START END)) (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3643 (!) (? (< START !) (COMMON-LISP:PROGN (? (>= END !) (COMMON-LISP:PROGN (COMMON-LISP:SETQ END !))) (COMMON-LISP:LABELS ((G3644 (L) (COMMON-LISP:LABELS ((G3645 (S) (COMMON-LISP:LABELS ((G3646 (~G1458) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3647 (X) (COMMON-LISP:TAGBODY ~G1461 (? (INTEGER== X ~G1458) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN S))) (COMMON-LISP:PROGN (=-ELT (COMMON-LISP:ELT SEQ (+ START X)) S X)) (COMMON-LISP:SETQ X (INTEGER+ 1 X)) (COMMON-LISP:GO ~G1461)))) (G3647 0))))) (G3646 (INTEGER L))))) (G3645 (FUNCALL MAKER L))))) (G3644 (- END START))))))) (G3643 (COMMON-LISP:LENGTH SEQ)))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%SUBSEQ-SEQUENCE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKER (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%SUBSEQ-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'START (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '>= (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'L COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'MAKER (COMMON-LISP:CONS 'L COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1458 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1461 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS '~G1458 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-ELT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'X COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 1 (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1461 COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS 'L COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '- (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'START COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%SUBSEQ-SEQUENCE))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN SUBSEQ (SEQ START COMMON-LISP:&OPTIONAL (END 99999)) (COMMON-LISP:BLOCK SUBSEQ (COMMON-LISP:BLOCK COMMON-LISP:NIL (? SEQ (COMMON-LISP:PROGN (? (> START END) (COMMON-LISP:LABELS ((G3648 (~G1459) (COMMON-LISP:PROGN (COMMON-LISP:SETQ START END) (COMMON-LISP:SETQ END ~G1459)))) (G3648 START))) (COMMON-LISP:LABELS ((G3649 (~G1460) (? (CONS? ~G1460) (LIST-SUBSEQ SEQ START END) (STRING? ~G1460) (STRING-SUBSEQ SEQ START END) (ARRAY? ~G1460) (%SUBSEQ-SEQUENCE #'MAKE-ARRAY SEQ START END) (ERROR "Type of ~A not supported." SEQ)))) (G3649 SEQ))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'SUBSEQ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1459 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '~G1459 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1460 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'CONS? (COMMON-LISP:CONS '~G1460 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-SUBSEQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING? (COMMON-LISP:CONS '~G1460 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING-SUBSEQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARRAY? (COMMON-LISP:CONS '~G1460 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%SUBSEQ-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'MAKE-ARRAY COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "Type of ~A not supported." (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL))) COMMON-LISP:NIL)))))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'SUBSEQ))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STRING-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STRING-SUBSEQ (SEQ START COMMON-LISP:&OPTIONAL (END 99999)) (COMMON-LISP:BLOCK STRING-SUBSEQ (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (== START END) "" (COMMON-LISP:LABELS ((G3650 (SEQLEN) (? (< START SEQLEN) (COMMON-LISP:PROGN (? (>= END SEQLEN) (COMMON-LISP:PROGN (COMMON-LISP:PROGN (COMMON-LISP:SETQ END SEQLEN)))) (COMMON-LISP:LABELS ((G3651 (L) (COMMON-LISP:LABELS ((G3652 (S) (COMMON-LISP:LABELS ((G3653 (~G1462) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3654 (X) (COMMON-LISP:TAGBODY ~G1463 (? (INTEGER== X ~G1462) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN S))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ S (+ S (STRING (COMMON-LISP:ELT SEQ (+ START X)))))) (COMMON-LISP:SETQ X (INTEGER+ 1 X)) (COMMON-LISP:GO ~G1463)))) (G3654 0))))) (G3653 (INTEGER L))))) (G3652 (COMMON-LISP:MAKE-STRING 0))))) (G3651 (- END START))))))) (G3650 (COMMON-LISP:LENGTH SEQ))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STRING-SUBSEQ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STRING-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS "" (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '>= (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'L COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:MAKE-STRING (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1462 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1463 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS '~G1462 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 1 (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1463 COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS 'L COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '- (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'START COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STRING-SUBSEQ))
   (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'FIND (COMMON-LISP:CONS 'POSITION COMMON-LISP:NIL)) *FUNCTIONALS*))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%FIND-IF-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %FIND-IF-LIST (PRED SEQ FROM-END WITH-INDEX) (COMMON-LISP:BLOCK %FIND-IF-LIST (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3072 (!) (? WITH-INDEX (COMMON-LISP:LABELS ((G3073 (IDX) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3074 (~G1050) (COMMON-LISP:LABELS ((G3075 (!) (COMMON-LISP:TAGBODY ~G1048 (? (NOT ~G1050) (COMMON-LISP:GO ~G1049)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1050)) (? (FUNCALL PRED ! IDX) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL !)) (COMMON-LISP:PROGN (COMMON-LISP:SETQ IDX (NUMBER+ IDX 1))) (COMMON-LISP:SETQ ~G1050 (COMMON-LISP:CDR ~G1050)) (COMMON-LISP:GO ~G1048) ~G1049 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))))) (G3075 COMMON-LISP:NIL)))) (G3074 !))))) (G3073 0)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3076 (~G1053) (COMMON-LISP:LABELS ((G3077 (!) (COMMON-LISP:TAGBODY ~G1051 (? (NOT ~G1053) (COMMON-LISP:GO ~G1052)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1053)) (? (FUNCALL PRED !) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL !)) (COMMON-LISP:SETQ ~G1053 (COMMON-LISP:CDR ~G1053)) (COMMON-LISP:GO ~G1051) ~G1052 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))))) (G3077 COMMON-LISP:NIL)))) (G3076 !)))))) (G3072 (? FROM-END (REVERSE SEQ) SEQ)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%FIND-IF-LIST *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%FIND-IF-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'IDX COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1050 (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1048 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1050 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1049 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1050 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS '! (COMMON-LISP:CONS 'IDX COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'IDX (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUMBER+ (COMMON-LISP:CONS 'IDX (COMMON-LISP:CONS 1 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1050 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1050 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1048 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1049 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1053 (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1051 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1053 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1052 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1053 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1053 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1053 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1051 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1052 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS (COMMON-LISP:CONS 'REVERSE (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%FIND-IF-LIST))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%FIND-IF-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %FIND-IF-SEQUENCE (PRED SEQ START END FROM-END WITH-INDEX) (COMMON-LISP:BLOCK %FIND-IF-SEQUENCE (COMMON-LISP:BLOCK COMMON-LISP:NIL (? SEQ (? (< 0 (COMMON-LISP:LENGTH SEQ)) (COMMON-LISP:LABELS ((G3078 (E) (COMMON-LISP:LABELS ((G3079 (S) (? (COMMON-LISP:LABELS ((G3080 (~G1041) (? ~G1041 ~G1041 (? (< S E) FROM-END)))) (G3080 (? (> S E) (NOT FROM-END)))) (COMMON-LISP:LABELS ((G3081 (~G1042) (COMMON-LISP:PROGN (COMMON-LISP:SETQ S E) (COMMON-LISP:SETQ E ~G1042)))) (G3081 S))) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3082 (I) (COMMON-LISP:TAGBODY ~G1043 (? (? FROM-END (< I E) (> I E)) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN))) (COMMON-LISP:LABELS ((G3083 (!) (? (COMMON-LISP:APPLY PRED (COMMON-LISP:CONS ! (? WITH-INDEX (COMMON-LISP:LIST I)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL !)))) (G3083 (COMMON-LISP:ELT SEQ I))) (COMMON-LISP:SETQ I (? FROM-END (-- I) (++ I))) (COMMON-LISP:GO ~G1043)))) (G3082 S))))) (G3079 (COMMON-LISP:LABELS ((G3084 (~G1040) (? ~G1040 ~G1040 0))) (G3084 START)))))) (G3078 (COMMON-LISP:LABELS ((G3085 (~G1039) (? ~G1039 ~G1039 (-- (COMMON-LISP:LENGTH SEQ))))) (G3085 END))))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%FIND-IF-SEQUENCE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%FIND-IF-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'E COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1040 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1040 (COMMON-LISP:CONS '~G1040 (COMMON-LISP:CONS 0 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1041 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1041 (COMMON-LISP:CONS '~G1041 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS 'FROM-END COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS 'FROM-END COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1042 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'E (COMMON-LISP:CONS '~G1042 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1043 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN COMMON-LISP:NIL) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:APPLY (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LIST (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'I (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS (COMMON-LISP:CONS '-- (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '++ (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1043 COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1039 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1039 (COMMON-LISP:CONS '~G1039 (COMMON-LISP:CONS (COMMON-LISP:CONS '-- (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'END COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%FIND-IF-SEQUENCE))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%FIND-IF-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %FIND-IF-LIST (PRED SEQ FROM-END WITH-INDEX) (COMMON-LISP:BLOCK %FIND-IF-LIST (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3655 (!) (? WITH-INDEX (COMMON-LISP:LABELS ((G3656 (IDX) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3657 (~G1472) (COMMON-LISP:LABELS ((G3658 (!) (COMMON-LISP:TAGBODY ~G1470 (? (NOT ~G1472) (COMMON-LISP:GO ~G1471)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1472)) (? (FUNCALL PRED ! IDX) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL !)) (COMMON-LISP:PROGN (COMMON-LISP:SETQ IDX (NUMBER+ IDX 1))) (COMMON-LISP:SETQ ~G1472 (COMMON-LISP:CDR ~G1472)) (COMMON-LISP:GO ~G1470) ~G1471 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))))) (G3658 COMMON-LISP:NIL)))) (G3657 !))))) (G3656 0)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3659 (~G1475) (COMMON-LISP:LABELS ((G3660 (!) (COMMON-LISP:TAGBODY ~G1473 (? (NOT ~G1475) (COMMON-LISP:GO ~G1474)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1475)) (? (FUNCALL PRED !) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL !)) (COMMON-LISP:SETQ ~G1475 (COMMON-LISP:CDR ~G1475)) (COMMON-LISP:GO ~G1473) ~G1474 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))))) (G3660 COMMON-LISP:NIL)))) (G3659 !)))))) (G3655 (? FROM-END (REVERSE SEQ) SEQ)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%FIND-IF-LIST *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%FIND-IF-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'IDX COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1472 (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1470 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1472 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1471 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1472 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS '! (COMMON-LISP:CONS 'IDX COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'IDX (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUMBER+ (COMMON-LISP:CONS 'IDX (COMMON-LISP:CONS 1 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1472 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1472 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1470 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1471 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1475 (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1473 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1475 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1474 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1475 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1475 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1475 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1473 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1474 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS (COMMON-LISP:CONS 'REVERSE (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%FIND-IF-LIST))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%FIND-IF-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %FIND-IF-SEQUENCE (PRED SEQ START END FROM-END WITH-INDEX) (COMMON-LISP:BLOCK %FIND-IF-SEQUENCE (COMMON-LISP:BLOCK COMMON-LISP:NIL (? SEQ (? (< 0 (COMMON-LISP:LENGTH SEQ)) (COMMON-LISP:LABELS ((G3661 (E) (COMMON-LISP:LABELS ((G3662 (S) (? (COMMON-LISP:LABELS ((G3663 (~G1466) (? ~G1466 ~G1466 (? (< S E) FROM-END)))) (G3663 (? (> S E) (NOT FROM-END)))) (COMMON-LISP:LABELS ((G3664 (~G1467) (COMMON-LISP:PROGN (COMMON-LISP:SETQ S E) (COMMON-LISP:SETQ E ~G1467)))) (G3664 S))) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3665 (I) (COMMON-LISP:TAGBODY ~G1468 (? (? FROM-END (< I E) (> I E)) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN))) (COMMON-LISP:LABELS ((G3666 (!) (? (COMMON-LISP:APPLY PRED (COMMON-LISP:CONS ! (? WITH-INDEX (COMMON-LISP:LIST I)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL !)))) (G3666 (COMMON-LISP:ELT SEQ I))) (COMMON-LISP:SETQ I (? FROM-END (-- I) (++ I))) (COMMON-LISP:GO ~G1468)))) (G3665 S))))) (G3662 (COMMON-LISP:LABELS ((G3667 (~G1465) (? ~G1465 ~G1465 0))) (G3667 START)))))) (G3661 (COMMON-LISP:LABELS ((G3668 (~G1464) (? ~G1464 ~G1464 (-- (COMMON-LISP:LENGTH SEQ))))) (G3668 END))))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%FIND-IF-SEQUENCE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%FIND-IF-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'E COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1465 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1465 (COMMON-LISP:CONS '~G1465 (COMMON-LISP:CONS 0 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1466 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1466 (COMMON-LISP:CONS '~G1466 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS 'FROM-END COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS 'FROM-END COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1467 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'E (COMMON-LISP:CONS '~G1467 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1468 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN COMMON-LISP:NIL) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:APPLY (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LIST (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'I (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS (COMMON-LISP:CONS '-- (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '++ (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1468 COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1464 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1464 (COMMON-LISP:CONS '~G1464 (COMMON-LISP:CONS (COMMON-LISP:CONS '-- (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'END COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%FIND-IF-SEQUENCE))
   (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN FIND-IF (PRED SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL) (WITH-INDEX COMMON-LISP:NIL)) (COMMON-LISP:BLOCK FIND-IF (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (NOT (COMMON-LISP:ATOM SEQ) START END) (%FIND-IF-LIST PRED SEQ FROM-END WITH-INDEX) (%FIND-IF-SEQUENCE PRED SEQ START END FROM-END WITH-INDEX))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'FIND-IF *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ATOM (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS '%FIND-IF-LIST (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL))))) (COMMON-LISP:CONS (COMMON-LISP:CONS '%FIND-IF-SEQUENCE (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL))))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'FIND-IF))
   (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'FIND (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN FIND (OBJ SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL) (TEST #'EQL)) (COMMON-LISP:BLOCK FIND (COMMON-LISP:BLOCK COMMON-LISP:NIL (FIND-IF #'(COMMON-LISP:LAMBDA (_) (FUNCALL TEST _ OBJ)) SEQ :START START :END END :FROM-END FROM-END)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'FIND *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'FIND (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '_ COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS '_ (COMMON-LISP:CONS 'OBJ COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS ':START (COMMON-LISP:CONS 'START (COMMON-LISP:CONS ':END (COMMON-LISP:CONS 'END (COMMON-LISP:CONS ':FROM-END (COMMON-LISP:CONS 'FROM-END COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'FIND))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'POSITION (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN POSITION (OBJ SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL) (TEST #'EQL)) (COMMON-LISP:BLOCK POSITION (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3086 (!) (FIND-IF #'(COMMON-LISP:LAMBDA (X I) (? (FUNCALL TEST X OBJ) (COMMON-LISP:PROGN (COMMON-LISP:SETQ ! I)))) SEQ :START START :END END :FROM-END FROM-END :WITH-INDEX COMMON-LISP:T) !)) (G3086 COMMON-LISP:NIL))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'POSITION *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'POSITION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'OBJ COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS ':START (COMMON-LISP:CONS 'START (COMMON-LISP:CONS ':END (COMMON-LISP:CONS 'END (COMMON-LISP:CONS ':FROM-END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS ':WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL))))))))))) (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'POSITION))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'POSITION-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN POSITION-IF (PRED SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL)) (COMMON-LISP:BLOCK POSITION-IF (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3087 (!) (FIND-IF #'(COMMON-LISP:LAMBDA (X I) (? (FUNCALL PRED X) (COMMON-LISP:PROGN (COMMON-LISP:SETQ ! I)))) SEQ :START START :END END :FROM-END FROM-END :WITH-INDEX COMMON-LISP:T) !)) (G3087 COMMON-LISP:NIL))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'POSITION-IF *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'POSITION-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS ':START (COMMON-LISP:CONS 'START (COMMON-LISP:CONS ':END (COMMON-LISP:CONS 'END (COMMON-LISP:CONS ':FROM-END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS ':WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL))))))))))) (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'POSITION-IF))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'POSITION (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN POSITION (OBJ SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL) (TEST #'EQL)) (COMMON-LISP:BLOCK POSITION (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3669 (!) (FIND-IF #'(COMMON-LISP:LAMBDA (X I) (? (FUNCALL TEST X OBJ) (COMMON-LISP:PROGN (COMMON-LISP:SETQ ! I)))) SEQ :START START :END END :FROM-END FROM-END :WITH-INDEX COMMON-LISP:T) !)) (G3669 COMMON-LISP:NIL))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'POSITION *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'POSITION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'OBJ COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS ':START (COMMON-LISP:CONS 'START (COMMON-LISP:CONS ':END (COMMON-LISP:CONS 'END (COMMON-LISP:CONS ':FROM-END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS ':WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL))))))))))) (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'POSITION))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'POSITION-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN POSITION-IF (PRED SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL)) (COMMON-LISP:BLOCK POSITION-IF (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3670 (!) (FIND-IF #'(COMMON-LISP:LAMBDA (X I) (? (FUNCALL PRED X) (COMMON-LISP:PROGN (COMMON-LISP:SETQ ! I)))) SEQ :START START :END END :FROM-END FROM-END :WITH-INDEX COMMON-LISP:T) !)) (G3670 COMMON-LISP:NIL))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'POSITION-IF *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'POSITION-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS ':START (COMMON-LISP:CONS 'START (COMMON-LISP:CONS ':END (COMMON-LISP:CONS 'END (COMMON-LISP:CONS ':FROM-END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS ':WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL))))))))))) (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'POSITION-IF))
   (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'SOME (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN SOME (PRED COMMON-LISP:&REST SEQS) (COMMON-LISP:BLOCK SOME (COMMON-LISP:BLOCK COMMON-LISP:NIL (FIND-IF PRED (COMMON-LISP:APPLY #'APPEND SEQS))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'SOME *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'SOME (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:APPLY (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'APPEND COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'SOME))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'EVERY (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN EVERY (PRED COMMON-LISP:&REST SEQS) (COMMON-LISP:BLOCK EVERY (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3088 (~G1047) (COMMON-LISP:LABELS ((G3089 (SEQ) (COMMON-LISP:TAGBODY ~G1045 (? (NOT ~G1047) (COMMON-LISP:GO ~G1046)) (COMMON-LISP:SETQ SEQ (COMMON-LISP:CAR ~G1047)) (COMMON-LISP:LABELS ((G3090 (~G1054) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3091 (!) (COMMON-LISP:TAGBODY ~G1055 (? (INTEGER== ! ~G1054) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))) (COMMON-LISP:LABELS ((G3092 (~G1044) (? ~G1044 ~G1044 (COMMON-LISP:RETURN-FROM EVERY COMMON-LISP:NIL)))) (G3092 (FUNCALL PRED (COMMON-LISP:ELT SEQ !)))) (COMMON-LISP:SETQ ! (INTEGER+ 1 !)) (COMMON-LISP:GO ~G1055)))) (G3091 0))))) (G3090 (INTEGER (COMMON-LISP:LENGTH SEQ)))) (COMMON-LISP:SETQ ~G1047 (COMMON-LISP:CDR ~G1047)) (COMMON-LISP:GO ~G1045) ~G1046 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G3089 COMMON-LISP:NIL)))) (G3088 SEQS)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'EVERY *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'EVERY (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1047 (COMMON-LISP:CONS 'SEQS (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1045 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1047 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1046 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1047 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1054 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DO (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS 0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 1 (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS '! (COMMON-LISP:CONS '~G1054 COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1044 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1044 (COMMON-LISP:CONS '~G1044 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS 'EVERY (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1047 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1047 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1045 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1046 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'EVERY))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'EVERY (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN EVERY (PRED COMMON-LISP:&REST SEQS) (COMMON-LISP:BLOCK EVERY (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3671 (~G1479) (COMMON-LISP:LABELS ((G3672 (SEQ) (COMMON-LISP:TAGBODY ~G1477 (? (NOT ~G1479) (COMMON-LISP:GO ~G1478)) (COMMON-LISP:SETQ SEQ (COMMON-LISP:CAR ~G1479)) (COMMON-LISP:LABELS ((G3673 (~G1476) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3674 (!) (COMMON-LISP:TAGBODY ~G1480 (? (INTEGER== ! ~G1476) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))) (COMMON-LISP:LABELS ((G3675 (~G1469) (? ~G1469 ~G1469 (COMMON-LISP:RETURN-FROM EVERY COMMON-LISP:NIL)))) (G3675 (FUNCALL PRED (COMMON-LISP:ELT SEQ !)))) (COMMON-LISP:SETQ ! (INTEGER+ 1 !)) (COMMON-LISP:GO ~G1480)))) (G3674 0))))) (G3673 (INTEGER (COMMON-LISP:LENGTH SEQ)))) (COMMON-LISP:SETQ ~G1479 (COMMON-LISP:CDR ~G1479)) (COMMON-LISP:GO ~G1477) ~G1478 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G3672 COMMON-LISP:NIL)))) (G3671 SEQS)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'EVERY *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'EVERY (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1479 (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1477 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1479 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1478 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1479 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1476 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DO (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS 0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 1 (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS '! (COMMON-LISP:CONS '~G1476 COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1469 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1469 (COMMON-LISP:CONS '~G1469 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS 'EVERY (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1479 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1479 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1477 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1478 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'EVERY))
   COMMON-LISP:NIL
   COMMON-LISP:NIL
   COMMON-LISP:NIL
  
positive.code: COMMON-LISP:NIL
  (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'QUEUE-LIST (COMMON-LISP:CONS 'QUEUE-FRONT COMMON-LISP:NIL)) *FUNCTIONALS*))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'MAKE-QUEUE (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN MAKE-QUEUE COMMON-LISP:NIL (COMMON-LISP:BLOCK MAKE-QUEUE (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'MAKE-QUEUE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'MAKE-QUEUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'MAKE-QUEUE))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'ENQUEUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'VALS COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN ENQUEUE (X COMMON-LISP:&REST VALS) (COMMON-LISP:BLOCK ENQUEUE (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:RPLACA X (COMMON-LISP:CDR (COMMON-LISP:RPLACD (COMMON-LISP:LABELS ((G3031 (~G1001) (? ~G1001 ~G1001 X))) (G3031 (COMMON-LISP:CAR X))) VALS))) VALS))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'ENQUEUE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'VALS COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'ENQUEUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RPLACA (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RPLACD (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1001 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1001 (COMMON-LISP:CONS '~G1001 (COMMON-LISP:CONS 'X COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'VALS COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS 'VALS COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'ENQUEUE))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'ENQUEUE-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'VALS COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN ENQUEUE-LIST (X VALS) (COMMON-LISP:BLOCK ENQUEUE-LIST (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:RPLACD X (NCONC (COMMON-LISP:CDR X) VALS)) (COMMON-LISP:RPLACA X (COMMON-LISP:LAST VALS))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'ENQUEUE-LIST *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'VALS COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'ENQUEUE-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RPLACD (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'NCONC (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS 'VALS COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RPLACA (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LAST (COMMON-LISP:CONS 'VALS COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'ENQUEUE-LIST))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'QUEUE-POP (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN QUEUE-POP (X) (COMMON-LISP:BLOCK QUEUE-POP (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3032 (~G1002) (? (NOT (COMMON-LISP:CDR (COMMON-LISP:CDR X))) (COMMON-LISP:RPLACA X COMMON-LISP:NIL)) (? (COMMON-LISP:CDR X) (COMMON-LISP:RPLACD X (COMMON-LISP:CDR (COMMON-LISP:CDR X)))) ~G1002)) (G3032 (COMMON-LISP:CAR (COMMON-LISP:CDR X))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'QUEUE-POP *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'QUEUE-POP (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1002 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RPLACA (COMMON-LISP:CONS 'X (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RPLACD (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS '~G1002 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'QUEUE-POP))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'QUEUE-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN QUEUE-LIST (X) (COMMON-LISP:BLOCK QUEUE-LIST (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:CDR X)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'QUEUE-LIST *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'QUEUE-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'QUEUE-LIST))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'QUEUE-FRONT (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN QUEUE-FRONT (X) (COMMON-LISP:BLOCK QUEUE-FRONT (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:CAR (COMMON-LISP:CDR X))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'QUEUE-FRONT *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'QUEUE-FRONT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'QUEUE-FRONT))
  COMMON-LISP:NIL
  
negative.code: (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'DOT-EXPAND-MAKE-EXPR (COMMON-LISP:CONS (COMMON-LISP:CONS 'WHICH (COMMON-LISP:CONS 'NUM (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN DOT-EXPAND-MAKE-EXPR (WHICH NUM X) (COMMON-LISP:BLOCK DOT-EXPAND-MAKE-EXPR (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (< 0 NUM) (COMMON-LISP:CONS WHICH (COMMON-LISP:CONS (DOT-EXPAND-MAKE-EXPR WHICH (-- NUM) X) COMMON-LISP:NIL)) X)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'DOT-EXPAND-MAKE-EXPR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'WHICH (COMMON-LISP:CONS 'NUM (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'DOT-EXPAND-MAKE-EXPR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 0 (COMMON-LISP:CONS 'NUM COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'BACKQUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'QUASIQUOTE (COMMON-LISP:CONS 'WHICH COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'QUASIQUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND-MAKE-EXPR (COMMON-LISP:CONS 'WHICH (COMMON-LISP:CONS (COMMON-LISP:CONS '-- (COMMON-LISP:CONS 'NUM COMMON-LISP:NIL)) (COMMON-LISP:CONS 'X COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'X COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'DOT-EXPAND-MAKE-EXPR))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'DOT-EXPAND-HEAD-LENGTH (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUM (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN DOT-EXPAND-HEAD-LENGTH (X COMMON-LISP:&OPTIONAL (NUM 0)) (COMMON-LISP:BLOCK DOT-EXPAND-HEAD-LENGTH (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (== #\. (COMMON-LISP:CAR X)) (DOT-EXPAND-HEAD-LENGTH (COMMON-LISP:CDR X) (++ NUM)) (VALUES NUM X))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'DOT-EXPAND-HEAD-LENGTH *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUM (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'DOT-EXPAND-HEAD-LENGTH (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\. (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND-HEAD-LENGTH (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '++ (COMMON-LISP:CONS 'NUM COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VALUES (COMMON-LISP:CONS 'NUM (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'DOT-EXPAND-HEAD-LENGTH))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'DOT-EXPAND-TAIL-LENGTH (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUM (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN DOT-EXPAND-TAIL-LENGTH (X COMMON-LISP:&OPTIONAL (NUM 0)) (COMMON-LISP:BLOCK DOT-EXPAND-TAIL-LENGTH (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (== #\. (COMMON-LISP:CAR (COMMON-LISP:LAST X))) (DOT-EXPAND-TAIL-LENGTH (BUTLAST X) (++ NUM)) (VALUES NUM X))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'DOT-EXPAND-TAIL-LENGTH *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUM (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'DOT-EXPAND-TAIL-LENGTH (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\. (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LAST (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND-TAIL-LENGTH (COMMON-LISP:CONS (COMMON-LISP:CONS 'BUTLAST (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '++ (COMMON-LISP:CONS 'NUM COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VALUES (COMMON-LISP:CONS 'NUM (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'DOT-EXPAND-TAIL-LENGTH))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'DOT-EXPAND-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN DOT-EXPAND-LIST (X) (COMMON-LISP:BLOCK DOT-EXPAND-LIST (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3676 (~G1486) (COMMON-LISP:LABELS ((G3677 (~G1487) (? (NOT (EQ (COMMON-LISP:CAR ~G1486) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1486))) (COMMON-LISP:LABELS ((G3678 (NUM-CDRS) (COMMON-LISP:LABELS ((G3679 (~G1488) (COMMON-LISP:LABELS ((G3680 (WITHOUT-START) (COMMON-LISP:LABELS ((G3681 (~G1492) (COMMON-LISP:LABELS ((G3682 (~G1493) (? (NOT (EQ (COMMON-LISP:CAR ~G1492) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1492))) (COMMON-LISP:LABELS ((G3683 (NUM-CARS) (COMMON-LISP:LABELS ((G3684 (~G1494) (COMMON-LISP:LABELS ((G3685 (WITHOUT-END) (DOT-EXPAND-MAKE-EXPR 'COMMON-LISP:CAR NUM-CARS (DOT-EXPAND-MAKE-EXPR 'COMMON-LISP:CDR NUM-CDRS (DOT-EXPAND (LIST-SYMBOL WITHOUT-END)))))) (G3685 (COMMON-LISP:CAR ~G1494))))) (G3684 (COMMON-LISP:LABELS ((G3686 (~G1496) (? ~G1496 ~G1496 (%ERROR "Not enough VALUES.")))) (G3686 (COMMON-LISP:CDR ~G1493))))))) (G3683 (COMMON-LISP:CAR ~G1493))))) (G3682 (COMMON-LISP:CDR ~G1492))))) (G3681 (DOT-EXPAND-TAIL-LENGTH WITHOUT-START))))) (G3680 (COMMON-LISP:CAR ~G1488))))) (G3679 (COMMON-LISP:LABELS ((G3687 (~G1491) (? ~G1491 ~G1491 (%ERROR "Not enough VALUES.")))) (G3687 (COMMON-LISP:CDR ~G1487))))))) (G3678 (COMMON-LISP:CAR ~G1487))))) (G3677 (COMMON-LISP:CDR ~G1486))))) (G3676 (DOT-EXPAND-HEAD-LENGTH X)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'DOT-EXPAND-LIST *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'DOT-EXPAND-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1486 (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND-HEAD-LENGTH (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1487 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1486 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'UNLESS (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1486 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'VALUES COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "VALUES expected instead of ~A." (COMMON-LISP:CONS '~G1486 COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUM-CDRS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1487 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1488 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1487 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%ERROR (COMMON-LISP:CONS "Not enough VALUES." COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITHOUT-START (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1488 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MULTIPLE-VALUE-BIND (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUM-CARS (COMMON-LISP:CONS 'WITHOUT-END COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND-TAIL-LENGTH (COMMON-LISP:CONS 'WITHOUT-START COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND-MAKE-EXPR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'COMMON-LISP:CAR COMMON-LISP:NIL)) (COMMON-LISP:CONS 'NUM-CARS (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND-MAKE-EXPR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'COMMON-LISP:CDR COMMON-LISP:NIL)) (COMMON-LISP:CONS 'NUM-CDRS (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-SYMBOL (COMMON-LISP:CONS 'WITHOUT-END COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'DOT-EXPAND-LIST))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'DOT-POSITION (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN DOT-POSITION (X) (COMMON-LISP:BLOCK DOT-POSITION (COMMON-LISP:BLOCK COMMON-LISP:NIL (POSITION #\. X :TEST #'==)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'DOT-POSITION *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'DOT-POSITION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'POSITION (COMMON-LISP:CONS #\. (COMMON-LISP:CONS 'X (COMMON-LISP:CONS ':TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS '== COMMON-LISP:NIL)) COMMON-LISP:NIL))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'DOT-POSITION))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'NO-DOT-NOTATION? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN NO-DOT-NOTATION? (X) (COMMON-LISP:BLOCK NO-DOT-NOTATION? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3688 (SL) (COMMON-LISP:LABELS ((G3689 (L) (COMMON-LISP:LABELS ((G3690 (P) (COMMON-LISP:LABELS ((G3691 (~G1481) (? ~G1481 ~G1481 (NOT P)))) (G3691 (== 1 L))))) (G3690 (DOT-POSITION SL))))) (G3689 (COMMON-LISP:LENGTH SL))))) (G3688 (STRING-LIST (SYMBOL-NAME X))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'NO-DOT-NOTATION? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'NO-DOT-NOTATION? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SL COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'L (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH (COMMON-LISP:CONS (COMMON-LISP:CONS 'P (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-POSITION (COMMON-LISP:CONS 'SL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1481 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1481 (COMMON-LISP:CONS '~G1481 (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS 'P COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 1 (COMMON-LISP:CONS 'L COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYMBOL-NAME (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'NO-DOT-NOTATION?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'HAS-DOT-NOTATION? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN HAS-DOT-NOTATION? (X) (COMMON-LISP:BLOCK HAS-DOT-NOTATION? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3692 (SL) (COMMON-LISP:LABELS ((G3693 (~G1482) (? ~G1482 ~G1482 (== #\. (COMMON-LISP:CAR (COMMON-LISP:LAST SL)))))) (G3693 (== #\. (COMMON-LISP:CAR SL)))))) (G3692 (STRING-LIST (SYMBOL-NAME X))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'HAS-DOT-NOTATION? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'HAS-DOT-NOTATION? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SL COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1482 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1482 (COMMON-LISP:CONS '~G1482 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\. (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LAST (COMMON-LISP:CONS 'SL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\. (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'SL COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYMBOL-NAME (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'HAS-DOT-NOTATION?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'DOT-EXPAND-CONV (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN DOT-EXPAND-CONV (X) (COMMON-LISP:BLOCK DOT-EXPAND-CONV (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3694 (SL) (COMMON-LISP:LABELS ((G3695 (P) (? (NO-DOT-NOTATION? X) X (HAS-DOT-NOTATION? X) (DOT-EXPAND-LIST SL) (COMMON-LISP:CONS '%SLOT-VALUE (COMMON-LISP:CONS (LIST-SYMBOL (SUBSEQ SL 0 P)) (COMMON-LISP:CONS (DOT-EXPAND-CONV (LIST-SYMBOL (SUBSEQ SL (++ P)))) COMMON-LISP:NIL)))))) (G3695 (DOT-POSITION SL))))) (G3694 (STRING-LIST (SYMBOL-NAME X))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'DOT-EXPAND-CONV *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'DOT-EXPAND-CONV (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SL COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'P (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-POSITION (COMMON-LISP:CONS 'SL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NO-DOT-NOTATION? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'HAS-DOT-NOTATION? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND-LIST (COMMON-LISP:CONS 'SL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'BACKQUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS '%SLOT-VALUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'QUASIQUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS 'SL (COMMON-LISP:CONS 0 (COMMON-LISP:CONS 'P COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'QUASIQUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND-CONV (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS 'SL (COMMON-LISP:CONS (COMMON-LISP:CONS '++ (COMMON-LISP:CONS 'P COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYMBOL-NAME (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'DOT-EXPAND-CONV))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'DOT-EXPAND (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN DOT-EXPAND (X) (COMMON-LISP:BLOCK DOT-EXPAND (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((LABEL? (_) (NOT (COMMON-LISP:LABELS ((G3696 (~G1483) (? ~G1483 ~G1483 (COMMON-LISP:LABELS ((G3697 (~G1484) (? ~G1484 ~G1484 (STRING? _)))) (G3697 (NUMBER? _)))))) (G3696 (CONS? _)))))) (? X (COMMON-LISP:PROGN (? (LABEL? X) (DOT-EXPAND-CONV X) (CONS? X) (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3698 (~G1490) (COMMON-LISP:LABELS ((G3699 (!) (? ! (COMMON-LISP:PROGN (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* !)))))) (G3699 (? (CONS? ~G1490) (CPR ~G1490)))))) (G3698 X)) (COMMON-LISP:LABELS ((G3700 (~G1485) (RPLACP (COMMON-LISP:CONS (DOT-EXPAND (COMMON-LISP:CAR X)) (DOT-EXPAND (COMMON-LISP:CDR X))) ~G1485))) (G3700 *DEFAULT-LISTPROP*))) X))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'DOT-EXPAND *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'DOT-EXPAND (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LABELS (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'LABEL? (COMMON-LISP:CONS (COMMON-LISP:CONS '_ COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1483 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1483 (COMMON-LISP:CONS '~G1483 (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1484 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1484 (COMMON-LISP:CONS '~G1484 (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING? (COMMON-LISP:CONS '_ COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUMBER? (COMMON-LISP:CONS '_ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CONS? (COMMON-LISP:CONS '_ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'LABEL? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND-CONV (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CONS? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1490 (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'AWHEN (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS (COMMON-LISP:CONS 'CONS? (COMMON-LISP:CONS '~G1490 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CPR (COMMON-LISP:CONS '~G1490 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '= (COMMON-LISP:CONS '*DEFAULT-LISTPROP* (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1485 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'RPLACP (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS '~G1485 COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS '*DEFAULT-LISTPROP* COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS 'X COMMON-LISP:NIL)))))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'DOT-EXPAND))
  (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DOTEXPAND-HOOK* #'DOT-EXPAND))
  (%DEFVAR *MEMORIZED-NUMBERS* (MAKE-HASH-TABLE :TEST #'==))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'MEMORIZED-NUMBER (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN MEMORIZED-NUMBER (X) (COMMON-LISP:BLOCK MEMORIZED-NUMBER (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3701 (~G1497) (? ~G1497 ~G1497 (COMMON-LISP:PROGN (=-HREF X *MEMORIZED-NUMBERS* X))))) (G3701 (HREF *MEMORIZED-NUMBERS* X)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'MEMORIZED-NUMBER *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'MEMORIZED-NUMBER (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1497 (COMMON-LISP:CONS (COMMON-LISP:CONS 'HREF (COMMON-LISP:CONS '*MEMORIZED-NUMBERS* (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1497 (COMMON-LISP:CONS '~G1497 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-HREF (COMMON-LISP:CONS 'X (COMMON-LISP:CONS '*MEMORIZED-NUMBERS* (COMMON-LISP:CONS 'X COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'MEMORIZED-NUMBER))
  (%DEFVAR *TERPRI* (STRING (CODE-CHAR 10)))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'TERPRI (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-OUTPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN TERPRI (COMMON-LISP:&OPTIONAL (STR *STANDARD-OUTPUT*)) (COMMON-LISP:BLOCK TERPRI (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3702 (~G1498) (COMMON-LISP:LABELS ((G3703 (S) (COMMON-LISP:LABELS ((G3704 (~G1499) (? ~G1498 ~G1499 (GET-STREAM-STRING S)))) (G3704 (COMMON-LISP:PROGN (STREAM-PRINC (CODE-CHAR 10) S) (FORCE-OUTPUT S) COMMON-LISP:NIL))))) (G3703 (DEFAULT-STREAM ~G1498))))) (G3702 STR))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'TERPRI *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-OUTPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'TERPRI (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1498 (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH (COMMON-LISP:CONS (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'DEFAULT-STREAM (COMMON-LISP:CONS '~G1498 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1499 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-PRINC (COMMON-LISP:CONS (COMMON-LISP:CONS 'CODE-CHAR (COMMON-LISP:CONS 10 COMMON-LISP:NIL)) (COMMON-LISP:CONS 'S COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FORCE-OUTPUT (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1498 (COMMON-LISP:CONS '~G1499 (COMMON-LISP:CONS (COMMON-LISP:CONS 'GET-STREAM-STRING (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'TERPRI))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'FRESH-LINE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-OUTPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN FRESH-LINE (COMMON-LISP:&OPTIONAL (STR *STANDARD-OUTPUT*)) (COMMON-LISP:BLOCK FRESH-LINE (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3705 (~G1500) (COMMON-LISP:LABELS ((G3706 (S) (COMMON-LISP:LABELS ((G3707 (~G1501) (? ~G1500 ~G1501 (GET-STREAM-STRING S)))) (G3707 (COMMON-LISP:PROGN (? (NOT (FRESH-LINE? S)) (COMMON-LISP:PROGN (TERPRI S) COMMON-LISP:T))))))) (G3706 (DEFAULT-STREAM ~G1500))))) (G3705 STR))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'FRESH-LINE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-OUTPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'FRESH-LINE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1500 (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH (COMMON-LISP:CONS (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'DEFAULT-STREAM (COMMON-LISP:CONS '~G1500 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1501 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'FRESH-LINE? (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'TERPRI (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1500 (COMMON-LISP:CONS '~G1501 (COMMON-LISP:CONS (COMMON-LISP:CONS 'GET-STREAM-STRING (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'FRESH-LINE))
  (%DEFVAR *DEFAULT-STREAM-TABSIZE* 8)
  (COMMON-LISP:PROGN COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'MAKE-STREAM-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'TRACK? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'TRACK? COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ID (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'ID COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LINE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'LINE COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COLUMN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'COLUMN COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TABSIZE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'TABSIZE COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN MAKE-STREAM-LOCATION (COMMON-LISP:&KEY (TRACK? 'TRACK?) (ID 'ID) (LINE 'LINE) (COLUMN 'COLUMN) (TABSIZE 'TABSIZE)) (COMMON-LISP:BLOCK MAKE-STREAM-LOCATION (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3708 (~G1502) (COMMON-LISP:PROGN (=-AREF 'STRUCT ~G1502 0) (=-AREF 'STREAM-LOCATION ~G1502 1)) (COMMON-LISP:PROGN (=-AREF (? (EQ TRACK? 'TRACK?) COMMON-LISP:T TRACK?) ~G1502 2)) (COMMON-LISP:PROGN (=-AREF (? (EQ ID 'ID) COMMON-LISP:NIL ID) ~G1502 3)) (COMMON-LISP:PROGN (=-AREF (? (EQ LINE 'LINE) 1 LINE) ~G1502 4)) (COMMON-LISP:PROGN (=-AREF (? (EQ COLUMN 'COLUMN) 1 COLUMN) ~G1502 5)) (COMMON-LISP:PROGN (=-AREF (? (EQ TABSIZE 'TABSIZE) *DEFAULT-STREAM-TABSIZE* TABSIZE) ~G1502 6)) ~G1502)) (G3708 (MAKE-ARRAY 7)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'MAKE-STREAM-LOCATION *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'TRACK? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'TRACK? COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ID (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'ID COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LINE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'LINE COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COLUMN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'COLUMN COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TABSIZE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'TABSIZE COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'MAKE-STREAM-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1502 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'STRUCT COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1502 (COMMON-LISP:CONS 0 COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'STREAM-LOCATION COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1502 (COMMON-LISP:CONS 1 COMMON-LISP:NIL)))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'TRACK? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'TRACK? COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:T (COMMON-LISP:CONS 'TRACK? COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1502 (COMMON-LISP:CONS 2 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'ID (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'ID COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS 'ID COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1502 (COMMON-LISP:CONS 3 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'LINE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'LINE COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS 1 (COMMON-LISP:CONS 'LINE COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1502 (COMMON-LISP:CONS 4 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'COLUMN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'COLUMN COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS 1 (COMMON-LISP:CONS 'COLUMN COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1502 (COMMON-LISP:CONS 5 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'TABSIZE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'TABSIZE COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS '*DEFAULT-STREAM-TABSIZE* (COMMON-LISP:CONS 'TABSIZE COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1502 (COMMON-LISP:CONS 6 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1502 COMMON-LISP:NIL)))))))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-ARRAY (COMMON-LISP:CONS 7 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'MAKE-STREAM-LOCATION)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-LOCATION? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-LOCATION? (X) (COMMON-LISP:BLOCK STREAM-LOCATION? (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (ARRAY? X) (? (EQ 'STRUCT (COMMON-LISP:AREF X 0)) (EQ 'STREAM-LOCATION (COMMON-LISP:AREF X 1))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-LOCATION? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-LOCATION? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARRAY? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'STRUCT COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 0 COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'STREAM-LOCATION COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 1 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-LOCATION?)) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-LOCATION-TRACK? COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-LOCATION-TRACK? (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-LOCATION-TRACK? (ARR) (COMMON-LISP:BLOCK STREAM-LOCATION-TRACK? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 2)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-LOCATION-TRACK? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-LOCATION-TRACK? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 2 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-LOCATION-TRACK?)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-LOCATION-TRACK? (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-LOCATION-TRACK? (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-LOCATION-TRACK? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 2))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-LOCATION-TRACK? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-LOCATION-TRACK? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 2 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-LOCATION-TRACK?))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-LOCATION-ID COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-LOCATION-ID (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-LOCATION-ID (ARR) (COMMON-LISP:BLOCK STREAM-LOCATION-ID (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 3)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-LOCATION-ID *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-LOCATION-ID (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 3 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-LOCATION-ID)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-LOCATION-ID (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-LOCATION-ID (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-LOCATION-ID (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 3))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-LOCATION-ID *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-LOCATION-ID (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 3 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-LOCATION-ID))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-LOCATION-LINE COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-LOCATION-LINE (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-LOCATION-LINE (ARR) (COMMON-LISP:BLOCK STREAM-LOCATION-LINE (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 4)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-LOCATION-LINE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-LOCATION-LINE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 4 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-LOCATION-LINE)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-LOCATION-LINE (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-LOCATION-LINE (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-LOCATION-LINE (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 4))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-LOCATION-LINE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-LOCATION-LINE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 4 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-LOCATION-LINE))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-LOCATION-COLUMN COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-LOCATION-COLUMN (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-LOCATION-COLUMN (ARR) (COMMON-LISP:BLOCK STREAM-LOCATION-COLUMN (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 5)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-LOCATION-COLUMN *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-LOCATION-COLUMN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 5 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-LOCATION-COLUMN)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-LOCATION-COLUMN (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-LOCATION-COLUMN (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-LOCATION-COLUMN (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 5))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-LOCATION-COLUMN *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-LOCATION-COLUMN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 5 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-LOCATION-COLUMN))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-LOCATION-TABSIZE COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-LOCATION-TABSIZE (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-LOCATION-TABSIZE (ARR) (COMMON-LISP:BLOCK STREAM-LOCATION-TABSIZE (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 6)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-LOCATION-TABSIZE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-LOCATION-TABSIZE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 6 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-LOCATION-TABSIZE)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-LOCATION-TABSIZE (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-LOCATION-TABSIZE (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-LOCATION-TABSIZE (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 6))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-LOCATION-TABSIZE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-LOCATION-TABSIZE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 6 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-LOCATION-TABSIZE))) (COMMON-LISP:BLOCK COMMON-LISP:NIL (%DEFMACRO WITH-STREAM-LOCATION (S COMMON-LISP:&REST BODY) (COMMON-LISP:BLOCK WITH-STREAM-LOCATION (COMMON-LISP:CONS 'WITH-STRUCT (COMMON-LISP:CONS 'STREAM-LOCATION (COMMON-LISP:CONS S (APPEND BODY COMMON-LISP:NIL))))))) (COMMON-LISP:BLOCK COMMON-LISP:NIL (%DEFMACRO DEF-STREAM-LOCATION (NAME ARGS COMMON-LISP:&REST BODY) (COMMON-LISP:BLOCK DEF-STREAM-LOCATION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS NAME (COMMON-LISP:CONS ARGS (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH-STRUCT (COMMON-LISP:CONS 'STREAM-LOCATION (COMMON-LISP:CONS 'STREAM-LOCATION (APPEND BODY COMMON-LISP:NIL)))) COMMON-LISP:NIL))))))))
  (COMMON-LISP:PROGN COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'MAKE-STREAM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'HANDLE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'HANDLE COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUN-IN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'FUN-IN COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUN-OUT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'FUN-OUT COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUN-EOF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'FUN-EOF COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LAST-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'LAST-CHAR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEKED-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'PEEKED-CHAR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'INPUT-LOCATION COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'OUTPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'OUTPUT-LOCATION COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'USER-DETAIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'USER-DETAIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))))))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN MAKE-STREAM (COMMON-LISP:&KEY (HANDLE 'HANDLE) (FUN-IN 'FUN-IN) (FUN-OUT 'FUN-OUT) (FUN-EOF 'FUN-EOF) (LAST-CHAR 'LAST-CHAR) (PEEKED-CHAR 'PEEKED-CHAR) (INPUT-LOCATION 'INPUT-LOCATION) (OUTPUT-LOCATION 'OUTPUT-LOCATION) (USER-DETAIL 'USER-DETAIL)) (COMMON-LISP:BLOCK MAKE-STREAM (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3709 (~G1503) (COMMON-LISP:PROGN (=-AREF 'STRUCT ~G1503 0) (=-AREF 'STREAM ~G1503 1)) (COMMON-LISP:PROGN (=-AREF (? (EQ HANDLE 'HANDLE) COMMON-LISP:NIL HANDLE) ~G1503 2)) (COMMON-LISP:PROGN (=-AREF (? (EQ FUN-IN 'FUN-IN) COMMON-LISP:NIL FUN-IN) ~G1503 3)) (COMMON-LISP:PROGN (=-AREF (? (EQ FUN-OUT 'FUN-OUT) COMMON-LISP:NIL FUN-OUT) ~G1503 4)) (COMMON-LISP:PROGN (=-AREF (? (EQ FUN-EOF 'FUN-EOF) COMMON-LISP:NIL FUN-EOF) ~G1503 5)) (COMMON-LISP:PROGN (=-AREF (? (EQ LAST-CHAR 'LAST-CHAR) COMMON-LISP:NIL LAST-CHAR) ~G1503 6)) (COMMON-LISP:PROGN (=-AREF (? (EQ PEEKED-CHAR 'PEEKED-CHAR) COMMON-LISP:NIL PEEKED-CHAR) ~G1503 7)) (COMMON-LISP:PROGN (=-AREF (? (EQ INPUT-LOCATION 'INPUT-LOCATION) (MAKE-STREAM-LOCATION) INPUT-LOCATION) ~G1503 8)) (COMMON-LISP:PROGN (=-AREF (? (EQ OUTPUT-LOCATION 'OUTPUT-LOCATION) (MAKE-STREAM-LOCATION :TRACK? COMMON-LISP:NIL) OUTPUT-LOCATION) ~G1503 9)) (COMMON-LISP:PROGN (=-AREF (? (EQ USER-DETAIL 'USER-DETAIL) COMMON-LISP:NIL USER-DETAIL) ~G1503 10)) ~G1503)) (G3709 (MAKE-ARRAY 11)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'MAKE-STREAM *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'HANDLE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'HANDLE COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUN-IN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'FUN-IN COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUN-OUT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'FUN-OUT COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUN-EOF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'FUN-EOF COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LAST-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'LAST-CHAR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEKED-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'PEEKED-CHAR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'INPUT-LOCATION COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'OUTPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'OUTPUT-LOCATION COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'USER-DETAIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'USER-DETAIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'MAKE-STREAM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1503 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'STRUCT COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1503 (COMMON-LISP:CONS 0 COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'STREAM COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1503 (COMMON-LISP:CONS 1 COMMON-LISP:NIL)))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'HANDLE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'HANDLE COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS 'HANDLE COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1503 (COMMON-LISP:CONS 2 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'FUN-IN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'FUN-IN COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS 'FUN-IN COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1503 (COMMON-LISP:CONS 3 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'FUN-OUT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'FUN-OUT COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS 'FUN-OUT COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1503 (COMMON-LISP:CONS 4 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'FUN-EOF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'FUN-EOF COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS 'FUN-EOF COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1503 (COMMON-LISP:CONS 5 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'LAST-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'LAST-CHAR COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS 'LAST-CHAR COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1503 (COMMON-LISP:CONS 6 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'PEEKED-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'PEEKED-CHAR COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS 'PEEKED-CHAR COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1503 (COMMON-LISP:CONS 7 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'INPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'INPUT-LOCATION COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-STREAM-LOCATION COMMON-LISP:NIL) (COMMON-LISP:CONS 'INPUT-LOCATION COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1503 (COMMON-LISP:CONS 8 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'OUTPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'OUTPUT-LOCATION COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-STREAM-LOCATION (COMMON-LISP:CONS ':TRACK? (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) (COMMON-LISP:CONS 'OUTPUT-LOCATION COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1503 (COMMON-LISP:CONS 9 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'USER-DETAIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'USER-DETAIL COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS 'USER-DETAIL COMMON-LISP:NIL)))) (COMMON-LISP:CONS '~G1503 (COMMON-LISP:CONS 10 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1503 COMMON-LISP:NIL)))))))))))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-ARRAY (COMMON-LISP:CONS 11 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'MAKE-STREAM)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM? (X) (COMMON-LISP:BLOCK STREAM? (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (ARRAY? X) (? (EQ 'STRUCT (COMMON-LISP:AREF X 0)) (EQ 'STREAM (COMMON-LISP:AREF X 1))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARRAY? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'STRUCT COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 0 COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'STREAM COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 1 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM?)) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-HANDLE COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-HANDLE (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-HANDLE (ARR) (COMMON-LISP:BLOCK STREAM-HANDLE (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 2)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-HANDLE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-HANDLE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 2 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-HANDLE)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-HANDLE (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-HANDLE (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-HANDLE (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 2))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-HANDLE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-HANDLE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 2 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-HANDLE))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-FUN-IN COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-FUN-IN (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-FUN-IN (ARR) (COMMON-LISP:BLOCK STREAM-FUN-IN (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 3)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-FUN-IN *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-FUN-IN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 3 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-FUN-IN)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-FUN-IN (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-FUN-IN (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-FUN-IN (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 3))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-FUN-IN *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-FUN-IN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 3 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-FUN-IN))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-FUN-OUT COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-FUN-OUT (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-FUN-OUT (ARR) (COMMON-LISP:BLOCK STREAM-FUN-OUT (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 4)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-FUN-OUT *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-FUN-OUT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 4 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-FUN-OUT)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-FUN-OUT (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-FUN-OUT (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-FUN-OUT (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 4))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-FUN-OUT *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-FUN-OUT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 4 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-FUN-OUT))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-FUN-EOF COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-FUN-EOF (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-FUN-EOF (ARR) (COMMON-LISP:BLOCK STREAM-FUN-EOF (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 5)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-FUN-EOF *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-FUN-EOF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 5 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-FUN-EOF)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-FUN-EOF (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-FUN-EOF (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-FUN-EOF (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 5))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-FUN-EOF *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-FUN-EOF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 5 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-FUN-EOF))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-LAST-CHAR COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-LAST-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-LAST-CHAR (ARR) (COMMON-LISP:BLOCK STREAM-LAST-CHAR (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 6)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-LAST-CHAR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-LAST-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 6 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-LAST-CHAR)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-LAST-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-LAST-CHAR (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-LAST-CHAR (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 6))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-LAST-CHAR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-LAST-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 6 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-LAST-CHAR))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-PEEKED-CHAR COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-PEEKED-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-PEEKED-CHAR (ARR) (COMMON-LISP:BLOCK STREAM-PEEKED-CHAR (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 7)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-PEEKED-CHAR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-PEEKED-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 7 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-PEEKED-CHAR)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-PEEKED-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-PEEKED-CHAR (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-PEEKED-CHAR (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 7))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-PEEKED-CHAR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-PEEKED-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 7 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-PEEKED-CHAR))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-INPUT-LOCATION COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-INPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-INPUT-LOCATION (ARR) (COMMON-LISP:BLOCK STREAM-INPUT-LOCATION (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 8)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-INPUT-LOCATION *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-INPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 8 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-INPUT-LOCATION)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-INPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-INPUT-LOCATION (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-INPUT-LOCATION (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 8))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-INPUT-LOCATION *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-INPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 8 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-INPUT-LOCATION))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-OUTPUT-LOCATION COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-OUTPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-OUTPUT-LOCATION (ARR) (COMMON-LISP:BLOCK STREAM-OUTPUT-LOCATION (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 9)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-OUTPUT-LOCATION *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-OUTPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 9 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-OUTPUT-LOCATION)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-OUTPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-OUTPUT-LOCATION (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-OUTPUT-LOCATION (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 9))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-OUTPUT-LOCATION *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-OUTPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 9 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-OUTPUT-LOCATION))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STREAM-USER-DETAIL COMMON-LISP:NIL) *FUNCTIONALS*)) COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-USER-DETAIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-USER-DETAIL (ARR) (COMMON-LISP:BLOCK STREAM-USER-DETAIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:AREF ARR 10)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-USER-DETAIL *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-USER-DETAIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 10 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-USER-DETAIL)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '=-STREAM-USER-DETAIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN =-STREAM-USER-DETAIL (VAL ARR) (COMMON-LISP:BLOCK =-STREAM-USER-DETAIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (=-AREF VAL ARR 10))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'=-STREAM-USER-DETAIL *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '=-STREAM-USER-DETAIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-AREF (COMMON-LISP:CONS 'VAL (COMMON-LISP:CONS 'ARR (COMMON-LISP:CONS 10 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '=-STREAM-USER-DETAIL))) (COMMON-LISP:BLOCK COMMON-LISP:NIL (%DEFMACRO WITH-STREAM (S COMMON-LISP:&REST BODY) (COMMON-LISP:BLOCK WITH-STREAM (COMMON-LISP:CONS 'WITH-STRUCT (COMMON-LISP:CONS 'STREAM (COMMON-LISP:CONS S (APPEND BODY COMMON-LISP:NIL))))))) (COMMON-LISP:BLOCK COMMON-LISP:NIL (%DEFMACRO DEF-STREAM (NAME ARGS COMMON-LISP:&REST BODY) (COMMON-LISP:BLOCK DEF-STREAM (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS NAME (COMMON-LISP:CONS ARGS (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH-STRUCT (COMMON-LISP:CONS 'STREAM (COMMON-LISP:CONS 'STREAM (APPEND BODY COMMON-LISP:NIL)))) COMMON-LISP:NIL))))))))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'NEXT-TABULATOR-COLUMN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COLUMN (COMMON-LISP:CONS 'SIZE COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN NEXT-TABULATOR-COLUMN (COLUMN SIZE) (COMMON-LISP:BLOCK NEXT-TABULATOR-COLUMN (COMMON-LISP:BLOCK COMMON-LISP:NIL (++ (* SIZE (++ (INTEGER (/ (-- COLUMN) SIZE)))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'NEXT-TABULATOR-COLUMN *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COLUMN (COMMON-LISP:CONS 'SIZE COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'NEXT-TABULATOR-COLUMN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '++ (COMMON-LISP:CONS (COMMON-LISP:CONS '* (COMMON-LISP:CONS 'SIZE (COMMON-LISP:CONS (COMMON-LISP:CONS '++ (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS (COMMON-LISP:CONS '/ (COMMON-LISP:CONS (COMMON-LISP:CONS '-- (COMMON-LISP:CONS 'COLUMN COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SIZE COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'NEXT-TABULATOR-COLUMN))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%TRACK-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %TRACK-LOCATION (STREAM-LOCATION X) (COMMON-LISP:BLOCK %TRACK-LOCATION (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3710 (STREAM-LOCATION) (COMMON-LISP:LABELS ((G3711 (TRACK?) (COMMON-LISP:LABELS ((G3712 (ID) (COMMON-LISP:LABELS ((G3713 (LINE) (COMMON-LISP:LABELS ((G3714 (COLUMN) (COMMON-LISP:LABELS ((G3715 (TABSIZE) TRACK? ID LINE COLUMN TABSIZE (? TRACK? (COMMON-LISP:PROGN (? (STRING? X) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3716 (~G1506) (COMMON-LISP:LABELS ((G3717 (!) (COMMON-LISP:TAGBODY ~G1504 (? (NOT ~G1506) (COMMON-LISP:GO ~G1505)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1506)) (%TRACK-LOCATION STREAM-LOCATION !) (COMMON-LISP:SETQ ~G1506 (COMMON-LISP:CDR ~G1506)) (COMMON-LISP:GO ~G1504) ~G1505 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))))) (G3717 COMMON-LISP:NIL)))) (G3716 (STRING-LIST X)))) (? X (COMMON-LISP:PROGN (? (== 10 X) (COMMON-LISP:PROGN (COMMON-LISP:PROGN (=-STREAM-LOCATION-COLUMN 1 STREAM-LOCATION)) (COMMON-LISP:PROGN (=-STREAM-LOCATION-LINE (NUMBER+ (STREAM-LOCATION-LINE STREAM-LOCATION) 1) STREAM-LOCATION))) (? (== 9 X) (COMMON-LISP:PROGN (=-STREAM-LOCATION-COLUMN (NEXT-TABULATOR-COLUMN COLUMN TABSIZE) STREAM-LOCATION)) (< 31 X) (COMMON-LISP:PROGN (=-STREAM-LOCATION-COLUMN (NUMBER+ (STREAM-LOCATION-COLUMN STREAM-LOCATION) 1) STREAM-LOCATION))))))))) X)) (G3715 (STREAM-LOCATION-TABSIZE STREAM-LOCATION))))) (G3714 (STREAM-LOCATION-COLUMN STREAM-LOCATION))))) (G3713 (STREAM-LOCATION-LINE STREAM-LOCATION))))) (G3712 (STREAM-LOCATION-ID STREAM-LOCATION))))) (G3711 (STREAM-LOCATION-TRACK? STREAM-LOCATION))))) (G3710 STREAM-LOCATION))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%TRACK-LOCATION *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%TRACK-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'STREAM-LOCATION (COMMON-LISP:CONS 'STREAM-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'TRACK? (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION-TRACK? (COMMON-LISP:CONS 'STREAM-LOCATION COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ID (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION-ID (COMMON-LISP:CONS 'STREAM-LOCATION COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LINE (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION-LINE (COMMON-LISP:CONS 'STREAM-LOCATION COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COLUMN (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION-COLUMN (COMMON-LISP:CONS 'STREAM-LOCATION COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TABSIZE (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION-TABSIZE (COMMON-LISP:CONS 'STREAM-LOCATION COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))) (COMMON-LISP:CONS 'TRACK? (COMMON-LISP:CONS 'ID (COMMON-LISP:CONS 'LINE (COMMON-LISP:CONS 'COLUMN (COMMON-LISP:CONS 'TABSIZE (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'TRACK? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1506 (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING-LIST (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1504 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1506 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1505 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1506 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '%TRACK-LOCATION (COMMON-LISP:CONS 'STREAM-LOCATION (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1506 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1506 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1504 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1505 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 10 (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-STREAM-LOCATION-COLUMN (COMMON-LISP:CONS 1 (COMMON-LISP:CONS 'STREAM-LOCATION COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-STREAM-LOCATION-LINE (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUMBER+ (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION-LINE (COMMON-LISP:CONS 'STREAM-LOCATION COMMON-LISP:NIL)) (COMMON-LISP:CONS 1 COMMON-LISP:NIL))) (COMMON-LISP:CONS 'STREAM-LOCATION COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 9 (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-STREAM-LOCATION-COLUMN (COMMON-LISP:CONS (COMMON-LISP:CONS 'NEXT-TABULATOR-COLUMN (COMMON-LISP:CONS 'COLUMN (COMMON-LISP:CONS 'TABSIZE COMMON-LISP:NIL))) (COMMON-LISP:CONS 'STREAM-LOCATION COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 31 (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-STREAM-LOCATION-COLUMN (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUMBER+ (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION-COLUMN (COMMON-LISP:CONS 'STREAM-LOCATION COMMON-LISP:NIL)) (COMMON-LISP:CONS 1 COMMON-LISP:NIL))) (COMMON-LISP:CONS 'STREAM-LOCATION COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS 'X COMMON-LISP:NIL))))))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%TRACK-LOCATION))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STREAM-PRINC (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STREAM-PRINC (X STR) (COMMON-LISP:BLOCK STREAM-PRINC (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (CONS? X) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3718 (~G1509) (COMMON-LISP:LABELS ((G3719 (!) (COMMON-LISP:TAGBODY ~G1507 (? (NOT ~G1509) (COMMON-LISP:GO ~G1508)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1509)) (STREAM-PRINC ! STR) (COMMON-LISP:SETQ ~G1509 (COMMON-LISP:CDR ~G1509)) (COMMON-LISP:GO ~G1507) ~G1508 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN X))))) (G3719 COMMON-LISP:NIL)))) (G3718 X))) (? (NOT (? (STRING? X) (ZERO? (COMMON-LISP:LENGTH X)))) (COMMON-LISP:PROGN (COMMON-LISP:PROGN (=-STREAM-LAST-CHAR (? (STRING? X) (COMMON-LISP:ELT X (-- (COMMON-LISP:LENGTH X))) X) STR)) (%TRACK-LOCATION (STREAM-OUTPUT-LOCATION STR) X) (FUNCALL (STREAM-FUN-OUT STR) X STR))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STREAM-PRINC *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STREAM-PRINC (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'CONS? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1509 (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1507 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1509 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1508 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1509 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-PRINC (COMMON-LISP:CONS '! (COMMON-LISP:CONS 'STR COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1509 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1509 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1507 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1508 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ZERO? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-STREAM-LAST-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS '-- (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS 'X COMMON-LISP:NIL)))) (COMMON-LISP:CONS 'STR COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%TRACK-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-OUTPUT-LOCATION (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-FUN-OUT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STREAM-PRINC))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-PEEKED-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-PEEKED-CHAR (STR) (COMMON-LISP:BLOCK READ-PEEKED-CHAR (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3720 (!) (? ! (COMMON-LISP:PROGN (COMMON-LISP:PROGN (=-STREAM-PEEKED-CHAR COMMON-LISP:NIL STR)) !)))) (G3720 (STREAM-PEEKED-CHAR STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-PEEKED-CHAR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-PEEKED-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-STREAM-PEEKED-CHAR (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS 'STR COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-PEEKED-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-PEEKED-CHAR))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-CHAR-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-CHAR-0 (STR) (COMMON-LISP:BLOCK READ-CHAR-0 (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3721 (~G1510) (? ~G1510 ~G1510 (COMMON-LISP:PROGN (=-STREAM-LAST-CHAR (FUNCALL (STREAM-FUN-IN STR) STR) STR))))) (G3721 (READ-PEEKED-CHAR STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-CHAR-0 *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-CHAR-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1510 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1510 (COMMON-LISP:CONS '~G1510 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-STREAM-LAST-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-FUN-IN (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS 'STR COMMON-LISP:NIL))) (COMMON-LISP:CONS 'STR COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-PEEKED-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-CHAR-0))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-INPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-CHAR (COMMON-LISP:&OPTIONAL (STR *STANDARD-INPUT*)) (COMMON-LISP:BLOCK READ-CHAR (COMMON-LISP:BLOCK COMMON-LISP:NIL (%TRACK-LOCATION (STREAM-INPUT-LOCATION STR) (READ-CHAR-0 STR))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-CHAR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-INPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '%TRACK-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-INPUT-LOCATION (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR-0 (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-CHAR))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-INPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN PEEK-CHAR (COMMON-LISP:&OPTIONAL (STR *STANDARD-INPUT*)) (COMMON-LISP:BLOCK PEEK-CHAR (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3722 (~G1511) (? ~G1511 ~G1511 (COMMON-LISP:PROGN (=-STREAM-PEEKED-CHAR (READ-CHAR-0 STR) STR))))) (G3722 (STREAM-PEEKED-CHAR STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'PEEK-CHAR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-INPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1511 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1511 (COMMON-LISP:CONS '~G1511 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-STREAM-PEEKED-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR-0 (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS 'STR COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-PEEKED-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'PEEK-CHAR))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'DEFAULT-STREAM (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN DEFAULT-STREAM (X) (COMMON-LISP:BLOCK DEFAULT-STREAM (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3723 (~G1512) (? (EQ ~G1512 COMMON-LISP:NIL) (MAKE-STRING-STREAM) (EQ ~G1512 COMMON-LISP:T) *STANDARD-OUTPUT* X))) (G3723 X))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'DEFAULT-STREAM *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'DEFAULT-STREAM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1512 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1512 (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-STRING-STREAM COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1512 (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL))) (COMMON-LISP:CONS '*STANDARD-OUTPUT* (COMMON-LISP:CONS 'X COMMON-LISP:NIL)))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'DEFAULT-STREAM))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (%DEFMACRO WITH-DEFAULT-STREAM (NSTR STR COMMON-LISP:&REST BODY) (COMMON-LISP:BLOCK WITH-DEFAULT-STREAM (COMMON-LISP:LABELS ((G3724 (G) (COMMON-LISP:LABELS ((G3725 (BODY-RESULT) (COMMON-LISP:CONS 'WITH (COMMON-LISP:CONS (COMMON-LISP:CONS G (COMMON-LISP:CONS STR (COMMON-LISP:CONS NSTR (COMMON-LISP:CONS (COMMON-LISP:CONS 'DEFAULT-STREAM (COMMON-LISP:CONS G COMMON-LISP:NIL)) (COMMON-LISP:CONS BODY-RESULT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (APPEND BODY COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS G (COMMON-LISP:CONS BODY-RESULT (COMMON-LISP:CONS (COMMON-LISP:CONS 'GET-STREAM-STRING (COMMON-LISP:CONS NSTR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL))))) (G3725 (GENSYM))))) (G3724 (GENSYM))))))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'MAKE-STRING-STREAM (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN MAKE-STRING-STREAM COMMON-LISP:NIL (COMMON-LISP:BLOCK MAKE-STRING-STREAM (COMMON-LISP:BLOCK COMMON-LISP:NIL (MAKE-STREAM :USER-DETAIL (MAKE-QUEUE) :FUN-IN #'(COMMON-LISP:LAMBDA (STR) (COMMON-LISP:LABELS ((G3726 (!) (? (STRING? (COMMON-LISP:CAR !)) (COMMON-LISP:PROGN (COMMON-LISP:PROGN (=-STREAM-USER-DETAIL (MAKE-QUEUE) STR)) (ENQUEUE-LIST (STREAM-USER-DETAIL STR) (APPEND (STRING-LIST (COMMON-LISP:CAR !)) (COMMON-LISP:CDR !))))))) (G3726 (QUEUE-LIST (STREAM-USER-DETAIL STR)))) (QUEUE-POP (STREAM-USER-DETAIL STR))) :FUN-OUT #'(COMMON-LISP:LAMBDA (X STR) (ENQUEUE (STREAM-USER-DETAIL STR) X)) :FUN-EOF #'(COMMON-LISP:LAMBDA (STR) (NOT (QUEUE-LIST (STREAM-USER-DETAIL STR)))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'MAKE-STRING-STREAM *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'MAKE-STRING-STREAM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-STREAM (COMMON-LISP:CONS ':USER-DETAIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-QUEUE COMMON-LISP:NIL) (COMMON-LISP:CONS ':FUN-IN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '! COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-STREAM-USER-DETAIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-QUEUE COMMON-LISP:NIL) (COMMON-LISP:CONS 'STR COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ENQUEUE-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-USER-DETAIL (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'APPEND (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '! COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '! COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'QUEUE-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-USER-DETAIL (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'QUEUE-POP (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-USER-DETAIL (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS ':FUN-OUT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ENQUEUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-USER-DETAIL (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS ':FUN-EOF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'QUEUE-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-USER-DETAIL (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'MAKE-STRING-STREAM))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'GET-STREAM-STRING (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN GET-STREAM-STRING (STR) (COMMON-LISP:BLOCK GET-STREAM-STRING (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3727 (~G1513) (COMMON-LISP:PROGN (=-STREAM-USER-DETAIL (MAKE-QUEUE) STR)) ~G1513)) (G3727 (QUEUE-STRING (STREAM-USER-DETAIL STR))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'GET-STREAM-STRING *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'GET-STREAM-STRING (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1513 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-STREAM-USER-DETAIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-QUEUE COMMON-LISP:NIL) (COMMON-LISP:CONS 'STR COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1513 COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'QUEUE-STRING (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-USER-DETAIL (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'GET-STREAM-STRING))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'MAKE-STREAM-STREAM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS 'STREAM (COMMON-LISP:CONS (COMMON-LISP:CONS 'INPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-STREAM-LOCATION COMMON-LISP:NIL) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'OUTPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-STREAM-LOCATION (COMMON-LISP:CONS ':TRACK? (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN MAKE-STREAM-STREAM (COMMON-LISP:&KEY STREAM (INPUT-LOCATION (MAKE-STREAM-LOCATION)) (OUTPUT-LOCATION (MAKE-STREAM-LOCATION :TRACK? COMMON-LISP:NIL))) (COMMON-LISP:BLOCK MAKE-STREAM-STREAM (COMMON-LISP:BLOCK COMMON-LISP:NIL (MAKE-STREAM :HANDLE STREAM :INPUT-LOCATION INPUT-LOCATION :OUTPUT-LOCATION OUTPUT-LOCATION :FUN-IN #'(COMMON-LISP:LAMBDA (_) (%READ-CHAR (STREAM-HANDLE _))) :FUN-OUT #'(COMMON-LISP:LAMBDA (C STR) (%PRINC C (STREAM-HANDLE STR))) :FUN-EOF #'(COMMON-LISP:LAMBDA (_) (%FEOF (STREAM-HANDLE _))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'MAKE-STREAM-STREAM *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS 'STREAM (COMMON-LISP:CONS (COMMON-LISP:CONS 'INPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-STREAM-LOCATION COMMON-LISP:NIL) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'OUTPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-STREAM-LOCATION (COMMON-LISP:CONS ':TRACK? (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'MAKE-STREAM-STREAM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-STREAM (COMMON-LISP:CONS ':HANDLE (COMMON-LISP:CONS 'STREAM (COMMON-LISP:CONS ':INPUT-LOCATION (COMMON-LISP:CONS 'INPUT-LOCATION (COMMON-LISP:CONS ':OUTPUT-LOCATION (COMMON-LISP:CONS 'OUTPUT-LOCATION (COMMON-LISP:CONS ':FUN-IN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '_ COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '%READ-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-HANDLE (COMMON-LISP:CONS '_ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS ':FUN-OUT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'C (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%PRINC (COMMON-LISP:CONS 'C (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-HANDLE (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS ':FUN-EOF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '_ COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '%FEOF (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-HANDLE (COMMON-LISP:CONS '_ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'MAKE-STREAM-STREAM))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%FOPEN-DIRECTION (COMMON-LISP:CONS (COMMON-LISP:CONS 'DIRECTION COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %FOPEN-DIRECTION (DIRECTION) (COMMON-LISP:BLOCK %FOPEN-DIRECTION (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3728 (~G1514) (? (EQUAL ~G1514 'INPUT) "r" (EQUAL ~G1514 'OUTPUT) "w" (EQUAL ~G1514 'APPEND) "a" (ERROR ":DIRECTION isn't specified.")))) (G3728 DIRECTION))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%FOPEN-DIRECTION *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DIRECTION COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%FOPEN-DIRECTION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1514 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQUAL (COMMON-LISP:CONS '~G1514 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'INPUT COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS "r" (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQUAL (COMMON-LISP:CONS '~G1514 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'OUTPUT COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS "w" (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQUAL (COMMON-LISP:CONS '~G1514 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'APPEND COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS "a" (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS ":DIRECTION isn't specified." COMMON-LISP:NIL)) COMMON-LISP:NIL)))))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'DIRECTION COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%FOPEN-DIRECTION))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'OPEN (COMMON-LISP:CONS (COMMON-LISP:CONS 'PATH (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS 'DIRECTION COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN OPEN (PATH COMMON-LISP:&KEY DIRECTION) (COMMON-LISP:BLOCK OPEN (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3729 (!) (? ! (MAKE-STREAM-STREAM :STREAM ! :INPUT-LOCATION (MAKE-STREAM-LOCATION :ID PATH)) (ERROR "Couldn't open file `~A'." PATH)))) (G3729 (%FOPEN PATH (%FOPEN-DIRECTION DIRECTION))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'OPEN *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PATH (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS 'DIRECTION COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'OPEN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS '%FOPEN (COMMON-LISP:CONS 'PATH (COMMON-LISP:CONS (COMMON-LISP:CONS '%FOPEN-DIRECTION (COMMON-LISP:CONS 'DIRECTION COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-STREAM-STREAM (COMMON-LISP:CONS ':STREAM (COMMON-LISP:CONS '! (COMMON-LISP:CONS ':INPUT-LOCATION (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-STREAM-LOCATION (COMMON-LISP:CONS ':ID (COMMON-LISP:CONS 'PATH COMMON-LISP:NIL))) COMMON-LISP:NIL))))) (COMMON-LISP:CONS (COMMON-LISP:CONS '%!? (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "Couldn't open file `~A'." (COMMON-LISP:CONS 'PATH COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'OPEN))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'CLOSE (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CLOSE (STR) (COMMON-LISP:BLOCK CLOSE (COMMON-LISP:BLOCK COMMON-LISP:NIL (%FCLOSE (STREAM-HANDLE STR))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CLOSE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'CLOSE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '%FCLOSE (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-HANDLE (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'CLOSE))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'NUMBER-DIGIT (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN NUMBER-DIGIT (X) (COMMON-LISP:BLOCK NUMBER-DIGIT (COMMON-LISP:BLOCK COMMON-LISP:NIL (CODE-CHAR (+ X #\0))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'NUMBER-DIGIT *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'NUMBER-DIGIT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'CODE-CHAR (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\0 COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'NUMBER-DIGIT))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'INTEGER-CHARS-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN INTEGER-CHARS-0 (X) (COMMON-LISP:BLOCK INTEGER-CHARS-0 (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3730 (!) (COMMON-LISP:CONS (NUMBER-DIGIT !) (? (<= 10 X) (INTEGER-CHARS-0 (/ (- X !) 10)))))) (G3730 (INTEGER (COMMON-LISP:MOD X 10))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'INTEGER-CHARS-0 *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'INTEGER-CHARS-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUMBER-DIGIT (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '<= (COMMON-LISP:CONS 10 (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER-CHARS-0 (COMMON-LISP:CONS (COMMON-LISP:CONS '/ (COMMON-LISP:CONS (COMMON-LISP:CONS '- (COMMON-LISP:CONS 'X (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS 10 COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:MOD (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 10 COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'INTEGER-CHARS-0))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'INTEGER-CHARS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN INTEGER-CHARS (X) (COMMON-LISP:BLOCK INTEGER-CHARS (COMMON-LISP:BLOCK COMMON-LISP:NIL (REVERSE (INTEGER-CHARS-0 (INTEGER (ABS X))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'INTEGER-CHARS *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'INTEGER-CHARS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'REVERSE (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER-CHARS-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS (COMMON-LISP:CONS 'ABS (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'INTEGER-CHARS))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'FRACTION-CHARS-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN FRACTION-CHARS-0 (X) (COMMON-LISP:BLOCK FRACTION-CHARS-0 (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3731 (!) (? (< 0 !) (COMMON-LISP:CONS (NUMBER-DIGIT !) (FRACTION-CHARS-0 !))))) (G3731 (COMMON-LISP:MOD (* X 10) 10)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'FRACTION-CHARS-0 *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'FRACTION-CHARS-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 0 (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUMBER-DIGIT (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FRACTION-CHARS-0 (COMMON-LISP:CONS '! COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:MOD (COMMON-LISP:CONS (COMMON-LISP:CONS '* (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 10 COMMON-LISP:NIL))) (COMMON-LISP:CONS 10 COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'FRACTION-CHARS-0))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'FRACTION-CHARS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN FRACTION-CHARS (X) (COMMON-LISP:BLOCK FRACTION-CHARS (COMMON-LISP:BLOCK COMMON-LISP:NIL (FRACTION-CHARS-0 (COMMON-LISP:MOD (ABS X) 1))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'FRACTION-CHARS *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'FRACTION-CHARS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'FRACTION-CHARS-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:MOD (COMMON-LISP:CONS (COMMON-LISP:CONS 'ABS (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS 1 COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'FRACTION-CHARS))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'PRINC-NUMBER (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN PRINC-NUMBER (X STR) (COMMON-LISP:BLOCK PRINC-NUMBER (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (< X 0) (PRINC #\- STR)) (STREAM-PRINC (INTEGER-CHARS X) STR) (COMMON-LISP:LABELS ((G3732 (!) (? (NOT (ZERO? !)) (COMMON-LISP:PROGN (PRINC #\. STR) (STREAM-PRINC (FRACTION-CHARS !) STR))))) (G3732 (COMMON-LISP:MOD X 1)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'PRINC-NUMBER *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'PRINC-NUMBER (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 0 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRINC (COMMON-LISP:CONS #\- (COMMON-LISP:CONS 'STR COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-PRINC (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER-CHARS (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS 'STR COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'ZERO? (COMMON-LISP:CONS '! COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRINC (COMMON-LISP:CONS #\. (COMMON-LISP:CONS 'STR COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-PRINC (COMMON-LISP:CONS (COMMON-LISP:CONS 'FRACTION-CHARS (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS 'STR COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:MOD (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 1 COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'PRINC-NUMBER))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'PRINC (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-OUTPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN PRINC (X COMMON-LISP:&OPTIONAL (STR *STANDARD-OUTPUT*)) (COMMON-LISP:BLOCK PRINC (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3733 (~G1515) (COMMON-LISP:LABELS ((G3734 (S) (COMMON-LISP:LABELS ((G3735 (~G1516) (? ~G1515 ~G1516 (GET-STREAM-STRING S)))) (G3735 (COMMON-LISP:PROGN (? (STRING? X) (STREAM-PRINC X S) (CHARACTER? X) (STREAM-PRINC X S) (NUMBER? X) (PRINC-NUMBER X S) (SYMBOL? X) (STREAM-PRINC (SYMBOL-NAME X) S)) X))))) (G3734 (DEFAULT-STREAM ~G1515))))) (G3733 STR))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'PRINC *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-OUTPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'PRINC (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1515 (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH (COMMON-LISP:CONS (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'DEFAULT-STREAM (COMMON-LISP:CONS '~G1515 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1516 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-PRINC (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'S COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-PRINC (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'S COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUMBER? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRINC-NUMBER (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'S COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYMBOL? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-PRINC (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYMBOL-NAME (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS 'S COMMON-LISP:NIL))) COMMON-LISP:NIL))))))))) (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1515 (COMMON-LISP:CONS '~G1516 (COMMON-LISP:CONS (COMMON-LISP:CONS 'GET-STREAM-STRING (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'PRINC))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'SPLIT-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'PREDICATE (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'INCLUDE? (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN SPLIT-IF (PREDICATE SEQ COMMON-LISP:&KEY (INCLUDE? COMMON-LISP:NIL)) (COMMON-LISP:BLOCK SPLIT-IF (COMMON-LISP:BLOCK COMMON-LISP:NIL (? SEQ (COMMON-LISP:LABELS ((G3736 (!) (? ! (COMMON-LISP:CONS (SUBSEQ SEQ 0 (? INCLUDE? (++ !) !)) (SPLIT-IF PREDICATE (SUBSEQ SEQ (++ !)) :INCLUDE? INCLUDE?)) (COMMON-LISP:LIST SEQ)))) (G3736 (POSITION-IF PREDICATE SEQ))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'SPLIT-IF *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PREDICATE (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'INCLUDE? (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'SPLIT-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'POSITION-IF (COMMON-LISP:CONS 'PREDICATE (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 0 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'INCLUDE? (COMMON-LISP:CONS (COMMON-LISP:CONS '++ (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS '! COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SPLIT-IF (COMMON-LISP:CONS 'PREDICATE (COMMON-LISP:CONS (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS '++ (COMMON-LISP:CONS '! COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS ':INCLUDE? (COMMON-LISP:CONS 'INCLUDE? COMMON-LISP:NIL))))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '%!? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LIST (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'SPLIT-IF))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'GENERIC-SPLIT (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INCLUDE? (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN GENERIC-SPLIT (OBJ SEQ COMMON-LISP:&KEY (TEST #'EQL) (INCLUDE? COMMON-LISP:NIL)) (COMMON-LISP:BLOCK GENERIC-SPLIT (COMMON-LISP:BLOCK COMMON-LISP:NIL (? SEQ (COMMON-LISP:LABELS ((G3737 (!) (? ! (COMMON-LISP:CONS (SUBSEQ SEQ 0 (? INCLUDE? (++ !) !)) (GENERIC-SPLIT OBJ (SUBSEQ SEQ (++ !)) :TEST TEST :INCLUDE? INCLUDE?)) (COMMON-LISP:LIST SEQ)))) (G3737 (POSITION OBJ SEQ :TEST TEST))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'GENERIC-SPLIT *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INCLUDE? (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'GENERIC-SPLIT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'POSITION (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS ':TEST (COMMON-LISP:CONS 'TEST COMMON-LISP:NIL))))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 0 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'INCLUDE? (COMMON-LISP:CONS (COMMON-LISP:CONS '++ (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS '! COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'GENERIC-SPLIT (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS '++ (COMMON-LISP:CONS '! COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS ':TEST (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS ':INCLUDE? (COMMON-LISP:CONS 'INCLUDE? COMMON-LISP:NIL))))))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '%!? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LIST (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'GENERIC-SPLIT))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'SPLIT (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INCLUDE? (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN SPLIT (OBJ SEQ COMMON-LISP:&KEY (TEST #'EQL) (INCLUDE? COMMON-LISP:NIL)) (COMMON-LISP:BLOCK SPLIT (COMMON-LISP:BLOCK COMMON-LISP:NIL (GENERIC-SPLIT OBJ SEQ :TEST TEST :INCLUDE? INCLUDE?)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'SPLIT *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INCLUDE? (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'SPLIT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'GENERIC-SPLIT (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS ':TEST (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS ':INCLUDE? (COMMON-LISP:CONS 'INCLUDE? COMMON-LISP:NIL))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'SPLIT))
  (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'DIGIT-NUMBER COMMON-LISP:NIL) *FUNCTIONALS*))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'DIGIT-NUMBER (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN DIGIT-NUMBER (X) (COMMON-LISP:BLOCK DIGIT-NUMBER (COMMON-LISP:BLOCK COMMON-LISP:NIL (- X #\0)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'DIGIT-NUMBER *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'DIGIT-NUMBER (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '- (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\0 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'DIGIT-NUMBER))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'PEEK-DIGIT (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN PEEK-DIGIT (STR) (COMMON-LISP:BLOCK PEEK-DIGIT (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3738 (!) (? ! (COMMON-LISP:PROGN (? (DIGIT-CHAR? !) !))))) (G3738 (PEEK-CHAR STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'PEEK-DIGIT *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'PEEK-DIGIT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'DIGIT-CHAR? (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'PEEK-DIGIT))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'PEEK-DOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN PEEK-DOT (STR) (COMMON-LISP:BLOCK PEEK-DOT (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3739 (!) (? ! (COMMON-LISP:PROGN (== #\. !))))) (G3739 (PEEK-CHAR STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'PEEK-DOT *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'PEEK-DOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\. (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'PEEK-DOT))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-DECIMAL-PLACES-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 'V (COMMON-LISP:CONS 'S COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-DECIMAL-PLACES-0 (STR V S) (COMMON-LISP:BLOCK READ-DECIMAL-PLACES-0 (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (PEEK-DIGIT STR) (READ-DECIMAL-PLACES-0 STR (+ V (* S (DIGIT-NUMBER (READ-CHAR STR)))) (/ S 10)) V)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-DECIMAL-PLACES-0 *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 'V (COMMON-LISP:CONS 'S COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-DECIMAL-PLACES-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-DIGIT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-DECIMAL-PLACES-0 (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS 'V (COMMON-LISP:CONS (COMMON-LISP:CONS '* (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'DIGIT-NUMBER (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '/ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 10 COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS 'V COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-DECIMAL-PLACES-0))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-DECIMAL-PLACES (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-INPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-DECIMAL-PLACES (COMMON-LISP:&OPTIONAL (STR *STANDARD-INPUT*)) (COMMON-LISP:BLOCK READ-DECIMAL-PLACES (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (COMMON-LISP:LABELS ((G3740 (!) (? ! (DIGIT-CHAR? !)))) (G3740 (PEEK-CHAR STR))) (READ-DECIMAL-PLACES-0 STR 0 0.1))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-DECIMAL-PLACES *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-INPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-DECIMAL-PLACES (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'DIGIT-CHAR? (COMMON-LISP:CONS '! COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-DECIMAL-PLACES-0 (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 0 (COMMON-LISP:CONS 0.1 COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-DECIMAL-PLACES))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-INTEGER-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 'V COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-INTEGER-0 (STR V) (COMMON-LISP:BLOCK READ-INTEGER-0 (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (PEEK-DIGIT STR) (READ-INTEGER-0 STR (+ (* V 10) (DIGIT-NUMBER (READ-CHAR STR)))) V)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-INTEGER-0 *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 'V COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-INTEGER-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-DIGIT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-INTEGER-0 (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS (COMMON-LISP:CONS '* (COMMON-LISP:CONS 'V (COMMON-LISP:CONS 10 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DIGIT-NUMBER (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS 'V COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-INTEGER-0))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-INTEGER (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-INPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-INTEGER (COMMON-LISP:&OPTIONAL (STR *STANDARD-INPUT*)) (COMMON-LISP:BLOCK READ-INTEGER (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (PEEK-DIGIT STR) (INTEGER (READ-INTEGER-0 STR 0)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-INTEGER *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-INPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-INTEGER (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-DIGIT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-INTEGER-0 (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 0 COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-INTEGER))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-NUMBER (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-INPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-NUMBER (COMMON-LISP:&OPTIONAL (STR *STANDARD-INPUT*)) (COMMON-LISP:BLOCK READ-NUMBER (COMMON-LISP:BLOCK COMMON-LISP:NIL (* (? (== #\- (PEEK-CHAR STR)) (COMMON-LISP:PROGN (READ-CHAR STR) -1) 1) (+ (READ-INTEGER STR) (COMMON-LISP:LABELS ((G3741 (~G1517) (? ~G1517 ~G1517 0))) (G3741 (? (PEEK-DOT STR) (? (READ-CHAR STR) (READ-DECIMAL-PLACES STR)))))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-NUMBER *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-INPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-NUMBER (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '* (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\- (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS -1 COMMON-LISP:NIL))) (COMMON-LISP:CONS 1 COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-INTEGER (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1517 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1517 (COMMON-LISP:CONS '~G1517 (COMMON-LISP:CONS 0 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-DOT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-DECIMAL-PLACES (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-NUMBER))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'TOKEN-IS-QUOTE? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN TOKEN-IS-QUOTE? (X) (COMMON-LISP:BLOCK TOKEN-IS-QUOTE? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3742 (~G1546) (? ~G1546 ~G1546 (COMMON-LISP:LABELS ((G3743 (~G1547) (? ~G1547 ~G1547 (COMMON-LISP:LABELS ((G3744 (~G1548) (? ~G1548 ~G1548 (COMMON-LISP:LABELS ((G3745 (~G1549) (? ~G1549 ~G1549 (EQ X 'ACCENT-CIRCONFLEX)))) (G3745 (EQ X 'QUASIQUOTE-SPLICE)))))) (G3744 (EQ X 'QUASIQUOTE)))))) (G3743 (EQ X 'BACKQUOTE)))))) (G3742 (EQ X 'COMMON-LISP:QUOTE)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'TOKEN-IS-QUOTE? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'TOKEN-IS-QUOTE? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1546 (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'COMMON-LISP:QUOTE COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1546 (COMMON-LISP:CONS '~G1546 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1547 (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'BACKQUOTE COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1547 (COMMON-LISP:CONS '~G1547 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1548 (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'QUASIQUOTE COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1548 (COMMON-LISP:CONS '~G1548 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1549 (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'QUASIQUOTE-SPLICE COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1549 (COMMON-LISP:CONS '~G1549 (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'ACCENT-CIRCONFLEX COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'TOKEN-IS-QUOTE?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%READ-CLOSING-BRACKET? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %READ-CLOSING-BRACKET? (X) (COMMON-LISP:BLOCK %READ-CLOSING-BRACKET? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3746 (~G1550) (? ~G1550 ~G1550 (COMMON-LISP:LABELS ((G3747 (~G1551) (? ~G1551 ~G1551 (EQ X 'CURLY-BRACKET-CLOSE)))) (G3747 (EQ X 'SQUARE-BRACKET-CLOSE)))))) (G3746 (EQ X 'BRACKET-CLOSE)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%READ-CLOSING-BRACKET? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%READ-CLOSING-BRACKET? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1550 (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'BRACKET-CLOSE COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1550 (COMMON-LISP:CONS '~G1550 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1551 (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'SQUARE-BRACKET-CLOSE COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1551 (COMMON-LISP:CONS '~G1551 (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'CURLY-BRACKET-CLOSE COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%READ-CLOSING-BRACKET?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'SPECIAL-CHAR? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN SPECIAL-CHAR? (X) (COMMON-LISP:BLOCK SPECIAL-CHAR? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3748 (~G1552) (? ~G1552 ~G1552 (COMMON-LISP:LABELS ((G3749 (~G1553) (? ~G1553 ~G1553 (COMMON-LISP:LABELS ((G3750 (~G1554) (? ~G1554 ~G1554 (COMMON-LISP:LABELS ((G3751 (~G1555) (? ~G1555 ~G1555 (COMMON-LISP:LABELS ((G3752 (~G1556) (? ~G1556 ~G1556 (COMMON-LISP:LABELS ((G3753 (~G1557) (? ~G1557 ~G1557 (COMMON-LISP:LABELS ((G3754 (~G1558) (? ~G1558 ~G1558 (COMMON-LISP:LABELS ((G3755 (~G1559) (? ~G1559 ~G1559 (COMMON-LISP:LABELS ((G3756 (~G1560) (? ~G1560 ~G1560 (COMMON-LISP:LABELS ((G3757 (~G1561) (? ~G1561 ~G1561 (COMMON-LISP:LABELS ((G3758 (~G1562) (? ~G1562 ~G1562 (COMMON-LISP:LABELS ((G3759 (~G1563) (? ~G1563 ~G1563 (COMMON-LISP:LABELS ((G3760 (~G1564) (? ~G1564 ~G1564 (== X #\^)))) (G3760 (== X #\#)))))) (G3759 (== X #\")))))) (G3758 (== X #\;)))))) (G3757 (== X #\:)))))) (G3756 (== X #\,)))))) (G3755 (== X #\`)))))) (G3754 (== X #\')))))) (G3753 (== X #\})))))) (G3752 (== X #\{)))))) (G3751 (== X #\])))))) (G3750 (== X #\[)))))) (G3749 (== X #\))))))) (G3748 (== X #\()))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'SPECIAL-CHAR? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'SPECIAL-CHAR? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1552 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\( COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1552 (COMMON-LISP:CONS '~G1552 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1553 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1553 (COMMON-LISP:CONS '~G1553 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1554 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\[ COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1554 (COMMON-LISP:CONS '~G1554 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1555 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\] COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1555 (COMMON-LISP:CONS '~G1555 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1556 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\{ COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1556 (COMMON-LISP:CONS '~G1556 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1557 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\} COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1557 (COMMON-LISP:CONS '~G1557 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1558 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\' COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1558 (COMMON-LISP:CONS '~G1558 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1559 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\` COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1559 (COMMON-LISP:CONS '~G1559 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1560 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\, COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1560 (COMMON-LISP:CONS '~G1560 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1561 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\: COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1561 (COMMON-LISP:CONS '~G1561 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1562 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\; COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1562 (COMMON-LISP:CONS '~G1562 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1563 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\" COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1563 (COMMON-LISP:CONS '~G1563 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1564 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\# COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1564 (COMMON-LISP:CONS '~G1564 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\^ COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'SPECIAL-CHAR?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'SYMBOL-CHAR? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN SYMBOL-CHAR? (X) (COMMON-LISP:BLOCK SYMBOL-CHAR? (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (> X 32) (NOT (SPECIAL-CHAR? X)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'SYMBOL-CHAR? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'SYMBOL-CHAR? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 32 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'SPECIAL-CHAR? (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'SYMBOL-CHAR?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'SKIP-COMMENT (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN SKIP-COMMENT (STR) (COMMON-LISP:BLOCK SKIP-COMMENT (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3761 (C) (? C (COMMON-LISP:PROGN (? (== C 10) (SKIP-SPACES STR) (SKIP-COMMENT STR)))))) (G3761 (READ-CHAR STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'SKIP-COMMENT *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'SKIP-COMMENT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'C COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS 'C (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'C (COMMON-LISP:CONS 10 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SKIP-SPACES (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SKIP-COMMENT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'SKIP-COMMENT))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'SKIP-SPACES (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN SKIP-SPACES (STR) (COMMON-LISP:BLOCK SKIP-SPACES (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3762 (C) (? C (COMMON-LISP:PROGN (? (== #\; C) (COMMON-LISP:PROGN (SKIP-COMMENT STR))) (? (WHITESPACE? C) (COMMON-LISP:PROGN (READ-CHAR STR) (SKIP-SPACES STR))))))) (G3762 (PEEK-CHAR STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'SKIP-SPACES *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'SKIP-SPACES (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'C COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS 'C (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\; (COMMON-LISP:CONS 'C COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'SKIP-COMMENT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'WHITESPACE? (COMMON-LISP:CONS 'C COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SKIP-SPACES (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'SKIP-SPACES))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'GET-SYMBOL-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN GET-SYMBOL-0 (STR) (COMMON-LISP:BLOCK GET-SYMBOL-0 (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3763 (C) (? (== #\; C) (COMMON-LISP:PROGN (SKIP-COMMENT STR) (GET-SYMBOL-0 STR)) (? (SYMBOL-CHAR? C) (COMMON-LISP:CONS (CHAR-UPCASE (READ-CHAR STR)) (GET-SYMBOL-0 STR)))))) (G3763 (CHAR-UPCASE (PEEK-CHAR STR))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'GET-SYMBOL-0 *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'GET-SYMBOL-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'C COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\; (COMMON-LISP:CONS 'C COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'SKIP-COMMENT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'GET-SYMBOL-0 (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYMBOL-CHAR? (COMMON-LISP:CONS 'C COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHAR-UPCASE (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'GET-SYMBOL-0 (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHAR-UPCASE (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'GET-SYMBOL-0))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'GET-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN GET-SYMBOL (STR) (COMMON-LISP:BLOCK GET-SYMBOL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3764 (C) (? C (COMMON-LISP:PROGN (? (NOT (SPECIAL-CHAR? C)) (COMMON-LISP:PROGN (GET-SYMBOL-0 STR))))))) (G3764 (PEEK-CHAR STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'GET-SYMBOL *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'GET-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'C COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS 'C (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'SPECIAL-CHAR? (COMMON-LISP:CONS 'C COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'GET-SYMBOL-0 (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'GET-SYMBOL))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'GET-SYMBOL-AND-PACKAGE (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN GET-SYMBOL-AND-PACKAGE (STR) (COMMON-LISP:BLOCK GET-SYMBOL-AND-PACKAGE (COMMON-LISP:BLOCK COMMON-LISP:NIL (SKIP-SPACES STR) (COMMON-LISP:LABELS ((G3765 (SYM) (COMMON-LISP:LABELS ((G3766 (!) (? ! (COMMON-LISP:PROGN (? (== ! #\:) (VALUES (COMMON-LISP:LABELS ((G3767 (~G1518) (? ~G1518 ~G1518 COMMON-LISP:T))) (G3767 SYM)) (? (READ-CHAR STR) (GET-SYMBOL STR))) (VALUES COMMON-LISP:NIL SYM)))))) (G3766 (PEEK-CHAR STR))))) (G3765 (GET-SYMBOL STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'GET-SYMBOL-AND-PACKAGE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'GET-SYMBOL-AND-PACKAGE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'SKIP-SPACES (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS '! (COMMON-LISP:CONS #\: COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VALUES (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1518 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1518 (COMMON-LISP:CONS '~G1518 (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'GET-SYMBOL (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VALUES (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'GET-SYMBOL (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'GET-SYMBOL-AND-PACKAGE))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-STRING-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-STRING-0 (STR) (COMMON-LISP:BLOCK READ-STRING-0 (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3768 (C) (? (NOT (== C #\")) (COMMON-LISP:PROGN (COMMON-LISP:CONS (? (== C #\\) (READ-CHAR STR) C) (READ-STRING-0 STR)))))) (G3768 (READ-CHAR STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-STRING-0 *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-STRING-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'C COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'C (COMMON-LISP:CONS #\" COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'C (COMMON-LISP:CONS #\\ COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS 'C COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-STRING-0 (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-STRING-0))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-STRING (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-STRING (STR) (COMMON-LISP:BLOCK READ-STRING (COMMON-LISP:BLOCK COMMON-LISP:NIL (LIST-STRING (READ-STRING-0 STR))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-STRING *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-STRING (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-STRING (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-STRING-0 (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-STRING))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-COMMENT-BLOCK (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-COMMENT-BLOCK (STR) (COMMON-LISP:BLOCK READ-COMMENT-BLOCK (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:PROGN (COMMON-LISP:TAGBODY ~G1565 (? (NOT (NOT (? (== #\| (READ-CHAR STR)) (== #\# (PEEK-CHAR STR))))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN (READ-CHAR STR)))) COMMON-LISP:NIL (COMMON-LISP:GO ~G1565))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-COMMENT-BLOCK *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-COMMENT-BLOCK (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1565 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\| (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\# (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1565 COMMON-LISP:NIL)) COMMON-LISP:NIL))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-COMMENT-BLOCK))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'LIST-NUMBER? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN LIST-NUMBER? (X) (COMMON-LISP:BLOCK LIST-NUMBER? (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (COMMON-LISP:LABELS ((G3769 (~G1520) (? ~G1520 ~G1520 (DIGIT-CHAR? (COMMON-LISP:CAR X))))) (G3769 (? (COMMON-LISP:CDR X) (COMMON-LISP:LABELS ((G3770 (~G1519) (? ~G1519 ~G1519 (== #\. (COMMON-LISP:CAR X))))) (G3770 (== #\- (COMMON-LISP:CAR X))))))) (? (COMMON-LISP:CDR X) (EVERY #'(COMMON-LISP:LAMBDA (_) (COMMON-LISP:LABELS ((G3771 (~G1586) (? ~G1586 ~G1586 (== #\. _)))) (G3771 (DIGIT-CHAR? _)))) (COMMON-LISP:CDR X)) COMMON-LISP:T))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'LIST-NUMBER? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'LIST-NUMBER? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1520 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1520 (COMMON-LISP:CONS '~G1520 (COMMON-LISP:CONS (COMMON-LISP:CONS 'DIGIT-CHAR? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1519 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1519 (COMMON-LISP:CONS '~G1519 (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\. (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\- (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EVERY (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '_ COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'DIGIT-CHAR? (COMMON-LISP:CONS '_ COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\. (COMMON-LISP:CONS '_ COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'LIST-NUMBER?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-TOKEN (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-TOKEN (STR) (COMMON-LISP:BLOCK READ-TOKEN (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3772 (!) (? ! (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3773 (~G1566) (COMMON-LISP:LABELS ((G3774 (~G1567) (? (NOT (EQ (COMMON-LISP:CAR ~G1566) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1566))) (COMMON-LISP:LABELS ((G3775 (PKG) (COMMON-LISP:LABELS ((G3776 (~G1568) (COMMON-LISP:LABELS ((G3777 (SYM) (VALUES (? (? SYM (? (NOT (COMMON-LISP:CDR SYM)) (== #\. (COMMON-LISP:CAR SYM)))) 'DOT (? SYM (? (LIST-NUMBER? SYM) 'NUMBER 'SYMBOL) (COMMON-LISP:LABELS ((G3778 (~G1522) (? (CHARACTER== ~G1522 #\() 'BRACKET-OPEN (CHARACTER== ~G1522 #\)) 'BRACKET-CLOSE (CHARACTER== ~G1522 #\[) 'SQUARE-BRACKET-OPEN (CHARACTER== ~G1522 #\]) 'SQUARE-BRACKET-CLOSE (CHARACTER== ~G1522 #\{) 'CURLY-BRACKET-OPEN (CHARACTER== ~G1522 #\}) 'CURLY-BRACKET-CLOSE (CHARACTER== ~G1522 #\') 'COMMON-LISP:QUOTE (CHARACTER== ~G1522 #\`) 'BACKQUOTE (CHARACTER== ~G1522 #\^) 'ACCENT-CIRCONFLEX (CHARACTER== ~G1522 #\") 'DBLQUOTE (CHARACTER== ~G1522 #\,) (? (== #\@ (PEEK-CHAR STR)) (? (READ-CHAR STR) 'QUASIQUOTE-SPLICE) 'QUASIQUOTE) (CHARACTER== ~G1522 #\#) (COMMON-LISP:LABELS ((G3779 (~G1521) (? (CHARACTER== ~G1521 #\\) 'CHAR (CHARACTER== ~G1521 #\x) 'HEXNUM (CHARACTER== ~G1521 #\') 'COMMON-LISP:FUNCTION (CHARACTER== ~G1521 #\|) (READ-COMMENT-BLOCK STR) (ERROR "Invalid character after '#'.")))) (G3779 (READ-CHAR STR))) (CHARACTER== ~G1522 -1) 'EOF))) (G3778 (READ-CHAR STR))))) PKG SYM))) (G3777 (COMMON-LISP:CAR ~G1568))))) (G3776 (COMMON-LISP:LABELS ((G3780 (~G1587) (? ~G1587 ~G1587 (%ERROR "Not enough VALUES.")))) (G3780 (COMMON-LISP:CDR ~G1567))))))) (G3775 (COMMON-LISP:CAR ~G1567))))) (G3774 (COMMON-LISP:CDR ~G1566))))) (G3773 !)))))) (G3772 (GET-SYMBOL-AND-PACKAGE STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-TOKEN *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-TOKEN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1566 (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1567 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1566 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'UNLESS (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1566 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'VALUES COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "VALUES expected instead of ~A." (COMMON-LISP:CONS '~G1566 COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'PKG (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1567 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1568 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1567 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%ERROR (COMMON-LISP:CONS "Not enough VALUES." COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1568 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'VALUES (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SYM (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\. (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'DOT COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SYM (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-NUMBER? (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'NUMBER COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'SYMBOL COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1522 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS #\( COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'BRACKET-OPEN COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS #\) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'BRACKET-CLOSE COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS #\[ COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'SQUARE-BRACKET-OPEN COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS #\] COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'SQUARE-BRACKET-CLOSE COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS #\{ COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'CURLY-BRACKET-OPEN COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS #\} COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'CURLY-BRACKET-CLOSE COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS #\' COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'COMMON-LISP:QUOTE COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS #\` COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'BACKQUOTE COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS #\^ COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'ACCENT-CIRCONFLEX COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS #\" COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'DBLQUOTE COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS #\, COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\@ (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'QUASIQUOTE-SPLICE COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'QUASIQUOTE COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS #\# COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1521 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1521 (COMMON-LISP:CONS #\\ COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'CHAR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1521 (COMMON-LISP:CONS #\x COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'HEXNUM COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1521 (COMMON-LISP:CONS #\' COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1521 (COMMON-LISP:CONS #\| COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-COMMENT-BLOCK (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "Invalid character after '#'." COMMON-LISP:NIL)) COMMON-LISP:NIL)))))))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS -1 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'EOF COMMON-LISP:NIL)) COMMON-LISP:NIL))))))))))))))))))))))))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS 'PKG (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'GET-SYMBOL-AND-PACKAGE (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-TOKEN))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-SLOT-VALUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-SLOT-VALUE (X) (COMMON-LISP:BLOCK READ-SLOT-VALUE (COMMON-LISP:BLOCK COMMON-LISP:NIL (? X (? (COMMON-LISP:CDR X) (COMMON-LISP:CONS 'SLOT-VALUE (COMMON-LISP:CONS (READ-SLOT-VALUE (BUTLAST X)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS (MAKE-SYMBOL (COMMON-LISP:CAR (COMMON-LISP:LAST X))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (? (STRING? (COMMON-LISP:CAR X)) (MAKE-SYMBOL (COMMON-LISP:CAR X)) (COMMON-LISP:CAR X))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-SLOT-VALUE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-SLOT-VALUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'BACKQUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS 'SLOT-VALUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'QUASIQUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-SLOT-VALUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'BUTLAST (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS 'QUASIQUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LAST (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-SLOT-VALUE))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-SYMBOL-OR-SLOT-VALUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYM (COMMON-LISP:CONS 'PKG COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-SYMBOL-OR-SLOT-VALUE (SYM PKG) (COMMON-LISP:BLOCK READ-SYMBOL-OR-SLOT-VALUE (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3781 (!) (? (? (COMMON-LISP:CDR !) (? (COMMON-LISP:CAR !) (COMMON-LISP:CAR (COMMON-LISP:LAST !)))) (READ-SLOT-VALUE !) (MAKE-SYMBOL (LIST-STRING SYM) (? (NOT PKG) COMMON-LISP:NIL (EQ COMMON-LISP:T PKG) *KEYWORD-PACKAGE* (COMMON-LISP:FIND-PACKAGE (LIST-STRING PKG))))))) (G3781 (COMMON-LISP:MAPCAR #'(COMMON-LISP:LAMBDA (_) (? _ (LIST-STRING _))) (SPLIT #\. SYM))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-SYMBOL-OR-SLOT-VALUE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYM (COMMON-LISP:CONS 'PKG COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-SYMBOL-OR-SLOT-VALUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LAST (COMMON-LISP:CONS '! COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-SLOT-VALUE (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-STRING (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS 'PKG COMMON-LISP:NIL)) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS COMMON-LISP:T (COMMON-LISP:CONS 'PKG COMMON-LISP:NIL))) (COMMON-LISP:CONS '*KEYWORD-PACKAGE* (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FIND-PACKAGE (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-STRING (COMMON-LISP:CONS 'PKG COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:MAPCAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '_ COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '_ (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-STRING (COMMON-LISP:CONS '_ COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SPLIT (COMMON-LISP:CONS #\. (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-SYMBOL-OR-SLOT-VALUE))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-ATOM (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 'TOKEN (COMMON-LISP:CONS 'PKG (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-ATOM (STR TOKEN PKG SYM) (COMMON-LISP:BLOCK READ-ATOM (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3782 (~G1523) (? (EQ ~G1523 'DBLQUOTE) (READ-STRING STR) (EQ ~G1523 'CHAR) (READ-CHAR STR) (EQ ~G1523 'NUMBER) (COMMON-LISP:LABELS ((G3783 (S) (PRINC (LIST-STRING SYM) S) (COMMON-LISP:PROGN (READ-NUMBER S)))) (G3783 (MAKE-STRING-STREAM))) (EQ ~G1523 'HEXNUM) (READ-HEX STR) (EQ ~G1523 'COMMON-LISP:FUNCTION) (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (READ-EXPR STR) COMMON-LISP:NIL)) (EQ ~G1523 'SYMBOL) (READ-SYMBOL-OR-SLOT-VALUE SYM PKG) (ERROR "Syntax error: token ~A, sym ~A." TOKEN SYM)))) (G3782 TOKEN))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-ATOM *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 'TOKEN (COMMON-LISP:CONS 'PKG (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-ATOM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1523 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1523 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'DBLQUOTE COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-STRING (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1523 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'CHAR COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1523 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'NUMBER COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'S COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRINC (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-STRING (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL)) (COMMON-LISP:CONS 'S COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-NUMBER (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-STRING-STREAM COMMON-LISP:NIL) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1523 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'HEXNUM COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-HEX (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1523 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'BACKQUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS 'QUASIQUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-EXPR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1523 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'SYMBOL COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-SYMBOL-OR-SLOT-VALUE (COMMON-LISP:CONS 'SYM (COMMON-LISP:CONS 'PKG COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "Syntax error: token ~A, sym ~A." (COMMON-LISP:CONS 'TOKEN (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL)))) COMMON-LISP:NIL)))))))))))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-ATOM))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-QUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-QUOTE (STR TOKEN) (COMMON-LISP:BLOCK READ-QUOTE (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LIST TOKEN (READ-EXPR STR))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-QUOTE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-QUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LIST (COMMON-LISP:CONS 'TOKEN (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-EXPR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-QUOTE))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-SET-LISTPROP (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-SET-LISTPROP (STR) (COMMON-LISP:BLOCK READ-SET-LISTPROP (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3784 (!) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* (COMMON-LISP:CONS (STREAM-LOCATION-ID !) (COMMON-LISP:CONS (MEMORIZED-NUMBER (STREAM-LOCATION-COLUMN !)) (MEMORIZED-NUMBER (STREAM-LOCATION-LINE !)))))))) (G3784 (STREAM-INPUT-LOCATION STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-SET-LISTPROP *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-SET-LISTPROP (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '*DEFAULT-LISTPROP* (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION-ID (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'MEMORIZED-NUMBER (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION-COLUMN (COMMON-LISP:CONS '! COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MEMORIZED-NUMBER (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION-LINE (COMMON-LISP:CONS '! COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-INPUT-LOCATION (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-SET-LISTPROP))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-CONS (STR) (COMMON-LISP:BLOCK READ-CONS (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3785 (LOC) (COMMON-LISP:LABELS ((G3786 (LINE) (COMMON-LISP:LABELS ((G3787 (COLUMN) (COMMON-LISP:LABELS ((G3788 (FILE) (COMMON-LISP:LABELS ((ERR (_) (ERROR "~A in form starting at line ~A, column ~A in file ~A." _ LINE COLUMN FILE)) (F (TOKEN PKG SYM) (? (NOT (%READ-CLOSING-BRACKET? TOKEN)) (COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:LABELS ((G3789 (~G1525) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* *DEFAULT-LISTPROP*)) (COMMON-LISP:LABELS ((G3790 (~G1528) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* ~G1525)) ~G1528)) (G3790 (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3791 (~G1524) (? (EQ ~G1524 'BRACKET-OPEN) (READ-CONS-SLOT STR) (EQ ~G1524 'SQUARE-BRACKET-OPEN) (COMMON-LISP:CONS 'SQUARE (READ-CONS-SLOT STR)) (EQ ~G1524 'CURLY-BRACKET-OPEN) (COMMON-LISP:CONS 'CURLY (READ-CONS-SLOT STR)) (? (TOKEN-IS-QUOTE? TOKEN) (READ-QUOTE STR TOKEN) (READ-ATOM STR TOKEN PKG SYM))))) (G3791 TOKEN))))))) (G3789 *DEFAULT-LISTPROP*)) (COMMON-LISP:LABELS ((G3792 (~G1527) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* *DEFAULT-LISTPROP*)) (COMMON-LISP:LABELS ((G3793 (~G1534) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* ~G1527)) ~G1534)) (G3793 (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3794 (!) (? ! (COMMON-LISP:LABELS ((G3795 (~G1529) (COMMON-LISP:LABELS ((G3796 (~G1530) (? (NOT (EQ (COMMON-LISP:CAR ~G1529) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1529))) (COMMON-LISP:LABELS ((G3797 (TOKEN) (COMMON-LISP:LABELS ((G3798 (~G1531) (COMMON-LISP:LABELS ((G3799 (PKG) (COMMON-LISP:LABELS ((G3800 (~G1532) (COMMON-LISP:LABELS ((G3801 (SYM) (? (EQ 'DOT TOKEN) (COMMON-LISP:LABELS ((G3802 (X) (COMMON-LISP:LABELS ((G3803 (~G1537) (COMMON-LISP:LABELS ((G3804 (~G1538) (? (NOT (EQ (COMMON-LISP:CAR ~G1537) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1537))) (COMMON-LISP:LABELS ((G3805 (TOKEN) (COMMON-LISP:LABELS ((G3806 (~G1539) (COMMON-LISP:LABELS ((G3807 (PKG) (COMMON-LISP:LABELS ((G3808 (~G1540) (COMMON-LISP:LABELS ((G3809 (SYM) (COMMON-LISP:LABELS ((G3810 (~G1526) (? ~G1526 ~G1526 (ERR "Only one value allowed after dotted cons")))) (G3810 (%READ-CLOSING-BRACKET? TOKEN))) X)) (G3809 (COMMON-LISP:CAR ~G1540))))) (G3808 (COMMON-LISP:LABELS ((G3811 (~G1543) (? ~G1543 ~G1543 (%ERROR "Not enough VALUES.")))) (G3811 (COMMON-LISP:CDR ~G1539))))))) (G3807 (COMMON-LISP:CAR ~G1539))))) (G3806 (COMMON-LISP:LABELS ((G3812 (~G1542) (? ~G1542 ~G1542 (%ERROR "Not enough VALUES.")))) (G3812 (COMMON-LISP:CDR ~G1538))))))) (G3805 (COMMON-LISP:CAR ~G1538))))) (G3804 (COMMON-LISP:CDR ~G1537))))) (G3803 (READ-TOKEN STR))))) (G3802 (READ-EXPR STR))) (F TOKEN PKG SYM)))) (G3801 (COMMON-LISP:CAR ~G1532))))) (G3800 (COMMON-LISP:LABELS ((G3813 (~G1536) (? ~G1536 ~G1536 (%ERROR "Not enough VALUES.")))) (G3813 (COMMON-LISP:CDR ~G1531))))))) (G3799 (COMMON-LISP:CAR ~G1531))))) (G3798 (COMMON-LISP:LABELS ((G3814 (~G1535) (? ~G1535 ~G1535 (%ERROR "Not enough VALUES.")))) (G3814 (COMMON-LISP:CDR ~G1530))))))) (G3797 (COMMON-LISP:CAR ~G1530))))) (G3796 (COMMON-LISP:CDR ~G1529))))) (G3795 !)) (ERR "Missing closing bracket")))) (G3794 (READ-TOKEN STR)))))))) (G3792 *DEFAULT-LISTPROP*))))))) (COMMON-LISP:LABELS ((G3815 (~G1570) (COMMON-LISP:LABELS ((G3816 (~G1571) (? (NOT (EQ (COMMON-LISP:CAR ~G1570) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1570))) (COMMON-LISP:LABELS ((G3817 (TOKEN) (COMMON-LISP:LABELS ((G3818 (~G1572) (COMMON-LISP:LABELS ((G3819 (PKG) (COMMON-LISP:LABELS ((G3820 (~G1573) (COMMON-LISP:LABELS ((G3821 (SYM) (? (EQ TOKEN 'DOT) (COMMON-LISP:CONS 'COMMON-LISP:CONS (READ-CONS STR)) (F TOKEN PKG SYM)))) (G3821 (COMMON-LISP:CAR ~G1573))))) (G3820 (COMMON-LISP:LABELS ((G3822 (~G1589) (? ~G1589 ~G1589 (%ERROR "Not enough VALUES.")))) (G3822 (COMMON-LISP:CDR ~G1572))))))) (G3819 (COMMON-LISP:CAR ~G1572))))) (G3818 (COMMON-LISP:LABELS ((G3823 (~G1588) (? ~G1588 ~G1588 (%ERROR "Not enough VALUES.")))) (G3823 (COMMON-LISP:CDR ~G1571))))))) (G3817 (COMMON-LISP:CAR ~G1571))))) (G3816 (COMMON-LISP:CDR ~G1570))))) (G3815 (READ-TOKEN STR)))))) (G3788 (STREAM-LOCATION-ID LOC))))) (G3787 (STREAM-LOCATION-COLUMN LOC))))) (G3786 (STREAM-LOCATION-LINE LOC))))) (G3785 (STREAM-INPUT-LOCATION STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-CONS *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'LOC COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'LINE (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION-LINE (COMMON-LISP:CONS 'LOC COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH (COMMON-LISP:CONS (COMMON-LISP:CONS 'COLUMN (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION-COLUMN (COMMON-LISP:CONS 'LOC COMMON-LISP:NIL)) (COMMON-LISP:CONS 'FILE (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-LOCATION-ID (COMMON-LISP:CONS 'LOC COMMON-LISP:NIL)) (COMMON-LISP:CONS 'ERR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '_ COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "~A in form starting at line ~A, column ~A in file ~A." (COMMON-LISP:CONS '_ (COMMON-LISP:CONS 'LINE (COMMON-LISP:CONS 'COLUMN (COMMON-LISP:CONS 'FILE COMMON-LISP:NIL)))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'F (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'TOKEN (COMMON-LISP:CONS 'PKG (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS '%READ-CLOSING-BRACKET? (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1525 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '*DEFAULT-LISTPROP* (COMMON-LISP:CONS '*DEFAULT-LISTPROP* COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1528 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '*DEFAULT-LISTPROP* (COMMON-LISP:CONS '~G1525 COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1528 COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1524 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1524 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'BRACKET-OPEN COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CONS-SLOT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1524 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'SQUARE-BRACKET-OPEN COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'SQUARE COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CONS-SLOT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1524 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'CURLY-BRACKET-OPEN COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'CURLY COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CONS-SLOT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'TOKEN-IS-QUOTE? (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-QUOTE (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-ATOM (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 'TOKEN (COMMON-LISP:CONS 'PKG (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '*DEFAULT-LISTPROP* COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1527 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '*DEFAULT-LISTPROP* (COMMON-LISP:CONS '*DEFAULT-LISTPROP* COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1534 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '*DEFAULT-LISTPROP* (COMMON-LISP:CONS '~G1527 COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1534 COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1529 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1530 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1529 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'VALUES COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "VALUES expected instead of ~A." (COMMON-LISP:CONS '~G1529 COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1531 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'PKG COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1532 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'DOT COMMON-LISP:NIL)) (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1537 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1538 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1537 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'VALUES COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "VALUES expected instead of ~A." (COMMON-LISP:CONS '~G1537 COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1539 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'PKG COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1540 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1526 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1526 (COMMON-LISP:CONS '~G1526 (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERR (COMMON-LISP:CONS "Only one value allowed after dotted cons" COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%READ-CLOSING-BRACKET? (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1540 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1543 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1543 (COMMON-LISP:CONS '~G1543 (COMMON-LISP:CONS (COMMON-LISP:CONS '%ERROR (COMMON-LISP:CONS "Not enough VALUES." COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1539 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1539 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1542 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1542 (COMMON-LISP:CONS '~G1542 (COMMON-LISP:CONS (COMMON-LISP:CONS '%ERROR (COMMON-LISP:CONS "Not enough VALUES." COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1538 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1538 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1537 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-TOKEN (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-EXPR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'F (COMMON-LISP:CONS 'TOKEN (COMMON-LISP:CONS 'PKG (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1532 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1536 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1536 (COMMON-LISP:CONS '~G1536 (COMMON-LISP:CONS (COMMON-LISP:CONS '%ERROR (COMMON-LISP:CONS "Not enough VALUES." COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1531 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1531 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1535 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1535 (COMMON-LISP:CONS '~G1535 (COMMON-LISP:CONS (COMMON-LISP:CONS '%ERROR (COMMON-LISP:CONS "Not enough VALUES." COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1530 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1530 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1529 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERR (COMMON-LISP:CONS "Missing closing bracket" COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-TOKEN (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '*DEFAULT-LISTPROP* COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1570 (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-TOKEN (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1571 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1570 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'UNLESS (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1570 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'VALUES COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "VALUES expected instead of ~A." (COMMON-LISP:CONS '~G1570 COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'TOKEN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1571 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1572 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1571 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%ERROR (COMMON-LISP:CONS "Not enough VALUES." COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'PKG (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1572 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1573 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1572 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%ERROR (COMMON-LISP:CONS "Not enough VALUES." COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1573 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'TOKEN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'DOT COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'COMMON-LISP:CONS COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'F (COMMON-LISP:CONS 'TOKEN (COMMON-LISP:CONS 'PKG (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STREAM-INPUT-LOCATION (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-CONS))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-CONS-SLOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-CONS-SLOT (STR) (COMMON-LISP:BLOCK READ-CONS-SLOT (COMMON-LISP:BLOCK COMMON-LISP:NIL (READ-SET-LISTPROP STR) (COMMON-LISP:LABELS ((G3824 (~G1544) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* *DEFAULT-LISTPROP*)) (COMMON-LISP:LABELS ((G3825 (~G1580) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* ~G1544)) ~G1580)) (G3825 (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3826 (!) (? (== #\. (PEEK-CHAR STR)) (COMMON-LISP:PROGN (READ-CHAR STR) (COMMON-LISP:LABELS ((G3827 (~G1575) (COMMON-LISP:LABELS ((G3828 (~G1576) (? (NOT (EQ (COMMON-LISP:CAR ~G1575) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1575))) (COMMON-LISP:LABELS ((G3829 (TOKEN) (COMMON-LISP:LABELS ((G3830 (~G1577) (COMMON-LISP:LABELS ((G3831 (PKG) (COMMON-LISP:LABELS ((G3832 (~G1578) (COMMON-LISP:LABELS ((G3833 (SYM) (READ-SLOT-VALUE (COMMON-LISP:LIST ! (LIST-STRING SYM))))) (G3833 (COMMON-LISP:CAR ~G1578))))) (G3832 (COMMON-LISP:LABELS ((G3834 (~G1591) (? ~G1591 ~G1591 (%ERROR "Not enough VALUES.")))) (G3834 (COMMON-LISP:CDR ~G1577))))))) (G3831 (COMMON-LISP:CAR ~G1577))))) (G3830 (COMMON-LISP:LABELS ((G3835 (~G1590) (? ~G1590 ~G1590 (%ERROR "Not enough VALUES.")))) (G3835 (COMMON-LISP:CDR ~G1576))))))) (G3829 (COMMON-LISP:CAR ~G1576))))) (G3828 (COMMON-LISP:CDR ~G1575))))) (G3827 (READ-TOKEN STR)))) !))) (G3826 (READ-CONS STR)))))))) (G3824 *DEFAULT-LISTPROP*))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-CONS-SLOT *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-CONS-SLOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-SET-LISTPROP (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1544 (COMMON-LISP:CONS '*DEFAULT-LISTPROP* (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '*DEFAULT-LISTPROP* (COMMON-LISP:CONS '*DEFAULT-LISTPROP* COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1580 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS #\. (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1575 (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-TOKEN (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1576 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1575 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'UNLESS (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1575 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'VALUES COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "VALUES expected instead of ~A." (COMMON-LISP:CONS '~G1575 COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'TOKEN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1576 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1577 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1576 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%ERROR (COMMON-LISP:CONS "Not enough VALUES." COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'PKG (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1577 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1578 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1577 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%ERROR (COMMON-LISP:CONS "Not enough VALUES." COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1578 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-SLOT-VALUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LIST (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-STRING (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) (COMMON-LISP:CONS '! COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '*DEFAULT-LISTPROP* (COMMON-LISP:CONS '~G1544 COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1580 COMMON-LISP:NIL))))) COMMON-LISP:NIL))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-CONS-SLOT))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-EXPR (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-EXPR (STR) (COMMON-LISP:BLOCK READ-EXPR (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3836 (~G1581) (COMMON-LISP:LABELS ((G3837 (~G1582) (? (NOT (EQ (COMMON-LISP:CAR ~G1581) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1581))) (COMMON-LISP:LABELS ((G3838 (TOKEN) (COMMON-LISP:LABELS ((G3839 (~G1583) (COMMON-LISP:LABELS ((G3840 (PKG) (COMMON-LISP:LABELS ((G3841 (~G1584) (COMMON-LISP:LABELS ((G3842 (SYM) (COMMON-LISP:LABELS ((G3843 (~G1545) (? (EQ ~G1545 COMMON-LISP:NIL) COMMON-LISP:NIL (EQ ~G1545 'EOF) COMMON-LISP:NIL (EQ ~G1545 'BRACKET-OPEN) (READ-CONS-SLOT STR) (EQ ~G1545 'SQUARE-BRACKET-OPEN) (COMMON-LISP:CONS 'SQUARE (READ-CONS-SLOT STR)) (EQ ~G1545 'CURLY-BRACKET-OPEN) (COMMON-LISP:CONS 'CURLY (READ-CONS-SLOT STR)) (? (TOKEN-IS-QUOTE? TOKEN) (READ-QUOTE STR TOKEN) (READ-ATOM STR TOKEN PKG SYM))))) (G3843 TOKEN)))) (G3842 (COMMON-LISP:CAR ~G1584))))) (G3841 (COMMON-LISP:LABELS ((G3844 (~G1593) (? ~G1593 ~G1593 (%ERROR "Not enough VALUES.")))) (G3844 (COMMON-LISP:CDR ~G1583))))))) (G3840 (COMMON-LISP:CAR ~G1583))))) (G3839 (COMMON-LISP:LABELS ((G3845 (~G1592) (? ~G1592 ~G1592 (%ERROR "Not enough VALUES.")))) (G3845 (COMMON-LISP:CDR ~G1582))))))) (G3838 (COMMON-LISP:CAR ~G1582))))) (G3837 (COMMON-LISP:CDR ~G1581))))) (G3836 (READ-TOKEN STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-EXPR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-EXPR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1581 (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-TOKEN (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1582 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1581 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'UNLESS (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1581 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'VALUES COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "VALUES expected instead of ~A." (COMMON-LISP:CONS '~G1581 COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'TOKEN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1582 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1583 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1582 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%ERROR (COMMON-LISP:CONS "Not enough VALUES." COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'PKG (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1583 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1584 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1583 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%ERROR (COMMON-LISP:CONS "Not enough VALUES." COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SYM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1584 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1545 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1545 (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1545 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'EOF COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1545 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'BRACKET-OPEN COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CONS-SLOT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1545 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'SQUARE-BRACKET-OPEN COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'SQUARE COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CONS-SLOT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1545 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'CURLY-BRACKET-OPEN COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'CURLY COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-CONS-SLOT (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'TOKEN-IS-QUOTE? (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-QUOTE (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-ATOM (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS 'TOKEN (COMMON-LISP:CONS 'PKG (COMMON-LISP:CONS 'SYM COMMON-LISP:NIL))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))))))))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'TOKEN COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-EXPR))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-INPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ (COMMON-LISP:&OPTIONAL (STR *STANDARD-INPUT*)) (COMMON-LISP:BLOCK READ (COMMON-LISP:BLOCK COMMON-LISP:NIL (SKIP-SPACES STR) (? (PEEK-CHAR STR) (READ-EXPR STR))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR (COMMON-LISP:CONS '*STANDARD-INPUT* COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'SKIP-SPACES (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-EXPR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'READ-ALL (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN READ-ALL (STR) (COMMON-LISP:BLOCK READ-ALL (COMMON-LISP:BLOCK COMMON-LISP:NIL (SKIP-SPACES STR) (? (PEEK-CHAR STR) (COMMON-LISP:CONS (READ STR) (READ-ALL STR)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'READ-ALL *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STR COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'READ-ALL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'SKIP-SPACES (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-ALL (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'READ-ALL))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%LOAD-R (COMMON-LISP:CONS (COMMON-LISP:CONS 'S COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %LOAD-R (S) (COMMON-LISP:BLOCK %LOAD-R (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (PEEK-CHAR S) (COMMON-LISP:PROGN (COMMON-LISP:CONS (READ S) (%LOAD-R S))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%LOAD-R *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'S COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%LOAD-R (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'PEEK-CHAR (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%LOAD-R (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%LOAD-R))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%EXPAND (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %EXPAND (X) (COMMON-LISP:BLOCK %EXPAND (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3846 (!) (? (EQUAL X !) X (%EXPAND !)))) (G3846 (QUASIQUOTE-EXPAND (MACROEXPAND (DOT-EXPAND X)))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%EXPAND *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%EXPAND (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQUAL (COMMON-LISP:CONS 'X (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS '%EXPAND (COMMON-LISP:CONS '! COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'QUASIQUOTE-EXPAND (COMMON-LISP:CONS (COMMON-LISP:CONS 'MACROEXPAND (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOT-EXPAND (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%EXPAND))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%LOAD (COMMON-LISP:CONS (COMMON-LISP:CONS 'PATHNAME COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %LOAD (PATHNAME) (COMMON-LISP:BLOCK %LOAD (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS '%LOAD (COMMON-LISP:CONS PATHNAME COMMON-LISP:NIL))) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3847 (~G1596) (COMMON-LISP:LABELS ((G3848 (I) (COMMON-LISP:TAGBODY ~G1594 (? (NOT ~G1596) (COMMON-LISP:GO ~G1595)) (COMMON-LISP:SETQ I (COMMON-LISP:CAR ~G1596)) (%EVAL (%EXPAND I)) (COMMON-LISP:SETQ ~G1596 (COMMON-LISP:CDR ~G1596)) (COMMON-LISP:GO ~G1594) ~G1595 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN))))) (G3848 COMMON-LISP:NIL)))) (G3847 (COMMON-LISP:LABELS ((G3849 (S) (COMMON-LISP:LABELS ((G3850 (~G1597) (CLOSE S) ~G1597)) (G3850 (COMMON-LISP:PROGN (%LOAD-R S)))))) (G3849 (OPEN PATHNAME :DIRECTION 'INPUT))))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%LOAD *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PATHNAME COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%LOAD (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRINT-DEFINITION (COMMON-LISP:CONS (COMMON-LISP:CONS 'BACKQUOTE (COMMON-LISP:CONS (COMMON-LISP:CONS '%LOAD (COMMON-LISP:CONS (COMMON-LISP:CONS 'QUASIQUOTE (COMMON-LISP:CONS 'PATHNAME COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1596 (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH-OPEN-FILE (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'OPEN (COMMON-LISP:CONS 'PATHNAME (COMMON-LISP:CONS ':DIRECTION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'INPUT COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS '%LOAD-R (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'I (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1594 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1596 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1595 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'I (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1596 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '%EVAL (COMMON-LISP:CONS (COMMON-LISP:CONS '%EXPAND (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1596 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1596 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1594 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1595 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN COMMON-LISP:NIL) COMMON-LISP:NIL))) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%LOAD))
  