anchor.diff:  (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 ((G4202 (~G1551) (COMMON-LISP:LABELS ((G4203 (~G1552) (? (NOT (EQ (COMMON-LISP:CAR ~G1551) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1551))) (COMMON-LISP:LABELS ((G4204 (NUM-CDRS) (COMMON-LISP:LABELS ((G4205 (~G1553) (COMMON-LISP:LABELS ((G4206 (WITHOUT-START) (COMMON-LISP:LABELS ((G4207 (~G1557) (COMMON-LISP:LABELS ((G4208 (~G1558) (? (NOT (EQ (COMMON-LISP:CAR ~G1557) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1557))) (COMMON-LISP:LABELS ((G4209 (NUM-CARS) (COMMON-LISP:LABELS ((G4210 (~G1559) (COMMON-LISP:LABELS ((G4211 (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)))))) (G4211 (COMMON-LISP:CAR ~G1559))))) (G4210 (COMMON-LISP:LABELS ((G4212 (~G1561) (? ~G1561 ~G1561 (%ERROR "Not enough VALUES.")))) (G4212 (COMMON-LISP:CDR ~G1558))))))) (G4209 (COMMON-LISP:CAR ~G1558))))) (G4208 (COMMON-LISP:CDR ~G1557))))) (G4207 (DOT-EXPAND-TAIL-LENGTH WITHOUT-START))))) (G4206 (COMMON-LISP:CAR ~G1553))))) (G4205 (COMMON-LISP:LABELS ((G4213 (~G1556) (? ~G1556 ~G1556 (%ERROR "Not enough VALUES.")))) (G4213 (COMMON-LISP:CDR ~G1552))))))) (G4204 (COMMON-LISP:CAR ~G1552))))) (G4203 (COMMON-LISP:CDR ~G1551))))) (G4202 (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 '~G1551 (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 '~G1552 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1551 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 '~G1551 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 '~G1551 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 '~G1552 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1553 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1552 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 '~G1553 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-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 ((G3683 (~G1497) (COMMON-LISP:LABELS ((G3684 (~G1498) (? (NOT (EQ (COMMON-LISP:CAR ~G1497) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1497))) (COMMON-LISP:LABELS ((G3685 (NUM-CDRS) (COMMON-LISP:LABELS ((G3686 (~G1499) (COMMON-LISP:LABELS ((G3687 (WITHOUT-START) (COMMON-LISP:LABELS ((G3688 (~G1503) (COMMON-LISP:LABELS ((G3689 (~G1504) (? (NOT (EQ (COMMON-LISP:CAR ~G1503) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1503))) (COMMON-LISP:LABELS ((G3690 (NUM-CARS) (COMMON-LISP:LABELS ((G3691 (~G1505) (COMMON-LISP:LABELS ((G3692 (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)))))) (G3692 (COMMON-LISP:CAR ~G1505))))) (G3691 (COMMON-LISP:LABELS ((G3693 (~G1507) (? ~G1507 ~G1507 (%ERROR "Not enough VALUES.")))) (G3693 (COMMON-LISP:CDR ~G1504))))))) (G3690 (COMMON-LISP:CAR ~G1504))))) (G3689 (COMMON-LISP:CDR ~G1503))))) (G3688 (DOT-EXPAND-TAIL-LENGTH WITHOUT-START))))) (G3687 (COMMON-LISP:CAR ~G1499))))) (G3686 (COMMON-LISP:LABELS ((G3694 (~G1502) (? ~G1502 ~G1502 (%ERROR "Not enough VALUES.")))) (G3694 (COMMON-LISP:CDR ~G1498))))))) (G3685 (COMMON-LISP:CAR ~G1498))))) (G3684 (COMMON-LISP:CDR ~G1497))))) (G3683 (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 '~G1497 (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 '~G1498 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1497 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 '~G1497 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 '~G1497 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 '~G1498 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1499 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1498 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 '~G1499 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 ((G4214 (SL) (COMMON-LISP:LABELS ((G4215 (L) (COMMON-LISP:LABELS ((G4216 (P) (COMMON-LISP:LABELS ((G4217 (~G1546) (? ~G1546 ~G1546 (NOT P)))) (G4217 (== 1 L))))) (G4216 (DOT-POSITION SL))))) (G4215 (COMMON-LISP:LENGTH SL))))) (G4214 (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 '~G1546 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1546 (COMMON-LISP:CONS '~G1546 (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 ((G4218 (SL) (COMMON-LISP:LABELS ((G4219 (~G1547) (? ~G1547 ~G1547 (== #\. (COMMON-LISP:CAR (COMMON-LISP:LAST SL)))))) (G4219 (== #\. (COMMON-LISP:CAR SL)))))) (G4218 (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 '~G1547 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1547 (COMMON-LISP:CONS '~G1547 (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 ((G4220 (SL) (COMMON-LISP:LABELS ((G4221 (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)))))) (G4221 (DOT-POSITION SL))))) (G4220 (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 ((G4222 (~G1548) (? ~G1548 ~G1548 (COMMON-LISP:LABELS ((G4223 (~G1549) (? ~G1549 ~G1549 (STRING? _)))) (G4223 (NUMBER? _)))))) (G4222 (CONS? _)))))) (? X (COMMON-LISP:PROGN (? (LABEL? X) (DOT-EXPAND-CONV X) (CONS? X) (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G4224 (~G1555) (COMMON-LISP:LABELS ((G4225 (!) (? ! (COMMON-LISP:PROGN (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* !)))))) (G4225 (? (CONS? ~G1555) (CPR ~G1555)))))) (G4224 X)) (COMMON-LISP:LABELS ((G4226 (~G1550) (RPLACP (COMMON-LISP:CONS (DOT-EXPAND (COMMON-LISP:CAR X)) (DOT-EXPAND (COMMON-LISP:CDR X))) ~G1550))) (G4226 *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 '~G1548 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1548 (COMMON-LISP:CONS '~G1548 (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1549 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1549 (COMMON-LISP:CONS '~G1549 (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 '~G1555 (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 '~G1555 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CPR (COMMON-LISP:CONS '~G1555 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 '~G1550 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 '~G1550 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: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 ((G3695 (SL) (COMMON-LISP:LABELS ((G3696 (L) (COMMON-LISP:LABELS ((G3697 (P) (COMMON-LISP:LABELS ((G3698 (~G1492) (? ~G1492 ~G1492 (NOT P)))) (G3698 (== 1 L))))) (G3697 (DOT-POSITION SL))))) (G3696 (COMMON-LISP:LENGTH SL))))) (G3695 (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 '~G1492 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1492 (COMMON-LISP:CONS '~G1492 (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 ((G3699 (SL) (COMMON-LISP:LABELS ((G3700 (~G1493) (? ~G1493 ~G1493 (== #\. (COMMON-LISP:CAR (COMMON-LISP:LAST SL)))))) (G3700 (== #\. (COMMON-LISP:CAR SL)))))) (G3699 (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 '~G1493 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1493 (COMMON-LISP:CONS '~G1493 (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 ((G3701 (SL) (COMMON-LISP:LABELS ((G3702 (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)))))) (G3702 (DOT-POSITION SL))))) (G3701 (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 ((G3703 (~G1494) (? ~G1494 ~G1494 (COMMON-LISP:LABELS ((G3704 (~G1495) (? ~G1495 ~G1495 (STRING? _)))) (G3704 (NUMBER? _)))))) (G3703 (CONS? _)))))) (? X (COMMON-LISP:PROGN (? (LABEL? X) (DOT-EXPAND-CONV X) (CONS? X) (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3705 (~G1501) (COMMON-LISP:LABELS ((G3706 (!) (? ! (COMMON-LISP:PROGN (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* !)))))) (G3706 (? (CONS? ~G1501) (CPR ~G1501)))))) (G3705 X)) (COMMON-LISP:LABELS ((G3707 (~G1496) (RPLACP (COMMON-LISP:CONS (DOT-EXPAND (COMMON-LISP:CAR X)) (DOT-EXPAND (COMMON-LISP:CDR X))) ~G1496))) (G3707 *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 '~G1494 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1494 (COMMON-LISP:CONS '~G1494 (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1495 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1495 (COMMON-LISP:CONS '~G1495 (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 '~G1501 (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 '~G1501 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CPR (COMMON-LISP:CONS '~G1501 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 '~G1496 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 '~G1496 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 ((G4227 (~G1562) (? ~G1562 ~G1562 (COMMON-LISP:PROGN (=-HREF X *MEMORIZED-NUMBERS* X))))) (G4227 (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 '~G1562 (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 '~G1562 (COMMON-LISP:CONS '~G1562 (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))
  +(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 ((G3708 (~G1508) (? ~G1508 ~G1508 (COMMON-LISP:PROGN (=-HREF X *MEMORIZED-NUMBERS* X))))) (G3708 (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 '~G1508 (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 '~G1508 (COMMON-LISP:CONS '~G1508 (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 ((G4228 (~G1563) (COMMON-LISP:LABELS ((G4229 (S) (COMMON-LISP:LABELS ((G4230 (~G1564) (? ~G1563 ~G1564 (GET-STREAM-STRING S)))) (G4230 (COMMON-LISP:PROGN (STREAM-PRINC (CODE-CHAR 10) S) (FORCE-OUTPUT S) COMMON-LISP:NIL))))) (G4229 (DEFAULT-STREAM ~G1563))))) (G4228 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 '~G1563 (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 '~G1563 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1564 (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 '~G1563 (COMMON-LISP:CONS '~G1564 (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 ((G4231 (~G1565) (COMMON-LISP:LABELS ((G4232 (S) (COMMON-LISP:LABELS ((G4233 (~G1566) (? ~G1565 ~G1566 (GET-STREAM-STRING S)))) (G4233 (COMMON-LISP:PROGN (? (NOT (FRESH-LINE? S)) (COMMON-LISP:PROGN (TERPRI S) COMMON-LISP:T))))))) (G4232 (DEFAULT-STREAM ~G1565))))) (G4231 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 '~G1565 (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 '~G1565 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1566 (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 '~G1565 (COMMON-LISP:CONS '~G1566 (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))
  +(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 ((G3709 (~G1509) (COMMON-LISP:LABELS ((G3710 (S) (COMMON-LISP:LABELS ((G3711 (~G1510) (? ~G1509 ~G1510 (GET-STREAM-STRING S)))) (G3711 (COMMON-LISP:PROGN (STREAM-PRINC (CODE-CHAR 10) S) (FORCE-OUTPUT S) COMMON-LISP:NIL))))) (G3710 (DEFAULT-STREAM ~G1509))))) (G3709 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 '~G1509 (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 '~G1509 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1510 (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 '~G1509 (COMMON-LISP:CONS '~G1510 (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 ((G3712 (~G1511) (COMMON-LISP:LABELS ((G3713 (S) (COMMON-LISP:LABELS ((G3714 (~G1512) (? ~G1511 ~G1512 (GET-STREAM-STRING S)))) (G3714 (COMMON-LISP:PROGN (? (NOT (FRESH-LINE? S)) (COMMON-LISP:PROGN (TERPRI S) COMMON-LISP:T))))))) (G3713 (DEFAULT-STREAM ~G1511))))) (G3712 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 '~G1511 (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 '~G1511 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1512 (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 '~G1511 (COMMON-LISP:CONS '~G1512 (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 ((G4234 (~G1567) (COMMON-LISP:PROGN (=-AREF 'STRUCT ~G1567 0) (=-AREF 'STREAM-LOCATION ~G1567 1)) (COMMON-LISP:PROGN (=-AREF (? (EQ TRACK? 'TRACK?) COMMON-LISP:T TRACK?) ~G1567 2)) (COMMON-LISP:PROGN (=-AREF (? (EQ ID 'ID) COMMON-LISP:NIL ID) ~G1567 3)) (COMMON-LISP:PROGN (=-AREF (? (EQ LINE 'LINE) 1 LINE) ~G1567 4)) (COMMON-LISP:PROGN (=-AREF (? (EQ COLUMN 'COLUMN) 1 COLUMN) ~G1567 5)) (COMMON-LISP:PROGN (=-AREF (? (EQ TABSIZE 'TABSIZE) *DEFAULT-STREAM-TABSIZE* TABSIZE) ~G1567 6)) ~G1567)) (G4234 (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 '~G1567 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 '~G1567 (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 '~G1567 (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 '~G1567 (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 '~G1567 (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 '~G1567 (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 '~G1567 (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 '~G1567 (COMMON-LISP:CONS 6 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1567 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: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: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: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: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: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 BODY)))))) (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 BODY))) 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 ((G4235 (~G1568) (COMMON-LISP:PROGN (=-AREF 'STRUCT ~G1568 0) (=-AREF 'STREAM ~G1568 1)) (COMMON-LISP:PROGN (=-AREF (? (EQ HANDLE 'HANDLE) COMMON-LISP:NIL HANDLE) ~G1568 2)) (COMMON-LISP:PROGN (=-AREF (? (EQ FUN-IN 'FUN-IN) COMMON-LISP:NIL FUN-IN) ~G1568 3)) (COMMON-LISP:PROGN (=-AREF (? (EQ FUN-OUT 'FUN-OUT) COMMON-LISP:NIL FUN-OUT) ~G1568 4)) (COMMON-LISP:PROGN (=-AREF (? (EQ FUN-EOF 'FUN-EOF) COMMON-LISP:NIL FUN-EOF) ~G1568 5)) (COMMON-LISP:PROGN (=-AREF (? (EQ LAST-CHAR 'LAST-CHAR) COMMON-LISP:NIL LAST-CHAR) ~G1568 6)) (COMMON-LISP:PROGN (=-AREF (? (EQ PEEKED-CHAR 'PEEKED-CHAR) COMMON-LISP:NIL PEEKED-CHAR) ~G1568 7)) (COMMON-LISP:PROGN (=-AREF (? (EQ INPUT-LOCATION 'INPUT-LOCATION) (MAKE-STREAM-LOCATION) INPUT-LOCATION) ~G1568 8)) (COMMON-LISP:PROGN (=-AREF (? (EQ OUTPUT-LOCATION 'OUTPUT-LOCATION) (MAKE-STREAM-LOCATION :TRACK? COMMON-LISP:NIL) OUTPUT-LOCATION) ~G1568 9)) (COMMON-LISP:PROGN (=-AREF (? (EQ USER-DETAIL 'USER-DETAIL) COMMON-LISP:NIL USER-DETAIL) ~G1568 10)) ~G1568)) (G4235 (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 '~G1568 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 '~G1568 (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 '~G1568 (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 '~G1568 (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 '~G1568 (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 '~G1568 (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 '~G1568 (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 '~G1568 (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 '~G1568 (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 '~G1568 (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 '~G1568 (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 '~G1568 (COMMON-LISP:CONS 10 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1568 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: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: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: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: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: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: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: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: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: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 BODY)))))) (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 BODY))) 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-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 ((G3715 (~G1513) (COMMON-LISP:PROGN (=-AREF 'STRUCT ~G1513 0) (=-AREF 'STREAM-LOCATION ~G1513 1)) (COMMON-LISP:PROGN (=-AREF (? (EQ TRACK? 'TRACK?) COMMON-LISP:T TRACK?) ~G1513 2)) (COMMON-LISP:PROGN (=-AREF (? (EQ ID 'ID) COMMON-LISP:NIL ID) ~G1513 3)) (COMMON-LISP:PROGN (=-AREF (? (EQ LINE 'LINE) 1 LINE) ~G1513 4)) (COMMON-LISP:PROGN (=-AREF (? (EQ COLUMN 'COLUMN) 1 COLUMN) ~G1513 5)) (COMMON-LISP:PROGN (=-AREF (? (EQ TABSIZE 'TABSIZE) *DEFAULT-STREAM-TABSIZE* TABSIZE) ~G1513 6)) ~G1513)) (G3715 (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 '~G1513 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 '~G1513 (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 '~G1513 (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 '~G1513 (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 '~G1513 (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 '~G1513 (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 '~G1513 (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 '~G1513 (COMMON-LISP:CONS 6 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1513 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 ((G3716 (~G1514) (COMMON-LISP:PROGN (=-AREF 'STRUCT ~G1514 0) (=-AREF 'STREAM ~G1514 1)) (COMMON-LISP:PROGN (=-AREF (? (EQ HANDLE 'HANDLE) COMMON-LISP:NIL HANDLE) ~G1514 2)) (COMMON-LISP:PROGN (=-AREF (? (EQ FUN-IN 'FUN-IN) COMMON-LISP:NIL FUN-IN) ~G1514 3)) (COMMON-LISP:PROGN (=-AREF (? (EQ FUN-OUT 'FUN-OUT) COMMON-LISP:NIL FUN-OUT) ~G1514 4)) (COMMON-LISP:PROGN (=-AREF (? (EQ FUN-EOF 'FUN-EOF) COMMON-LISP:NIL FUN-EOF) ~G1514 5)) (COMMON-LISP:PROGN (=-AREF (? (EQ LAST-CHAR 'LAST-CHAR) COMMON-LISP:NIL LAST-CHAR) ~G1514 6)) (COMMON-LISP:PROGN (=-AREF (? (EQ PEEKED-CHAR 'PEEKED-CHAR) COMMON-LISP:NIL PEEKED-CHAR) ~G1514 7)) (COMMON-LISP:PROGN (=-AREF (? (EQ INPUT-LOCATION 'INPUT-LOCATION) (MAKE-STREAM-LOCATION) INPUT-LOCATION) ~G1514 8)) (COMMON-LISP:PROGN (=-AREF (? (EQ OUTPUT-LOCATION 'OUTPUT-LOCATION) (MAKE-STREAM-LOCATION :TRACK? COMMON-LISP:NIL) OUTPUT-LOCATION) ~G1514 9)) (COMMON-LISP:PROGN (=-AREF (? (EQ USER-DETAIL 'USER-DETAIL) COMMON-LISP:NIL USER-DETAIL) ~G1514 10)) ~G1514)) (G3716 (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 '~G1514 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 '~G1514 (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 '~G1514 (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 '~G1514 (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 '~G1514 (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 '~G1514 (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 '~G1514 (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 '~G1514 (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 '~G1514 (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 '~G1514 (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 '~G1514 (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 '~G1514 (COMMON-LISP:CONS 10 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1514 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 ((G4236 (STREAM-LOCATION) (COMMON-LISP:LABELS ((G4237 (TRACK?) (COMMON-LISP:LABELS ((G4238 (ID) (COMMON-LISP:LABELS ((G4239 (LINE) (COMMON-LISP:LABELS ((G4240 (COLUMN) (COMMON-LISP:LABELS ((G4241 (TABSIZE) TRACK? ID LINE COLUMN TABSIZE (? TRACK? (COMMON-LISP:PROGN (? (STRING? X) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4242 (~G1571) (COMMON-LISP:LABELS ((G4243 (!) (COMMON-LISP:TAGBODY ~G1569 (? (NOT ~G1571) (COMMON-LISP:GO ~G1570)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1571)) (%TRACK-LOCATION STREAM-LOCATION !) (COMMON-LISP:SETQ ~G1571 (COMMON-LISP:CDR ~G1571)) (COMMON-LISP:GO ~G1569) ~G1570 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))))) (G4243 COMMON-LISP:NIL)))) (G4242 (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)) (G4241 (STREAM-LOCATION-TABSIZE STREAM-LOCATION))))) (G4240 (STREAM-LOCATION-COLUMN STREAM-LOCATION))))) (G4239 (STREAM-LOCATION-LINE STREAM-LOCATION))))) (G4238 (STREAM-LOCATION-ID STREAM-LOCATION))))) (G4237 (STREAM-LOCATION-TRACK? STREAM-LOCATION))))) (G4236 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 '~G1571 (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 '~G1569 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1571 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1570 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 '~G1571 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 '~G1571 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1571 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1569 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1570 (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 ((G4244 (~G1574) (COMMON-LISP:LABELS ((G4245 (!) (COMMON-LISP:TAGBODY ~G1572 (? (NOT ~G1574) (COMMON-LISP:GO ~G1573)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1574)) (STREAM-PRINC ! STR) (COMMON-LISP:SETQ ~G1574 (COMMON-LISP:CDR ~G1574)) (COMMON-LISP:GO ~G1572) ~G1573 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN X))))) (G4245 COMMON-LISP:NIL)))) (G4244 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 '~G1574 (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 '~G1572 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1574 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1573 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 '~G1574 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 '~G1574 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1574 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1572 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1573 (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 ((G4246 (!) (? ! (COMMON-LISP:PROGN (COMMON-LISP:PROGN (=-STREAM-PEEKED-CHAR COMMON-LISP:NIL STR)) !)))) (G4246 (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 ((G4247 (~G1575) (? ~G1575 ~G1575 (COMMON-LISP:PROGN (=-STREAM-LAST-CHAR (FUNCALL (STREAM-FUN-IN STR) STR) STR))))) (G4247 (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 '~G1575 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1575 (COMMON-LISP:CONS '~G1575 (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 '%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 ((G3717 (STREAM-LOCATION) (COMMON-LISP:LABELS ((G3718 (TRACK?) (COMMON-LISP:LABELS ((G3719 (ID) (COMMON-LISP:LABELS ((G3720 (LINE) (COMMON-LISP:LABELS ((G3721 (COLUMN) (COMMON-LISP:LABELS ((G3722 (TABSIZE) TRACK? ID LINE COLUMN TABSIZE (? TRACK? (COMMON-LISP:PROGN (? (STRING? X) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3723 (~G1517) (COMMON-LISP:LABELS ((G3724 (!) (COMMON-LISP:TAGBODY ~G1515 (? (NOT ~G1517) (COMMON-LISP:GO ~G1516)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1517)) (%TRACK-LOCATION STREAM-LOCATION !) (COMMON-LISP:SETQ ~G1517 (COMMON-LISP:CDR ~G1517)) (COMMON-LISP:GO ~G1515) ~G1516 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))))) (G3724 COMMON-LISP:NIL)))) (G3723 (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)) (G3722 (STREAM-LOCATION-TABSIZE STREAM-LOCATION))))) (G3721 (STREAM-LOCATION-COLUMN STREAM-LOCATION))))) (G3720 (STREAM-LOCATION-LINE STREAM-LOCATION))))) (G3719 (STREAM-LOCATION-ID STREAM-LOCATION))))) (G3718 (STREAM-LOCATION-TRACK? STREAM-LOCATION))))) (G3717 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 '~G1517 (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 '~G1515 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1517 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1516 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 '~G1517 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 '~G1517 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1517 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1515 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1516 (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 ((G3725 (~G1520) (COMMON-LISP:LABELS ((G3726 (!) (COMMON-LISP:TAGBODY ~G1518 (? (NOT ~G1520) (COMMON-LISP:GO ~G1519)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1520)) (STREAM-PRINC ! STR) (COMMON-LISP:SETQ ~G1520 (COMMON-LISP:CDR ~G1520)) (COMMON-LISP:GO ~G1518) ~G1519 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN X))))) (G3726 COMMON-LISP:NIL)))) (G3725 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 '~G1520 (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 '~G1518 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1520 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1519 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 '~G1520 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 '~G1520 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1520 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1518 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1519 (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 ((G3727 (!) (? ! (COMMON-LISP:PROGN (COMMON-LISP:PROGN (=-STREAM-PEEKED-CHAR COMMON-LISP:NIL STR)) !)))) (G3727 (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 ((G3728 (~G1521) (? ~G1521 ~G1521 (COMMON-LISP:PROGN (=-STREAM-LAST-CHAR (FUNCALL (STREAM-FUN-IN STR) STR) STR))))) (G3728 (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 '~G1521 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1521 (COMMON-LISP:CONS '~G1521 (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 ((G4248 (~G1576) (? ~G1576 ~G1576 (COMMON-LISP:PROGN (=-STREAM-PEEKED-CHAR (READ-CHAR-0 STR) STR))))) (G4248 (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 '~G1576 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1576 (COMMON-LISP:CONS '~G1576 (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 ((G4249 (~G1577) (? (EQ ~G1577 COMMON-LISP:NIL) (MAKE-STRING-STREAM) (EQ ~G1577 COMMON-LISP:T) *STANDARD-OUTPUT* X))) (G4249 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 '~G1577 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1577 (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 '~G1577 (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 ((G4250 (G) (COMMON-LISP:LABELS ((G4251 (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 BODY) 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))))) (G4251 (GENSYM))))) (G4250 (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 ((G4252 (!) (? (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 !))))))) (G4252 (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 ((G4253 (~G1578) (COMMON-LISP:PROGN (=-STREAM-USER-DETAIL (MAKE-QUEUE) STR)) ~G1578)) (G4253 (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 '~G1578 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 '~G1578 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 '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 ((G3729 (~G1522) (? ~G1522 ~G1522 (COMMON-LISP:PROGN (=-STREAM-PEEKED-CHAR (READ-CHAR-0 STR) STR))))) (G3729 (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 '~G1522 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS '~G1522 (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 ((G3730 (~G1523) (? (EQ ~G1523 COMMON-LISP:NIL) (MAKE-STRING-STREAM) (EQ ~G1523 COMMON-LISP:T) *STANDARD-OUTPUT* X))) (G3730 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 '~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: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 '~G1523 (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 ((G3731 (G) (COMMON-LISP:LABELS ((G3732 (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))))) (G3732 (GENSYM))))) (G3731 (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 ((G3733 (!) (? (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 !))))))) (G3733 (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 ((G3734 (~G1524) (COMMON-LISP:PROGN (=-STREAM-USER-DETAIL (MAKE-QUEUE) STR)) ~G1524)) (G3734 (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 '~G1524 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 '~G1524 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 ((G4254 (~G1579) (? (EQUAL ~G1579 'INPUT) "r" (EQUAL ~G1579 'OUTPUT) "w" (EQUAL ~G1579 'APPEND) "a" (ERROR ":DIRECTION isn't specified.")))) (G4254 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 '~G1579 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQUAL (COMMON-LISP:CONS '~G1579 (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 '~G1579 (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 '~G1579 (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 ((G4255 (!) (? ! (MAKE-STREAM-STREAM :STREAM ! :INPUT-LOCATION (MAKE-STREAM-LOCATION :ID PATH)) (ERROR "Couldn't open file `~A'." PATH)))) (G4255 (%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 '%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 ((G3735 (~G1525) (? (EQUAL ~G1525 'INPUT) "r" (EQUAL ~G1525 'OUTPUT) "w" (EQUAL ~G1525 'APPEND) "a" (ERROR ":DIRECTION isn't specified.")))) (G3735 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 '~G1525 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQUAL (COMMON-LISP:CONS '~G1525 (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 '~G1525 (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 '~G1525 (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 ((G3736 (!) (? ! (MAKE-STREAM-STREAM :STREAM ! :INPUT-LOCATION (MAKE-STREAM-LOCATION :ID PATH)) (ERROR "Couldn't open file `~A'." PATH)))) (G3736 (%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 ((G4256 (!) (COMMON-LISP:CONS (NUMBER-DIGIT !) (? (<= 10 X) (INTEGER-CHARS-0 (/ (- X !) 10)))))) (G4256 (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-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 ((G3737 (!) (COMMON-LISP:CONS (NUMBER-DIGIT !) (? (<= 10 X) (INTEGER-CHARS-0 (/ (- X !) 10)))))) (G3737 (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 ((G4257 (!) (? (< 0 !) (COMMON-LISP:CONS (NUMBER-DIGIT !) (FRACTION-CHARS-0 !))))) (G4257 (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-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 ((G3738 (!) (? (< 0 !) (COMMON-LISP:CONS (NUMBER-DIGIT !) (FRACTION-CHARS-0 !))))) (G3738 (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 ((G4258 (!) (? (NOT (ZERO? !)) (COMMON-LISP:PROGN (PRINC #\. STR) (STREAM-PRINC (FRACTION-CHARS !) STR))))) (G4258 (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 ((G4259 (~G1580) (COMMON-LISP:LABELS ((G4260 (S) (COMMON-LISP:LABELS ((G4261 (~G1581) (? ~G1580 ~G1581 (GET-STREAM-STRING S)))) (G4261 (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))))) (G4260 (DEFAULT-STREAM ~G1580))))) (G4259 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 '~G1580 (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 '~G1580 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1581 (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 '~G1580 (COMMON-LISP:CONS '~G1581 (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 ((G4262 (!) (? ! (COMMON-LISP:CONS (SUBSEQ SEQ 0 (? INCLUDE? (INTEGER++ !) !)) (SPLIT-IF PREDICATE (SUBSEQ SEQ (INTEGER++ !)) :INCLUDE? INCLUDE?)) (COMMON-LISP:LIST SEQ)))) (G4262 (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 'INTEGER++ (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 'INTEGER++ (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 ((G4263 (!) (? ! (COMMON-LISP:CONS (SUBSEQ SEQ 0 (? INCLUDE? (INTEGER++ !) !)) (GENERIC-SPLIT OBJ (SUBSEQ SEQ (INTEGER++ !)) :TEST TEST :INCLUDE? INCLUDE?)) (COMMON-LISP:LIST SEQ)))) (G4263 (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 'INTEGER++ (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 'INTEGER++ (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 '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 ((G3739 (!) (? (NOT (ZERO? !)) (COMMON-LISP:PROGN (PRINC #\. STR) (STREAM-PRINC (FRACTION-CHARS !) STR))))) (G3739 (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 ((G3740 (~G1526) (COMMON-LISP:LABELS ((G3741 (S) (COMMON-LISP:LABELS ((G3742 (~G1527) (? ~G1526 ~G1527 (GET-STREAM-STRING S)))) (G3742 (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))))) (G3741 (DEFAULT-STREAM ~G1526))))) (G3740 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 '~G1526 (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 '~G1526 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1527 (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 '~G1526 (COMMON-LISP:CONS '~G1527 (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 ((G3743 (!) (? ! (COMMON-LISP:CONS (SUBSEQ SEQ 0 (? INCLUDE? (++ !) !)) (SPLIT-IF PREDICATE (SUBSEQ SEQ (++ !)) :INCLUDE? INCLUDE?)) (COMMON-LISP:LIST SEQ)))) (G3743 (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 ((G3744 (!) (? ! (COMMON-LISP:CONS (SUBSEQ SEQ 0 (? INCLUDE? (++ !) !)) (GENERIC-SPLIT OBJ (SUBSEQ SEQ (++ !)) :TEST TEST :INCLUDE? INCLUDE?)) (COMMON-LISP:LIST SEQ)))) (G3744 (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:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'DIGIT-NUMBER COMMON-LISP:NIL) *FUNCTIONALS*)))
  +(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 ((G4264 (!) (? ! (COMMON-LISP:PROGN (? (DIGIT-CHAR? !) !))))) (G4264 (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 ((G4265 (!) (? ! (COMMON-LISP:PROGN (== #\. !))))) (G4265 (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 '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 ((G3745 (!) (? ! (COMMON-LISP:PROGN (? (DIGIT-CHAR? !) !))))) (G3745 (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 ((G3746 (!) (? ! (COMMON-LISP:PROGN (== #\. !))))) (G3746 (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 ((G4266 (!) (? ! (DIGIT-CHAR? !)))) (G4266 (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-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 ((G3747 (!) (? ! (DIGIT-CHAR? !)))) (G3747 (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 ((G4267 (~G1582) (? ~G1582 ~G1582 0))) (G4267 (? (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 '~G1582 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1582 (COMMON-LISP:CONS '~G1582 (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 ((G4268 (~G1611) (? ~G1611 ~G1611 (COMMON-LISP:LABELS ((G4269 (~G1612) (? ~G1612 ~G1612 (COMMON-LISP:LABELS ((G4270 (~G1613) (? ~G1613 ~G1613 (COMMON-LISP:LABELS ((G4271 (~G1614) (? ~G1614 ~G1614 (EQ X 'ACCENT-CIRCONFLEX)))) (G4271 (EQ X 'QUASIQUOTE-SPLICE)))))) (G4270 (EQ X 'QUASIQUOTE)))))) (G4269 (EQ X 'BACKQUOTE)))))) (G4268 (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 '~G1611 (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 '~G1611 (COMMON-LISP:CONS '~G1611 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1612 (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 '~G1612 (COMMON-LISP:CONS '~G1612 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1613 (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 '~G1613 (COMMON-LISP:CONS '~G1613 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1614 (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 '~G1614 (COMMON-LISP:CONS '~G1614 (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 ((G4272 (~G1615) (? ~G1615 ~G1615 (COMMON-LISP:LABELS ((G4273 (~G1616) (? ~G1616 ~G1616 (EQ X 'CURLY-BRACKET-CLOSE)))) (G4273 (EQ X 'SQUARE-BRACKET-CLOSE)))))) (G4272 (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 '~G1615 (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 '~G1615 (COMMON-LISP:CONS '~G1615 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1616 (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 '~G1616 (COMMON-LISP:CONS '~G1616 (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 ((G4274 (~G1617) (? ~G1617 ~G1617 (COMMON-LISP:LABELS ((G4275 (~G1618) (? ~G1618 ~G1618 (COMMON-LISP:LABELS ((G4276 (~G1619) (? ~G1619 ~G1619 (COMMON-LISP:LABELS ((G4277 (~G1620) (? ~G1620 ~G1620 (COMMON-LISP:LABELS ((G4278 (~G1621) (? ~G1621 ~G1621 (COMMON-LISP:LABELS ((G4279 (~G1622) (? ~G1622 ~G1622 (COMMON-LISP:LABELS ((G4280 (~G1623) (? ~G1623 ~G1623 (COMMON-LISP:LABELS ((G4281 (~G1624) (? ~G1624 ~G1624 (COMMON-LISP:LABELS ((G4282 (~G1625) (? ~G1625 ~G1625 (COMMON-LISP:LABELS ((G4283 (~G1626) (? ~G1626 ~G1626 (COMMON-LISP:LABELS ((G4284 (~G1627) (? ~G1627 ~G1627 (COMMON-LISP:LABELS ((G4285 (~G1628) (? ~G1628 ~G1628 (COMMON-LISP:LABELS ((G4286 (~G1629) (? ~G1629 ~G1629 (== X #\^)))) (G4286 (== X #\#)))))) (G4285 (== X #\")))))) (G4284 (== X #\;)))))) (G4283 (== X #\:)))))) (G4282 (== X #\,)))))) (G4281 (== X #\`)))))) (G4280 (== X #\')))))) (G4279 (== X #\})))))) (G4278 (== X #\{)))))) (G4277 (== X #\])))))) (G4276 (== X #\[)))))) (G4275 (== X #\))))))) (G4274 (== 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 '~G1617 (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 '~G1617 (COMMON-LISP:CONS '~G1617 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1618 (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 '~G1618 (COMMON-LISP:CONS '~G1618 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1619 (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 '~G1619 (COMMON-LISP:CONS '~G1619 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1620 (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 '~G1620 (COMMON-LISP:CONS '~G1620 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1621 (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 '~G1621 (COMMON-LISP:CONS '~G1621 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1622 (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 '~G1622 (COMMON-LISP:CONS '~G1622 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1623 (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 '~G1623 (COMMON-LISP:CONS '~G1623 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1624 (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 '~G1624 (COMMON-LISP:CONS '~G1624 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1625 (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 '~G1625 (COMMON-LISP:CONS '~G1625 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1626 (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 '~G1626 (COMMON-LISP:CONS '~G1626 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1627 (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 '~G1627 (COMMON-LISP:CONS '~G1627 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1628 (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 '~G1628 (COMMON-LISP:CONS '~G1628 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1629 (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 '~G1629 (COMMON-LISP:CONS '~G1629 (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 '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 ((G3748 (~G1528) (? ~G1528 ~G1528 0))) (G3748 (? (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 '~G1528 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1528 (COMMON-LISP:CONS '~G1528 (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 ((G3749 (~G1557) (? ~G1557 ~G1557 (COMMON-LISP:LABELS ((G3750 (~G1558) (? ~G1558 ~G1558 (COMMON-LISP:LABELS ((G3751 (~G1559) (? ~G1559 ~G1559 (COMMON-LISP:LABELS ((G3752 (~G1560) (? ~G1560 ~G1560 (EQ X 'ACCENT-CIRCONFLEX)))) (G3752 (EQ X 'QUASIQUOTE-SPLICE)))))) (G3751 (EQ X 'QUASIQUOTE)))))) (G3750 (EQ X 'BACKQUOTE)))))) (G3749 (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 '~G1557 (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 '~G1557 (COMMON-LISP:CONS '~G1557 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1558 (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 '~G1558 (COMMON-LISP:CONS '~G1558 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1559 (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 '~G1559 (COMMON-LISP:CONS '~G1559 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1560 (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 '~G1560 (COMMON-LISP:CONS '~G1560 (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 ((G3753 (~G1561) (? ~G1561 ~G1561 (COMMON-LISP:LABELS ((G3754 (~G1562) (? ~G1562 ~G1562 (EQ X 'CURLY-BRACKET-CLOSE)))) (G3754 (EQ X 'SQUARE-BRACKET-CLOSE)))))) (G3753 (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 '~G1561 (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 '~G1561 (COMMON-LISP:CONS '~G1561 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1562 (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 '~G1562 (COMMON-LISP:CONS '~G1562 (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 ((G3755 (~G1563) (? ~G1563 ~G1563 (COMMON-LISP:LABELS ((G3756 (~G1564) (? ~G1564 ~G1564 (COMMON-LISP:LABELS ((G3757 (~G1565) (? ~G1565 ~G1565 (COMMON-LISP:LABELS ((G3758 (~G1566) (? ~G1566 ~G1566 (COMMON-LISP:LABELS ((G3759 (~G1567) (? ~G1567 ~G1567 (COMMON-LISP:LABELS ((G3760 (~G1568) (? ~G1568 ~G1568 (COMMON-LISP:LABELS ((G3761 (~G1569) (? ~G1569 ~G1569 (COMMON-LISP:LABELS ((G3762 (~G1570) (? ~G1570 ~G1570 (COMMON-LISP:LABELS ((G3763 (~G1571) (? ~G1571 ~G1571 (COMMON-LISP:LABELS ((G3764 (~G1572) (? ~G1572 ~G1572 (COMMON-LISP:LABELS ((G3765 (~G1573) (? ~G1573 ~G1573 (COMMON-LISP:LABELS ((G3766 (~G1574) (? ~G1574 ~G1574 (COMMON-LISP:LABELS ((G3767 (~G1575) (? ~G1575 ~G1575 (== X #\^)))) (G3767 (== X #\#)))))) (G3766 (== X #\")))))) (G3765 (== X #\;)))))) (G3764 (== X #\:)))))) (G3763 (== X #\,)))))) (G3762 (== X #\`)))))) (G3761 (== X #\')))))) (G3760 (== X #\})))))) (G3759 (== X #\{)))))) (G3758 (== X #\])))))) (G3757 (== X #\[)))))) (G3756 (== X #\))))))) (G3755 (== 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 '~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 'LET (COMMON-LISP:CONS '~G1565 (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 '~G1565 (COMMON-LISP:CONS '~G1565 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1566 (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 '~G1566 (COMMON-LISP:CONS '~G1566 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1567 (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 '~G1567 (COMMON-LISP:CONS '~G1567 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1568 (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 '~G1568 (COMMON-LISP:CONS '~G1568 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1569 (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 '~G1569 (COMMON-LISP:CONS '~G1569 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1570 (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 '~G1570 (COMMON-LISP:CONS '~G1570 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1571 (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 '~G1571 (COMMON-LISP:CONS '~G1571 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1572 (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 '~G1572 (COMMON-LISP:CONS '~G1572 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1573 (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 '~G1573 (COMMON-LISP:CONS '~G1573 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1574 (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 '~G1574 (COMMON-LISP:CONS '~G1574 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1575 (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 '~G1575 (COMMON-LISP:CONS '~G1575 (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 ((G4287 (C) (? C (COMMON-LISP:PROGN (? (== C 10) (SKIP-SPACES STR) (SKIP-COMMENT STR)))))) (G4287 (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 ((G4288 (C) (? C (COMMON-LISP:PROGN (? (== #\; C) (COMMON-LISP:PROGN (SKIP-COMMENT STR))) (? (WHITESPACE? C) (COMMON-LISP:PROGN (READ-CHAR STR) (SKIP-SPACES STR))))))) (G4288 (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 ((G4289 (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)))))) (G4289 (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 ((G4290 (C) (? C (COMMON-LISP:PROGN (? (NOT (SPECIAL-CHAR? C)) (COMMON-LISP:PROGN (GET-SYMBOL-0 STR))))))) (G4290 (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 ((G4291 (SYM) (COMMON-LISP:LABELS ((G4292 (!) (? ! (COMMON-LISP:PROGN (? (== ! #\:) (VALUES (COMMON-LISP:LABELS ((G4293 (~G1583) (? ~G1583 ~G1583 COMMON-LISP:T))) (G4293 SYM)) (? (READ-CHAR STR) (GET-SYMBOL STR))) (VALUES COMMON-LISP:NIL SYM)))))) (G4292 (PEEK-CHAR STR))))) (G4291 (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 '~G1583 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1583 (COMMON-LISP:CONS '~G1583 (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 ((G4294 (C) (? (NOT (== C #\")) (COMMON-LISP:PROGN (COMMON-LISP:CONS (? (== C #\\) (READ-CHAR STR) C) (READ-STRING-0 STR)))))) (G4294 (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 '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 ((G3768 (C) (? C (COMMON-LISP:PROGN (? (== C 10) (SKIP-SPACES STR) (SKIP-COMMENT STR)))))) (G3768 (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 ((G3769 (C) (? C (COMMON-LISP:PROGN (? (== #\; C) (COMMON-LISP:PROGN (SKIP-COMMENT STR))) (? (WHITESPACE? C) (COMMON-LISP:PROGN (READ-CHAR STR) (SKIP-SPACES STR))))))) (G3769 (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 ((G3770 (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)))))) (G3770 (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 ((G3771 (C) (? C (COMMON-LISP:PROGN (? (NOT (SPECIAL-CHAR? C)) (COMMON-LISP:PROGN (GET-SYMBOL-0 STR))))))) (G3771 (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 ((G3772 (SYM) (COMMON-LISP:LABELS ((G3773 (!) (? ! (COMMON-LISP:PROGN (? (== ! #\:) (VALUES (COMMON-LISP:LABELS ((G3774 (~G1529) (? ~G1529 ~G1529 COMMON-LISP:T))) (G3774 SYM)) (? (READ-CHAR STR) (GET-SYMBOL STR))) (VALUES COMMON-LISP:NIL SYM)))))) (G3773 (PEEK-CHAR STR))))) (G3772 (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 '~G1529 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1529 (COMMON-LISP:CONS '~G1529 (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 ((G3775 (C) (? (NOT (== C #\")) (COMMON-LISP:PROGN (COMMON-LISP:CONS (? (== C #\\) (READ-CHAR STR) C) (READ-STRING-0 STR)))))) (G3775 (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 ~G1630 (? (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 ~G1630))))))) (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 '~G1630 (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 '~G1630 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 ((G4295 (~G1585) (? ~G1585 ~G1585 (DIGIT-CHAR? (COMMON-LISP:CAR X))))) (G4295 (? (COMMON-LISP:CDR X) (COMMON-LISP:LABELS ((G4296 (~G1584) (? ~G1584 ~G1584 (== #\. (COMMON-LISP:CAR X))))) (G4296 (== #\- (COMMON-LISP:CAR X))))))) (? (COMMON-LISP:CDR X) (EVERY #'(COMMON-LISP:LAMBDA (_) (COMMON-LISP:LABELS ((G4297 (~G1651) (? ~G1651 ~G1651 (== #\. _)))) (G4297 (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 '~G1585 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1585 (COMMON-LISP:CONS '~G1585 (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 '~G1584 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1584 (COMMON-LISP:CONS '~G1584 (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 ((G4298 (!) (? ! (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G4299 (~G1631) (COMMON-LISP:LABELS ((G4300 (~G1632) (? (NOT (EQ (COMMON-LISP:CAR ~G1631) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1631))) (COMMON-LISP:LABELS ((G4301 (PKG) (COMMON-LISP:LABELS ((G4302 (~G1633) (COMMON-LISP:LABELS ((G4303 (SYM) (VALUES (? (? SYM (? (NOT (COMMON-LISP:CDR SYM)) (== #\. (COMMON-LISP:CAR SYM)))) 'DOT (? SYM (? (LIST-NUMBER? SYM) 'NUMBER 'SYMBOL) (COMMON-LISP:LABELS ((G4304 (~G1587) (? (CHARACTER== ~G1587 #\() 'BRACKET-OPEN (CHARACTER== ~G1587 #\)) 'BRACKET-CLOSE (CHARACTER== ~G1587 #\[) 'SQUARE-BRACKET-OPEN (CHARACTER== ~G1587 #\]) 'SQUARE-BRACKET-CLOSE (CHARACTER== ~G1587 #\{) 'CURLY-BRACKET-OPEN (CHARACTER== ~G1587 #\}) 'CURLY-BRACKET-CLOSE (CHARACTER== ~G1587 #\') 'COMMON-LISP:QUOTE (CHARACTER== ~G1587 #\`) 'BACKQUOTE (CHARACTER== ~G1587 #\^) 'ACCENT-CIRCONFLEX (CHARACTER== ~G1587 #\") 'DBLQUOTE (CHARACTER== ~G1587 #\,) (? (== #\@ (PEEK-CHAR STR)) (? (READ-CHAR STR) 'QUASIQUOTE-SPLICE) 'QUASIQUOTE) (CHARACTER== ~G1587 #\#) (COMMON-LISP:LABELS ((G4305 (~G1586) (? (CHARACTER== ~G1586 #\\) 'CHAR (CHARACTER== ~G1586 #\x) 'HEXNUM (CHARACTER== ~G1586 #\') 'COMMON-LISP:FUNCTION (CHARACTER== ~G1586 #\|) (READ-COMMENT-BLOCK STR) (ERROR "Invalid character after '#'.")))) (G4305 (READ-CHAR STR))) (CHARACTER== ~G1587 -1) 'EOF))) (G4304 (READ-CHAR STR))))) PKG SYM))) (G4303 (COMMON-LISP:CAR ~G1633))))) (G4302 (COMMON-LISP:LABELS ((G4306 (~G1652) (? ~G1652 ~G1652 (%ERROR "Not enough VALUES.")))) (G4306 (COMMON-LISP:CDR ~G1632))))))) (G4301 (COMMON-LISP:CAR ~G1632))))) (G4300 (COMMON-LISP:CDR ~G1631))))) (G4299 !)))))) (G4298 (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 '~G1631 (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1632 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1631 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 '~G1631 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 '~G1631 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 '~G1632 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1633 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1632 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 '~G1633 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 '~G1587 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1587 (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 '~G1587 (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 '~G1587 (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 '~G1587 (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 '~G1587 (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 '~G1587 (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 '~G1587 (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 '~G1587 (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 '~G1587 (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 '~G1587 (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 '~G1587 (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 '~G1587 (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 '~G1586 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1586 (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 '~G1586 (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 '~G1586 (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 '~G1586 (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 '~G1587 (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-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 ~G1576 (? (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 ~G1576))))))) (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 '~G1576 (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 '~G1576 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 ((G3776 (~G1531) (? ~G1531 ~G1531 (DIGIT-CHAR? (COMMON-LISP:CAR X))))) (G3776 (? (COMMON-LISP:CDR X) (COMMON-LISP:LABELS ((G3777 (~G1530) (? ~G1530 ~G1530 (== #\. (COMMON-LISP:CAR X))))) (G3777 (== #\- (COMMON-LISP:CAR X))))))) (? (COMMON-LISP:CDR X) (EVERY #'(COMMON-LISP:LAMBDA (_) (COMMON-LISP:LABELS ((G3778 (~G1597) (? ~G1597 ~G1597 (== #\. _)))) (G3778 (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 '~G1531 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1531 (COMMON-LISP:CONS '~G1531 (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 '~G1530 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1530 (COMMON-LISP:CONS '~G1530 (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 ((G3779 (!) (? ! (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3780 (~G1577) (COMMON-LISP:LABELS ((G3781 (~G1578) (? (NOT (EQ (COMMON-LISP:CAR ~G1577) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1577))) (COMMON-LISP:LABELS ((G3782 (PKG) (COMMON-LISP:LABELS ((G3783 (~G1579) (COMMON-LISP:LABELS ((G3784 (SYM) (VALUES (? (? SYM (? (NOT (COMMON-LISP:CDR SYM)) (== #\. (COMMON-LISP:CAR SYM)))) 'DOT (? SYM (? (LIST-NUMBER? SYM) 'NUMBER 'SYMBOL) (COMMON-LISP:LABELS ((G3785 (~G1533) (? (CHARACTER== ~G1533 #\() 'BRACKET-OPEN (CHARACTER== ~G1533 #\)) 'BRACKET-CLOSE (CHARACTER== ~G1533 #\[) 'SQUARE-BRACKET-OPEN (CHARACTER== ~G1533 #\]) 'SQUARE-BRACKET-CLOSE (CHARACTER== ~G1533 #\{) 'CURLY-BRACKET-OPEN (CHARACTER== ~G1533 #\}) 'CURLY-BRACKET-CLOSE (CHARACTER== ~G1533 #\') 'COMMON-LISP:QUOTE (CHARACTER== ~G1533 #\`) 'BACKQUOTE (CHARACTER== ~G1533 #\^) 'ACCENT-CIRCONFLEX (CHARACTER== ~G1533 #\") 'DBLQUOTE (CHARACTER== ~G1533 #\,) (? (== #\@ (PEEK-CHAR STR)) (? (READ-CHAR STR) 'QUASIQUOTE-SPLICE) 'QUASIQUOTE) (CHARACTER== ~G1533 #\#) (COMMON-LISP:LABELS ((G3786 (~G1532) (? (CHARACTER== ~G1532 #\\) 'CHAR (CHARACTER== ~G1532 #\x) 'HEXNUM (CHARACTER== ~G1532 #\') 'COMMON-LISP:FUNCTION (CHARACTER== ~G1532 #\|) (READ-COMMENT-BLOCK STR) (ERROR "Invalid character after '#'.")))) (G3786 (READ-CHAR STR))) (CHARACTER== ~G1533 -1) 'EOF))) (G3785 (READ-CHAR STR))))) PKG SYM))) (G3784 (COMMON-LISP:CAR ~G1579))))) (G3783 (COMMON-LISP:LABELS ((G3787 (~G1598) (? ~G1598 ~G1598 (%ERROR "Not enough VALUES.")))) (G3787 (COMMON-LISP:CDR ~G1578))))))) (G3782 (COMMON-LISP:CAR ~G1578))))) (G3781 (COMMON-LISP:CDR ~G1577))))) (G3780 !)))))) (G3779 (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 '~G1577 (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1578 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1577 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 '~G1577 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 '~G1577 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 '~G1578 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1579 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1578 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 '~G1579 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 '~G1533 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1533 (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 '~G1533 (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 '~G1533 (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 '~G1533 (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 '~G1533 (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 '~G1533 (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 '~G1533 (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 '~G1533 (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 '~G1533 (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 '~G1533 (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 '~G1533 (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 '~G1533 (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 '~G1532 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS '~G1532 (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 '~G1532 (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 '~G1532 (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 '~G1532 (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 '~G1533 (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 ((G4307 (!) (? (? (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))))))) (G4307 (FILTER #'(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 'FILTER (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 ((G4308 (~G1588) (? (EQ ~G1588 'DBLQUOTE) (READ-STRING STR) (EQ ~G1588 'CHAR) (READ-CHAR STR) (EQ ~G1588 'NUMBER) (COMMON-LISP:LABELS ((G4309 (S) (PRINC (LIST-STRING SYM) S) (COMMON-LISP:PROGN (READ-NUMBER S)))) (G4309 (MAKE-STRING-STREAM))) (EQ ~G1588 'HEXNUM) (READ-HEX STR) (EQ ~G1588 'COMMON-LISP:FUNCTION) (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (READ-EXPR STR) COMMON-LISP:NIL)) (EQ ~G1588 'SYMBOL) (READ-SYMBOL-OR-SLOT-VALUE SYM PKG) (ERROR "Syntax error: token ~A, sym ~A." TOKEN SYM)))) (G4308 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 '~G1588 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1588 (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 '~G1588 (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 '~G1588 (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 '~G1588 (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 '~G1588 (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 '~G1588 (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-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 ((G3788 (!) (? (? (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))))))) (G3788 (FILTER #'(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 'FILTER (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 ((G3789 (~G1534) (? (EQ ~G1534 'DBLQUOTE) (READ-STRING STR) (EQ ~G1534 'CHAR) (READ-CHAR STR) (EQ ~G1534 'NUMBER) (COMMON-LISP:LABELS ((G3790 (S) (PRINC (LIST-STRING SYM) S) (COMMON-LISP:PROGN (READ-NUMBER S)))) (G3790 (MAKE-STRING-STREAM))) (EQ ~G1534 'HEXNUM) (READ-HEX STR) (EQ ~G1534 'COMMON-LISP:FUNCTION) (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (READ-EXPR STR) COMMON-LISP:NIL)) (EQ ~G1534 'SYMBOL) (READ-SYMBOL-OR-SLOT-VALUE SYM PKG) (ERROR "Syntax error: token ~A, sym ~A." TOKEN SYM)))) (G3789 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 '~G1534 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1534 (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 '~G1534 (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 '~G1534 (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 '~G1534 (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 '~G1534 (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 '~G1534 (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 ((G4310 (!) (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 !)))))))) (G4310 (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 ((G4311 (LOC) (COMMON-LISP:LABELS ((G4312 (LINE) (COMMON-LISP:LABELS ((G4313 (COLUMN) (COMMON-LISP:LABELS ((G4314 (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 ((G4315 (~G1590) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* *DEFAULT-LISTPROP*)) (COMMON-LISP:LABELS ((G4316 (~G1593) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* ~G1590)) ~G1593)) (G4316 (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G4317 (~G1589) (? (EQ ~G1589 'BRACKET-OPEN) (READ-CONS-SLOT STR) (EQ ~G1589 'SQUARE-BRACKET-OPEN) (COMMON-LISP:CONS 'SQUARE (READ-CONS-SLOT STR)) (EQ ~G1589 '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))))) (G4317 TOKEN))))))) (G4315 *DEFAULT-LISTPROP*)) (COMMON-LISP:LABELS ((G4318 (~G1592) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* *DEFAULT-LISTPROP*)) (COMMON-LISP:LABELS ((G4319 (~G1599) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* ~G1592)) ~G1599)) (G4319 (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G4320 (!) (? ! (COMMON-LISP:LABELS ((G4321 (~G1594) (COMMON-LISP:LABELS ((G4322 (~G1595) (? (NOT (EQ (COMMON-LISP:CAR ~G1594) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1594))) (COMMON-LISP:LABELS ((G4323 (TOKEN) (COMMON-LISP:LABELS ((G4324 (~G1596) (COMMON-LISP:LABELS ((G4325 (PKG) (COMMON-LISP:LABELS ((G4326 (~G1597) (COMMON-LISP:LABELS ((G4327 (SYM) (? (EQ 'DOT TOKEN) (COMMON-LISP:LABELS ((G4328 (X) (COMMON-LISP:LABELS ((G4329 (~G1602) (COMMON-LISP:LABELS ((G4330 (~G1603) (? (NOT (EQ (COMMON-LISP:CAR ~G1602) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1602))) (COMMON-LISP:LABELS ((G4331 (TOKEN) (COMMON-LISP:LABELS ((G4332 (~G1604) (COMMON-LISP:LABELS ((G4333 (PKG) (COMMON-LISP:LABELS ((G4334 (~G1605) (COMMON-LISP:LABELS ((G4335 (SYM) (COMMON-LISP:LABELS ((G4336 (~G1591) (? ~G1591 ~G1591 (ERR "Only one value allowed after dotted cons")))) (G4336 (%READ-CLOSING-BRACKET? TOKEN))) X)) (G4335 (COMMON-LISP:CAR ~G1605))))) (G4334 (COMMON-LISP:LABELS ((G4337 (~G1608) (? ~G1608 ~G1608 (%ERROR "Not enough VALUES.")))) (G4337 (COMMON-LISP:CDR ~G1604))))))) (G4333 (COMMON-LISP:CAR ~G1604))))) (G4332 (COMMON-LISP:LABELS ((G4338 (~G1607) (? ~G1607 ~G1607 (%ERROR "Not enough VALUES.")))) (G4338 (COMMON-LISP:CDR ~G1603))))))) (G4331 (COMMON-LISP:CAR ~G1603))))) (G4330 (COMMON-LISP:CDR ~G1602))))) (G4329 (READ-TOKEN STR))))) (G4328 (READ-EXPR STR))) (F TOKEN PKG SYM)))) (G4327 (COMMON-LISP:CAR ~G1597))))) (G4326 (COMMON-LISP:LABELS ((G4339 (~G1601) (? ~G1601 ~G1601 (%ERROR "Not enough VALUES.")))) (G4339 (COMMON-LISP:CDR ~G1596))))))) (G4325 (COMMON-LISP:CAR ~G1596))))) (G4324 (COMMON-LISP:LABELS ((G4340 (~G1600) (? ~G1600 ~G1600 (%ERROR "Not enough VALUES.")))) (G4340 (COMMON-LISP:CDR ~G1595))))))) (G4323 (COMMON-LISP:CAR ~G1595))))) (G4322 (COMMON-LISP:CDR ~G1594))))) (G4321 !)) (ERR "Missing closing bracket")))) (G4320 (READ-TOKEN STR)))))))) (G4318 *DEFAULT-LISTPROP*))))))) (COMMON-LISP:LABELS ((G4341 (~G1635) (COMMON-LISP:LABELS ((G4342 (~G1636) (? (NOT (EQ (COMMON-LISP:CAR ~G1635) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1635))) (COMMON-LISP:LABELS ((G4343 (TOKEN) (COMMON-LISP:LABELS ((G4344 (~G1637) (COMMON-LISP:LABELS ((G4345 (PKG) (COMMON-LISP:LABELS ((G4346 (~G1638) (COMMON-LISP:LABELS ((G4347 (SYM) (? (EQ TOKEN 'DOT) (COMMON-LISP:CONS 'COMMON-LISP:CONS (READ-CONS STR)) (F TOKEN PKG SYM)))) (G4347 (COMMON-LISP:CAR ~G1638))))) (G4346 (COMMON-LISP:LABELS ((G4348 (~G1654) (? ~G1654 ~G1654 (%ERROR "Not enough VALUES.")))) (G4348 (COMMON-LISP:CDR ~G1637))))))) (G4345 (COMMON-LISP:CAR ~G1637))))) (G4344 (COMMON-LISP:LABELS ((G4349 (~G1653) (? ~G1653 ~G1653 (%ERROR "Not enough VALUES.")))) (G4349 (COMMON-LISP:CDR ~G1636))))))) (G4343 (COMMON-LISP:CAR ~G1636))))) (G4342 (COMMON-LISP:CDR ~G1635))))) (G4341 (READ-TOKEN STR)))))) (G4314 (STREAM-LOCATION-ID LOC))))) (G4313 (STREAM-LOCATION-COLUMN LOC))))) (G4312 (STREAM-LOCATION-LINE LOC))))) (G4311 (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 '~G1590 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 '~G1593 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 '~G1590 COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1593 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 '~G1589 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1589 (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 '~G1589 (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 '~G1589 (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 '~G1592 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 '~G1599 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 '~G1592 COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1599 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 '~G1594 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1595 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 '~G1594 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 '~G1594 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 '~G1596 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 '~G1597 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 '~G1602 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1603 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 '~G1602 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 '~G1602 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 '~G1604 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 '~G1605 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 '~G1591 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1591 (COMMON-LISP:CONS '~G1591 (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 '~G1605 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 '~G1608 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1608 (COMMON-LISP:CONS '~G1608 (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 '~G1604 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 '~G1604 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 '~G1607 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1607 (COMMON-LISP:CONS '~G1607 (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 '~G1603 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 '~G1603 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1602 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 '~G1597 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 '~G1601 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1601 (COMMON-LISP:CONS '~G1601 (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 '~G1596 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 '~G1596 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 '~G1600 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1600 (COMMON-LISP:CONS '~G1600 (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 '~G1595 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 '~G1595 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1594 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 '~G1635 (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-TOKEN (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1636 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1635 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 '~G1635 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 '~G1635 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 '~G1636 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1637 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1636 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 '~G1637 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1638 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1637 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 '~G1638 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 ((G4350 (~G1609) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* *DEFAULT-LISTPROP*)) (COMMON-LISP:LABELS ((G4351 (~G1645) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* ~G1609)) ~G1645)) (G4351 (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G4352 (!) (? (== #\. (PEEK-CHAR STR)) (COMMON-LISP:PROGN (READ-CHAR STR) (COMMON-LISP:LABELS ((G4353 (~G1640) (COMMON-LISP:LABELS ((G4354 (~G1641) (? (NOT (EQ (COMMON-LISP:CAR ~G1640) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1640))) (COMMON-LISP:LABELS ((G4355 (TOKEN) (COMMON-LISP:LABELS ((G4356 (~G1642) (COMMON-LISP:LABELS ((G4357 (PKG) (COMMON-LISP:LABELS ((G4358 (~G1643) (COMMON-LISP:LABELS ((G4359 (SYM) (READ-SLOT-VALUE (COMMON-LISP:LIST ! (LIST-STRING SYM))))) (G4359 (COMMON-LISP:CAR ~G1643))))) (G4358 (COMMON-LISP:LABELS ((G4360 (~G1656) (? ~G1656 ~G1656 (%ERROR "Not enough VALUES.")))) (G4360 (COMMON-LISP:CDR ~G1642))))))) (G4357 (COMMON-LISP:CAR ~G1642))))) (G4356 (COMMON-LISP:LABELS ((G4361 (~G1655) (? ~G1655 ~G1655 (%ERROR "Not enough VALUES.")))) (G4361 (COMMON-LISP:CDR ~G1641))))))) (G4355 (COMMON-LISP:CAR ~G1641))))) (G4354 (COMMON-LISP:CDR ~G1640))))) (G4353 (READ-TOKEN STR)))) !))) (G4352 (READ-CONS STR)))))))) (G4350 *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 '~G1609 (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 '~G1645 (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 '~G1640 (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-TOKEN (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1641 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1640 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 '~G1640 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 '~G1640 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 '~G1641 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1642 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1641 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 '~G1642 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1643 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1642 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 '~G1643 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 '~G1609 COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1645 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 ((G4362 (~G1646) (COMMON-LISP:LABELS ((G4363 (~G1647) (? (NOT (EQ (COMMON-LISP:CAR ~G1646) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1646))) (COMMON-LISP:LABELS ((G4364 (TOKEN) (COMMON-LISP:LABELS ((G4365 (~G1648) (COMMON-LISP:LABELS ((G4366 (PKG) (COMMON-LISP:LABELS ((G4367 (~G1649) (COMMON-LISP:LABELS ((G4368 (SYM) (COMMON-LISP:LABELS ((G4369 (~G1610) (? (EQ ~G1610 COMMON-LISP:NIL) COMMON-LISP:NIL (EQ ~G1610 'EOF) COMMON-LISP:NIL (EQ ~G1610 'BRACKET-OPEN) (READ-CONS-SLOT STR) (EQ ~G1610 'SQUARE-BRACKET-OPEN) (COMMON-LISP:CONS 'SQUARE (READ-CONS-SLOT STR)) (EQ ~G1610 '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))))) (G4369 TOKEN)))) (G4368 (COMMON-LISP:CAR ~G1649))))) (G4367 (COMMON-LISP:LABELS ((G4370 (~G1658) (? ~G1658 ~G1658 (%ERROR "Not enough VALUES.")))) (G4370 (COMMON-LISP:CDR ~G1648))))))) (G4366 (COMMON-LISP:CAR ~G1648))))) (G4365 (COMMON-LISP:LABELS ((G4371 (~G1657) (? ~G1657 ~G1657 (%ERROR "Not enough VALUES.")))) (G4371 (COMMON-LISP:CDR ~G1647))))))) (G4364 (COMMON-LISP:CAR ~G1647))))) (G4363 (COMMON-LISP:CDR ~G1646))))) (G4362 (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 '~G1646 (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-TOKEN (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1647 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1646 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 '~G1646 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 '~G1646 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 '~G1647 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1648 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1647 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 '~G1648 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1649 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1648 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 '~G1649 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 '~G1610 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1610 (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 '~G1610 (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 '~G1610 (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 '~G1610 (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 '~G1610 (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-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 ((G3791 (!) (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 !)))))))) (G3791 (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 ((G3792 (LOC) (COMMON-LISP:LABELS ((G3793 (LINE) (COMMON-LISP:LABELS ((G3794 (COLUMN) (COMMON-LISP:LABELS ((G3795 (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 ((G3796 (~G1536) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* *DEFAULT-LISTPROP*)) (COMMON-LISP:LABELS ((G3797 (~G1539) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* ~G1536)) ~G1539)) (G3797 (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3798 (~G1535) (? (EQ ~G1535 'BRACKET-OPEN) (READ-CONS-SLOT STR) (EQ ~G1535 'SQUARE-BRACKET-OPEN) (COMMON-LISP:CONS 'SQUARE (READ-CONS-SLOT STR)) (EQ ~G1535 '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))))) (G3798 TOKEN))))))) (G3796 *DEFAULT-LISTPROP*)) (COMMON-LISP:LABELS ((G3799 (~G1538) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* *DEFAULT-LISTPROP*)) (COMMON-LISP:LABELS ((G3800 (~G1545) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* ~G1538)) ~G1545)) (G3800 (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3801 (!) (? ! (COMMON-LISP:LABELS ((G3802 (~G1540) (COMMON-LISP:LABELS ((G3803 (~G1541) (? (NOT (EQ (COMMON-LISP:CAR ~G1540) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1540))) (COMMON-LISP:LABELS ((G3804 (TOKEN) (COMMON-LISP:LABELS ((G3805 (~G1542) (COMMON-LISP:LABELS ((G3806 (PKG) (COMMON-LISP:LABELS ((G3807 (~G1543) (COMMON-LISP:LABELS ((G3808 (SYM) (? (EQ 'DOT TOKEN) (COMMON-LISP:LABELS ((G3809 (X) (COMMON-LISP:LABELS ((G3810 (~G1548) (COMMON-LISP:LABELS ((G3811 (~G1549) (? (NOT (EQ (COMMON-LISP:CAR ~G1548) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1548))) (COMMON-LISP:LABELS ((G3812 (TOKEN) (COMMON-LISP:LABELS ((G3813 (~G1550) (COMMON-LISP:LABELS ((G3814 (PKG) (COMMON-LISP:LABELS ((G3815 (~G1551) (COMMON-LISP:LABELS ((G3816 (SYM) (COMMON-LISP:LABELS ((G3817 (~G1537) (? ~G1537 ~G1537 (ERR "Only one value allowed after dotted cons")))) (G3817 (%READ-CLOSING-BRACKET? TOKEN))) X)) (G3816 (COMMON-LISP:CAR ~G1551))))) (G3815 (COMMON-LISP:LABELS ((G3818 (~G1554) (? ~G1554 ~G1554 (%ERROR "Not enough VALUES.")))) (G3818 (COMMON-LISP:CDR ~G1550))))))) (G3814 (COMMON-LISP:CAR ~G1550))))) (G3813 (COMMON-LISP:LABELS ((G3819 (~G1553) (? ~G1553 ~G1553 (%ERROR "Not enough VALUES.")))) (G3819 (COMMON-LISP:CDR ~G1549))))))) (G3812 (COMMON-LISP:CAR ~G1549))))) (G3811 (COMMON-LISP:CDR ~G1548))))) (G3810 (READ-TOKEN STR))))) (G3809 (READ-EXPR STR))) (F TOKEN PKG SYM)))) (G3808 (COMMON-LISP:CAR ~G1543))))) (G3807 (COMMON-LISP:LABELS ((G3820 (~G1547) (? ~G1547 ~G1547 (%ERROR "Not enough VALUES.")))) (G3820 (COMMON-LISP:CDR ~G1542))))))) (G3806 (COMMON-LISP:CAR ~G1542))))) (G3805 (COMMON-LISP:LABELS ((G3821 (~G1546) (? ~G1546 ~G1546 (%ERROR "Not enough VALUES.")))) (G3821 (COMMON-LISP:CDR ~G1541))))))) (G3804 (COMMON-LISP:CAR ~G1541))))) (G3803 (COMMON-LISP:CDR ~G1540))))) (G3802 !)) (ERR "Missing closing bracket")))) (G3801 (READ-TOKEN STR)))))))) (G3799 *DEFAULT-LISTPROP*))))))) (COMMON-LISP:LABELS ((G3822 (~G1581) (COMMON-LISP:LABELS ((G3823 (~G1582) (? (NOT (EQ (COMMON-LISP:CAR ~G1581) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1581))) (COMMON-LISP:LABELS ((G3824 (TOKEN) (COMMON-LISP:LABELS ((G3825 (~G1583) (COMMON-LISP:LABELS ((G3826 (PKG) (COMMON-LISP:LABELS ((G3827 (~G1584) (COMMON-LISP:LABELS ((G3828 (SYM) (? (EQ TOKEN 'DOT) (COMMON-LISP:CONS 'COMMON-LISP:CONS (READ-CONS STR)) (F TOKEN PKG SYM)))) (G3828 (COMMON-LISP:CAR ~G1584))))) (G3827 (COMMON-LISP:LABELS ((G3829 (~G1600) (? ~G1600 ~G1600 (%ERROR "Not enough VALUES.")))) (G3829 (COMMON-LISP:CDR ~G1583))))))) (G3826 (COMMON-LISP:CAR ~G1583))))) (G3825 (COMMON-LISP:LABELS ((G3830 (~G1599) (? ~G1599 ~G1599 (%ERROR "Not enough VALUES.")))) (G3830 (COMMON-LISP:CDR ~G1582))))))) (G3824 (COMMON-LISP:CAR ~G1582))))) (G3823 (COMMON-LISP:CDR ~G1581))))) (G3822 (READ-TOKEN STR)))))) (G3795 (STREAM-LOCATION-ID LOC))))) (G3794 (STREAM-LOCATION-COLUMN LOC))))) (G3793 (STREAM-LOCATION-LINE LOC))))) (G3792 (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 '~G1536 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 '~G1539 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 '~G1536 COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1539 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 '~G1535 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1535 (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 '~G1535 (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 '~G1535 (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 '~G1538 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 '~G1545 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 '~G1538 COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1545 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 '~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 '~G1541 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 '~G1540 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 '~G1540 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 '~G1542 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 '~G1543 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 '~G1548 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1549 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 '~G1548 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 '~G1548 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 '~G1550 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 '~G1551 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 '~G1537 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1537 (COMMON-LISP:CONS '~G1537 (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 '~G1551 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 '~G1554 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1554 (COMMON-LISP:CONS '~G1554 (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 '~G1550 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 '~G1550 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 '~G1553 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1553 (COMMON-LISP:CONS '~G1553 (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 '~G1549 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 '~G1549 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1548 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 '~G1543 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 '~G1547 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1547 (COMMON-LISP:CONS '~G1547 (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 '~G1542 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 '~G1542 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 '~G1546 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1546 (COMMON-LISP:CONS '~G1546 (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 '~G1541 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 '~G1541 COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1540 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 '~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: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 ((G3831 (~G1555) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* *DEFAULT-LISTPROP*)) (COMMON-LISP:LABELS ((G3832 (~G1591) (COMMON-LISP:PROGN (COMMON-LISP:SETQ *DEFAULT-LISTPROP* ~G1555)) ~G1591)) (G3832 (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3833 (!) (? (== #\. (PEEK-CHAR STR)) (COMMON-LISP:PROGN (READ-CHAR STR) (COMMON-LISP:LABELS ((G3834 (~G1586) (COMMON-LISP:LABELS ((G3835 (~G1587) (? (NOT (EQ (COMMON-LISP:CAR ~G1586) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1586))) (COMMON-LISP:LABELS ((G3836 (TOKEN) (COMMON-LISP:LABELS ((G3837 (~G1588) (COMMON-LISP:LABELS ((G3838 (PKG) (COMMON-LISP:LABELS ((G3839 (~G1589) (COMMON-LISP:LABELS ((G3840 (SYM) (READ-SLOT-VALUE (COMMON-LISP:LIST ! (LIST-STRING SYM))))) (G3840 (COMMON-LISP:CAR ~G1589))))) (G3839 (COMMON-LISP:LABELS ((G3841 (~G1602) (? ~G1602 ~G1602 (%ERROR "Not enough VALUES.")))) (G3841 (COMMON-LISP:CDR ~G1588))))))) (G3838 (COMMON-LISP:CAR ~G1588))))) (G3837 (COMMON-LISP:LABELS ((G3842 (~G1601) (? ~G1601 ~G1601 (%ERROR "Not enough VALUES.")))) (G3842 (COMMON-LISP:CDR ~G1587))))))) (G3836 (COMMON-LISP:CAR ~G1587))))) (G3835 (COMMON-LISP:CDR ~G1586))))) (G3834 (READ-TOKEN STR)))) !))) (G3833 (READ-CONS STR)))))))) (G3831 *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 '~G1555 (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 '~G1591 (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 '~G1586 (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-TOKEN (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1587 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1586 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 '~G1586 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 '~G1586 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 '~G1587 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1588 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1587 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 '~G1588 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1589 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1588 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 '~G1589 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 '~G1555 COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1591 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 ((G3843 (~G1592) (COMMON-LISP:LABELS ((G3844 (~G1593) (? (NOT (EQ (COMMON-LISP:CAR ~G1592) 'VALUES)) (COMMON-LISP:PROGN (ERROR "VALUES expected instead of ~A." ~G1592))) (COMMON-LISP:LABELS ((G3845 (TOKEN) (COMMON-LISP:LABELS ((G3846 (~G1594) (COMMON-LISP:LABELS ((G3847 (PKG) (COMMON-LISP:LABELS ((G3848 (~G1595) (COMMON-LISP:LABELS ((G3849 (SYM) (COMMON-LISP:LABELS ((G3850 (~G1556) (? (EQ ~G1556 COMMON-LISP:NIL) COMMON-LISP:NIL (EQ ~G1556 'EOF) COMMON-LISP:NIL (EQ ~G1556 'BRACKET-OPEN) (READ-CONS-SLOT STR) (EQ ~G1556 'SQUARE-BRACKET-OPEN) (COMMON-LISP:CONS 'SQUARE (READ-CONS-SLOT STR)) (EQ ~G1556 '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))))) (G3850 TOKEN)))) (G3849 (COMMON-LISP:CAR ~G1595))))) (G3848 (COMMON-LISP:LABELS ((G3851 (~G1604) (? ~G1604 ~G1604 (%ERROR "Not enough VALUES.")))) (G3851 (COMMON-LISP:CDR ~G1594))))))) (G3847 (COMMON-LISP:CAR ~G1594))))) (G3846 (COMMON-LISP:LABELS ((G3852 (~G1603) (? ~G1603 ~G1603 (%ERROR "Not enough VALUES.")))) (G3852 (COMMON-LISP:CDR ~G1593))))))) (G3845 (COMMON-LISP:CAR ~G1593))))) (G3844 (COMMON-LISP:CDR ~G1592))))) (G3843 (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 '~G1592 (COMMON-LISP:CONS (COMMON-LISP:CONS 'READ-TOKEN (COMMON-LISP:CONS 'STR COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1593 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1592 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 '~G1592 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 '~G1592 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 '~G1593 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1594 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1593 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 '~G1594 COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1595 (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1594 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 '~G1595 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 '~G1556 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS '~G1556 (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 '~G1556 (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 '~G1556 (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 '~G1556 (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 '~G1556 (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 ((G4372 (!) (? (EQUAL X !) X (%EXPAND !)))) (G4372 (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 ((G4373 (~G1661) (COMMON-LISP:LABELS ((G4374 (I) (COMMON-LISP:TAGBODY ~G1659 (? (NOT ~G1661) (COMMON-LISP:GO ~G1660)) (COMMON-LISP:SETQ I (COMMON-LISP:CAR ~G1661)) (%EVAL (%EXPAND I)) (COMMON-LISP:SETQ ~G1661 (COMMON-LISP:CDR ~G1661)) (COMMON-LISP:GO ~G1659) ~G1660 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN))))) (G4374 COMMON-LISP:NIL)))) (G4373 (COMMON-LISP:LABELS ((G4375 (S) (COMMON-LISP:LABELS ((G4376 (~G1662) (CLOSE S) ~G1662)) (G4376 (COMMON-LISP:PROGN (%LOAD-R S)))))) (G4375 (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 '~G1661 (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 '~G1659 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1661 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1660 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 '~G1661 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 '~G1661 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1661 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1659 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1660 (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))
  +(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 ((G3853 (!) (? (EQUAL X !) X (%EXPAND !)))) (G3853 (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 ((G3854 (~G1607) (COMMON-LISP:LABELS ((G3855 (I) (COMMON-LISP:TAGBODY ~G1605 (? (NOT ~G1607) (COMMON-LISP:GO ~G1606)) (COMMON-LISP:SETQ I (COMMON-LISP:CAR ~G1607)) (%EVAL (%EXPAND I)) (COMMON-LISP:SETQ ~G1607 (COMMON-LISP:CDR ~G1607)) (COMMON-LISP:GO ~G1605) ~G1606 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN))))) (G3855 COMMON-LISP:NIL)))) (G3854 (COMMON-LISP:LABELS ((G3856 (S) (COMMON-LISP:LABELS ((G3857 (~G1608) (CLOSE S) ~G1608)) (G3857 (COMMON-LISP:PROGN (%LOAD-R S)))))) (G3856 (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 '~G1607 (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 '~G1605 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1607 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1606 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 '~G1607 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 '~G1607 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1607 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1605 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1606 (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))
  
positive.code: (COMMON-LISP:PROGN (COMMON-LISP:DEFUN NANOTIME COMMON-LISP:NIL 0) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'NANOTIME *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS 0 COMMON-LISP:NIL))))
  (COMMON-LISP:PROGN (COMMON-LISP:DEFUN FUNCTION-BYTECODE (X) X COMMON-LISP:NIL) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'FUNCTION-BYTECODE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS 'X (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)))))
  (%DEFVAR *FUNCTIONALS* COMMON-LISP:NIL)
  (%DEFMACRO FUNCTIONAL (COMMON-LISP:&REST NAMES) (PRINT-DEFINITION (COMMON-LISP:CONS 'FUNCTIONAL NAMES)) (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '*FUNCTIONALS* (COMMON-LISP:CONS (COMMON-LISP:CONS '%NCONC (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS NAMES COMMON-LISP:NIL)) (COMMON-LISP:CONS '*FUNCTIONALS* COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))
  (COMMON-LISP:PROGN (COMMON-LISP:DEFUN FUNCTIONAL? (NAME) (MEMBER NAME *FUNCTIONALS* :TEST #'EQ)) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'FUNCTIONAL? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'NAME COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MEMBER (COMMON-LISP:CONS 'NAME (COMMON-LISP:CONS '*FUNCTIONALS* (COMMON-LISP:CONS ':TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQ COMMON-LISP:NIL)) COMMON-LISP:NIL))))) COMMON-LISP:NIL))))
  (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'IDENTITY (COMMON-LISP:CONS '+ (COMMON-LISP:CONS '- (COMMON-LISP:CONS '* (COMMON-LISP:CONS '/ (COMMON-LISP:CONS 'COMMON-LISP:MOD (COMMON-LISP:CONS 'NUMBER+ (COMMON-LISP:CONS 'NUMBER- (COMMON-LISP:CONS 'NUMBER* (COMMON-LISP:CONS 'NUMBER/ (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 'INTEGER- (COMMON-LISP:CONS 'INTEGER* (COMMON-LISP:CONS 'INTEGER/ (COMMON-LISP:CONS 'CHARACTER+ (COMMON-LISP:CONS 'CHARACTER- (COMMON-LISP:CONS 'COMMON-LISP:LOGXOR (COMMON-LISP:CONS 'NUMBER? (COMMON-LISP:CONS '== (COMMON-LISP:CONS '< (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'NUMBER== (COMMON-LISP:CONS 'NUMBER< (COMMON-LISP:CONS 'NUMBER> (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'INTEGER< (COMMON-LISP:CONS 'INTEGER> (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS 'CHARACTER< (COMMON-LISP:CONS 'CHARACTER> (COMMON-LISP:CONS 'BIT-OR (COMMON-LISP:CONS 'COMMON-LISP:BIT-AND (COMMON-LISP:CONS '<< (COMMON-LISP:CONS '>> (COMMON-LISP:CONS 'CODE-CHAR (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS 'CHARACTER? (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS 'EQL (COMMON-LISP:CONS 'MAKE-SYMBOL (COMMON-LISP:CONS 'COMMON-LISP:MAKE-PACKAGE (COMMON-LISP:CONS 'COMMON-LISP:ATOM (COMMON-LISP:CONS 'SYMBOL-VALUE (COMMON-LISP:CONS '%TYPE (COMMON-LISP:CONS '%%ID (COMMON-LISP:CONS '%MAKE-PTR (COMMON-LISP:CONS 'SYMBOL-FUNCTION (COMMON-LISP:CONS 'SYMBOL-PACKAGE (COMMON-LISP:CONS 'FUNCTION-NATIVE (COMMON-LISP:CONS 'SYMBOL? (COMMON-LISP:CONS 'FUNCTION? (COMMON-LISP:CONS 'BUILTIN? (COMMON-LISP:CONS 'MACRO? (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LIST (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'CONS? (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'STRING? (COMMON-LISP:CONS 'COMMON-LISP:MAKE-STRING (COMMON-LISP:CONS 'STRING== (COMMON-LISP:CONS 'STRING-CONCAT (COMMON-LISP:CONS 'STRING (COMMON-LISP:CONS 'SYMBOL-NAME (COMMON-LISP:CONS 'LIST-STRING (COMMON-LISP:CONS 'MAKE-ARRAY (COMMON-LISP:CONS 'ARRAY? (COMMON-LISP:CONS 'COMMON-LISP:AREF (COMMON-LISP:CONS 'SLOT-VALUE (COMMON-LISP:CONS '%SLOT-VALUE (COMMON-LISP:CONS 'COMMON-LISP:LIST (COMMON-LISP:CONS 'IDENTITY (COMMON-LISP:CONS 'COMMON-LISP:LAST (COMMON-LISP:CONS 'COMMON-LISP:COPY-LIST (COMMON-LISP:CONS 'INTEGER? (COMMON-LISP:CONS 'CHARACTER? COMMON-LISP:NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) *FUNCTIONALS*)))
  (%DEFVAR *DEFINITION-PRINTER* #'COMMON-LISP:PRINT)
  (COMMON-LISP:PROGN (COMMON-LISP:DEFUN PRINT-DEFINITION (X) (? *PRINT-DEFINITIONS?* (COMMON-LISP:APPLY *DEFINITION-PRINTER* (COMMON-LISP:LIST X)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'PRINT-DEFINITION *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '*PRINT-DEFINITIONS?* (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:APPLY (COMMON-LISP:CONS '*DEFINITION-PRINTER* (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LIST (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))))
  (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %QUASIQUOTE-EXPAND (X) (? (COMMON-LISP:ATOM X) X (COMMON-LISP:ATOM (COMMON-LISP:CAR X)) (COMMON-LISP:CONS (COMMON-LISP:CAR X) (%QUASIQUOTE-EXPAND (COMMON-LISP:CDR X))) (EQ (COMMON-LISP:CAR (COMMON-LISP:CAR X)) 'COMMON-LISP:QUOTE) (COMMON-LISP:CONS (COMMON-LISP:CAR X) (%QUASIQUOTE-EXPAND (COMMON-LISP:CDR X))) (EQ (COMMON-LISP:CAR (COMMON-LISP:CAR X)) 'BACKQUOTE) (COMMON-LISP:CONS (COMMON-LISP:CAR X) (%QUASIQUOTE-EXPAND (COMMON-LISP:CDR X))) (EQ (COMMON-LISP:CAR (COMMON-LISP:CAR X)) 'QUASIQUOTE) (COMMON-LISP:CONS (EVAL (MACROEXPAND (COMMON-LISP:CAR (COMMON-LISP:CDR (COMMON-LISP:CAR X))))) (%QUASIQUOTE-EXPAND (COMMON-LISP:CDR X))) (EQ (COMMON-LISP:CAR (COMMON-LISP:CAR X)) 'QUASIQUOTE-SPLICE) (APPEND (EVAL (MACROEXPAND (COMMON-LISP:CAR (COMMON-LISP:CDR (COMMON-LISP:CAR X))))) (%QUASIQUOTE-EXPAND (COMMON-LISP:CDR X))) (COMMON-LISP:CONS (%QUASIQUOTE-EXPAND (COMMON-LISP:CAR X)) (%QUASIQUOTE-EXPAND (COMMON-LISP:CDR X))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%QUASIQUOTE-EXPAND *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ATOM (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ATOM (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:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%QUASIQUOTE-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 (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (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:QUOTE (COMMON-LISP:CONS 'COMMON-LISP:QUOTE 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:CONS (COMMON-LISP:CONS '%QUASIQUOTE-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 (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (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:QUOTE (COMMON-LISP:CONS 'BACKQUOTE 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:CONS (COMMON-LISP:CONS '%QUASIQUOTE-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 (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (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:QUOTE (COMMON-LISP:CONS 'QUASIQUOTE COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'EVAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'MACROEXPAND (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (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 '%QUASIQUOTE-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 (COMMON-LISP:CONS 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (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:QUOTE (COMMON-LISP:CONS 'QUASIQUOTE-SPLICE COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'APPEND (COMMON-LISP:CONS (COMMON-LISP:CONS 'EVAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'MACROEXPAND (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (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 '%QUASIQUOTE-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 (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '%QUASIQUOTE-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 '%QUASIQUOTE-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:NIL)))))))))))))) COMMON-LISP:NIL))))
  (COMMON-LISP:PROGN (COMMON-LISP:DEFUN QUASIQUOTE-EXPAND (X) (COMMON-LISP:CAR (%QUASIQUOTE-EXPAND (COMMON-LISP:LIST X)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'QUASIQUOTE-EXPAND *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS (COMMON-LISP:CONS '%QUASIQUOTE-EXPAND (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LIST (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))
  (COMMON-LISP:SETQ *QUASIQUOTEEXPAND-HOOK* #'QUASIQUOTE-EXPAND)
  (COMMON-LISP:PROGN (COMMON-LISP:DEFUN IDENTITY (X) X) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'IDENTITY *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS 'X COMMON-LISP:NIL))))
  (COMMON-LISP:PROGN (COMMON-LISP:DEFUN + (COMMON-LISP:&REST X) (COMMON-LISP:LABELS ((G4122 (A) (? A (COMMON-LISP:APPLY (? (CONS? A) #'APPEND (STRING? A) #'STRING-CONCAT #'NUMBER+) X) (? (COMMON-LISP:CDR X) (COMMON-LISP:APPLY #'+ (COMMON-LISP:CDR X)))))) (G4122 (COMMON-LISP:CAR X)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'+ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (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 'A COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'A (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:APPLY (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'CONS? (COMMON-LISP:CONS 'A COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'APPEND COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING? (COMMON-LISP:CONS 'A COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'STRING-CONCAT COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'NUMBER+ COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) (COMMON-LISP:CONS 'X 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:APPLY (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (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: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:PROGN (COMMON-LISP:DEFUN - (COMMON-LISP:&REST X) (COMMON-LISP:APPLY #'NUMBER- X)) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'- *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:APPLY (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'NUMBER- COMMON-LISP:NIL)) (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUN (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'ARGS COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN FUNCALL (FUN COMMON-LISP:&REST ARGS) (COMMON-LISP:BLOCK FUNCALL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:APPLY FUN ARGS)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'FUNCALL *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUN (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'ARGS COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:APPLY (COMMON-LISP:CONS 'FUN (COMMON-LISP:CONS 'ARGS COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'FUNCALL))
  (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'CAAR (COMMON-LISP:CONS 'CADR (COMMON-LISP:CONS 'CDAR (COMMON-LISP:CONS 'CDDR (COMMON-LISP:CONS 'CADAR (COMMON-LISP:CONS 'CDDAR (COMMON-LISP:CONS 'CAADAR (COMMON-LISP:CONS 'CADDR (COMMON-LISP:CONS 'CAADR (COMMON-LISP:CONS 'CDDDR (COMMON-LISP:CONS 'CDADAR (COMMON-LISP:CONS 'CAADDR (COMMON-LISP:CONS 'CADDAR (COMMON-LISP:CONS 'CDDDAR (COMMON-LISP:CONS 'CDDDDR (COMMON-LISP:CONS 'CADADR (COMMON-LISP:CONS 'CADADDR (COMMON-LISP:CONS 'CADADAR (COMMON-LISP:CONS 'CDDADAR COMMON-LISP:NIL))))))))))))))))))) *FUNCTIONALS*)))
  (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CAAR (LST) (COMMON-LISP:CAR (COMMON-LISP:CAR LST))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CAAR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LST COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))
  (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CADR (LST) (COMMON-LISP:CAR (COMMON-LISP:CDR LST))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CADR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LST COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))
  (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CDAR (LST) (COMMON-LISP:CDR (COMMON-LISP:CAR LST))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CDAR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LST COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))
  
negative.code: COMMON-LISP:NIL
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%NCONC-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LSTS COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %NCONC-0 (LSTS) (COMMON-LISP:BLOCK %NCONC-0 (COMMON-LISP:BLOCK COMMON-LISP:NIL (? LSTS (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3618 (!) (? ! (COMMON-LISP:PROGN (COMMON-LISP:RPLACD (COMMON-LISP:LAST !) (%NCONC-0 (COMMON-LISP:CDR LSTS))) !) (%NCONC-0 (COMMON-LISP:CDR LSTS))))) (G3618 (COMMON-LISP:CAR LSTS)))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%NCONC-0 *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LSTS COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%NCONC-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 'LSTS (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 'COMMON-LISP:CAR (COMMON-LISP:CONS 'LSTS 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:RPLACD (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LAST (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%NCONC-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'LSTS COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '%!? (COMMON-LISP:CONS (COMMON-LISP:CONS '%NCONC-0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'LSTS 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 '%NCONC-0))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'NCONC (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'LSTS COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN NCONC (COMMON-LISP:&REST LSTS) (COMMON-LISP:BLOCK NCONC (COMMON-LISP:BLOCK COMMON-LISP:NIL (%NCONC-0 LSTS)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'NCONC *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'LSTS COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'NCONC (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '%NCONC-0 (COMMON-LISP:CONS 'LSTS COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'NCONC))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (%DEFMACRO NCONC! (PLACE COMMON-LISP:&REST LSTS) (COMMON-LISP:BLOCK NCONC! (COMMON-LISP:CONS '= (COMMON-LISP:CONS PLACE (COMMON-LISP:CONS (COMMON-LISP:CONS 'NCONC (COMMON-LISP:CONS PLACE (APPEND LSTS COMMON-LISP:NIL))) COMMON-LISP:NIL))))))
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (%DEFMACRO APPEND! (PLACE COMMON-LISP:&REST ARGS) (COMMON-LISP:BLOCK APPEND! (COMMON-LISP:CONS '= (COMMON-LISP:CONS PLACE (COMMON-LISP:CONS (COMMON-LISP:CONS 'APPEND (COMMON-LISP:CONS PLACE (APPEND ARGS COMMON-LISP:NIL))) COMMON-LISP:NIL))))))
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  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 ((G3621 (~G1437) (? ~G1437 ~G1437 X))) (G3621 (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 '~G1437 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1437 (COMMON-LISP:CONS '~G1437 (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 ((G3622 (~G1438) (? (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)))) ~G1438)) (G3622 (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 '~G1438 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 '~G1438 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
  (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS '++ (COMMON-LISP:CONS '-- (COMMON-LISP:CONS 'INTEGER++ (COMMON-LISP:CONS 'INTEGER-- COMMON-LISP:NIL)))) *FUNCTIONALS*))
  COMMON-LISP:NIL
  (COMMON-LISP:PROGN (COMMON-LISP:DEFUN ++ (X) (NUMBER+ X 1)) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'++ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUMBER+ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 1 COMMON-LISP:NIL))) COMMON-LISP:NIL))))
  (COMMON-LISP:PROGN (COMMON-LISP:DEFUN -- (X) (NUMBER- X 1)) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'-- *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUMBER- (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 1 COMMON-LISP:NIL))) COMMON-LISP:NIL))))
  