anchor.diff:  (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CADADDR (LST) (CADR (CADDR LST))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CADADDR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LST COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CADR (COMMON-LISP:CONS (COMMON-LISP:CONS 'CADDR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))
   (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CADADAR (LST) (CADR (CADR (COMMON-LISP:CAR LST)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CADADAR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LST COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CADR (COMMON-LISP:CONS (COMMON-LISP:CONS 'CADR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))
   (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CDDADAR (LST) (CDDR (CADR (COMMON-LISP:CAR LST)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CDDADAR *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LST COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CDDR (COMMON-LISP:CONS (COMMON-LISP:CONS 'CADR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))
  -(COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'EQUAL COMMON-LISP:NIL) *FUNCTIONALS*)))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'EQUAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN EQUAL (X Y) (COMMON-LISP:BLOCK EQUAL (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (COMMON-LISP:LABELS ((G4123 (~G1477) (? ~G1477 ~G1477 (COMMON-LISP:ATOM Y)))) (G4123 (COMMON-LISP:ATOM X))) (EQL X Y) (EQUAL (COMMON-LISP:CAR X) (COMMON-LISP:CAR Y)) (EQUAL (COMMON-LISP:CDR X) (COMMON-LISP:CDR Y)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'EQUAL *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'EQUAL (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 '~G1477 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1477 (COMMON-LISP:CONS '~G1477 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ATOM (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ATOM (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQL (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQUAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQUAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'Y 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 'EQUAL))
  -COMMON-LISP:NIL
  -COMMON-LISP:NIL
  -(COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS '>= (COMMON-LISP:CONS '<= (COMMON-LISP:CONS 'CHARACTER>= (COMMON-LISP:CONS 'CHARACTER<= (COMMON-LISP:CONS 'INTEGER>= (COMMON-LISP:CONS 'INTEGER<= (COMMON-LISP:CONS 'NUMBER>= (COMMON-LISP:CONS 'NUMBER<= COMMON-LISP:NIL)))))))) *FUNCTIONALS*)))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '>= (COMMON-LISP:CONS (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN >= (N COMMON-LISP:&REST X) (COMMON-LISP:BLOCK >= (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4124 (~G1482) (COMMON-LISP:LABELS ((G4125 (I) (COMMON-LISP:TAGBODY ~G1480 (? (NOT ~G1482) (COMMON-LISP:GO ~G1481)) (COMMON-LISP:SETQ I (COMMON-LISP:CAR ~G1482)) (COMMON-LISP:LABELS ((G4126 (~G1478) (? ~G1478 ~G1478 (COMMON-LISP:LABELS ((G4127 (~G1479) (? ~G1479 ~G1479 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G4127 (> N I)))))) (G4126 (== N I))) (COMMON-LISP:SETQ N I) (COMMON-LISP:SETQ ~G1482 (COMMON-LISP:CDR ~G1482)) (COMMON-LISP:GO ~G1480) ~G1481 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G4125 COMMON-LISP:NIL)))) (G4124 X)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'>= *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '>= (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 '~G1482 (COMMON-LISP:CONS 'X (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 '~G1480 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1482 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1481 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 '~G1482 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 '~G1478 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1478 (COMMON-LISP:CONS '~G1478 (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1479 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1479 (COMMON-LISP:CONS '~G1479 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1482 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1482 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1480 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1481 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '>=))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '<= (COMMON-LISP:CONS (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN <= (N COMMON-LISP:&REST X) (COMMON-LISP:BLOCK <= (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4128 (~G1487) (COMMON-LISP:LABELS ((G4129 (I) (COMMON-LISP:TAGBODY ~G1485 (? (NOT ~G1487) (COMMON-LISP:GO ~G1486)) (COMMON-LISP:SETQ I (COMMON-LISP:CAR ~G1487)) (COMMON-LISP:LABELS ((G4130 (~G1483) (? ~G1483 ~G1483 (COMMON-LISP:LABELS ((G4131 (~G1484) (? ~G1484 ~G1484 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G4131 (< N I)))))) (G4130 (== N I))) (COMMON-LISP:SETQ N I) (COMMON-LISP:SETQ ~G1487 (COMMON-LISP:CDR ~G1487)) (COMMON-LISP:GO ~G1485) ~G1486 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G4129 COMMON-LISP:NIL)))) (G4128 X)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'<= *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '<= (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 '~G1487 (COMMON-LISP:CONS 'X (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 '~G1485 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1487 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1486 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 '~G1487 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 '~G1483 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1483 (COMMON-LISP:CONS '~G1483 (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1484 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1484 (COMMON-LISP:CONS '~G1484 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1487 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1487 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1485 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1486 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '<=))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'CHARACTER>= (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CHARACTER>= (X Y) (COMMON-LISP:BLOCK CHARACTER>= (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4132 (~G1488) (? ~G1488 ~G1488 (CHARACTER> X Y)))) (G4132 (CHARACTER== X Y)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CHARACTER>= *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'CHARACTER>= (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 '~G1488 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1488 (COMMON-LISP:CONS '~G1488 (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER> (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'CHARACTER>=))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'CHARACTER<= (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CHARACTER<= (X Y) (COMMON-LISP:BLOCK CHARACTER<= (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4133 (~G1489) (? ~G1489 ~G1489 (CHARACTER< X Y)))) (G4133 (CHARACTER== X Y)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CHARACTER<= *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'CHARACTER<= (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 '~G1489 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1489 (COMMON-LISP:CONS '~G1489 (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER< (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'CHARACTER<=))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'INTEGER>= (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN INTEGER>= (X Y) (COMMON-LISP:BLOCK INTEGER>= (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4134 (~G1490) (? ~G1490 ~G1490 (INTEGER> X Y)))) (G4134 (INTEGER== X Y)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'INTEGER>= *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '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:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1490 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1490 (COMMON-LISP:CONS '~G1490 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER> (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'INTEGER>=))
  -(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'INTEGER<= (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN INTEGER<= (X Y) (COMMON-LISP:BLOCK INTEGER<= (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4135 (~G1491) (? ~G1491 ~G1491 (INTEGER< X Y)))) (G4135 (INTEGER== X Y)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'INTEGER<= *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '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:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1491 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1491 (COMMON-LISP:CONS '~G1491 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER< (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'INTEGER<=))
  -(COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'ZERO? (COMMON-LISP:CONS 'EVEN? (COMMON-LISP:CONS 'ODD? (COMMON-LISP:CONS 'END? (COMMON-LISP:CONS 'KEYWORD? COMMON-LISP:NIL))))) *FUNCTIONALS*)))
  +(COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'EQUAL COMMON-LISP:NIL) *FUNCTIONALS*))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'EQUAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN EQUAL (X Y) (COMMON-LISP:BLOCK EQUAL (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (COMMON-LISP:LABELS ((G3605 (~G1422) (? ~G1422 ~G1422 (COMMON-LISP:ATOM Y)))) (G3605 (COMMON-LISP:ATOM X))) (EQL X Y) (EQUAL (COMMON-LISP:CAR X) (COMMON-LISP:CAR Y)) (EQUAL (COMMON-LISP:CDR X) (COMMON-LISP:CDR Y)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'EQUAL *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'EQUAL (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 '~G1422 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1422 (COMMON-LISP:CONS '~G1422 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ATOM (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ATOM (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQL (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQUAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'EQUAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'Y 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 'EQUAL))
  +COMMON-LISP:NIL
  +COMMON-LISP:NIL
  +(COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS '>= (COMMON-LISP:CONS '<= (COMMON-LISP:CONS 'CHARACTER>= (COMMON-LISP:CONS 'CHARACTER<= (COMMON-LISP:CONS 'INTEGER>= (COMMON-LISP:CONS 'INTEGER<= (COMMON-LISP:CONS 'NUMBER>= (COMMON-LISP:CONS 'NUMBER<= COMMON-LISP:NIL)))))))) *FUNCTIONALS*))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '>= (COMMON-LISP:CONS (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN >= (N COMMON-LISP:&REST X) (COMMON-LISP:BLOCK >= (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3606 (~G1427) (COMMON-LISP:LABELS ((G3607 (I) (COMMON-LISP:TAGBODY ~G1425 (? (NOT ~G1427) (COMMON-LISP:GO ~G1426)) (COMMON-LISP:SETQ I (COMMON-LISP:CAR ~G1427)) (COMMON-LISP:LABELS ((G3608 (~G1423) (? ~G1423 ~G1423 (COMMON-LISP:LABELS ((G3609 (~G1424) (? ~G1424 ~G1424 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G3609 (> N I)))))) (G3608 (== N I))) (COMMON-LISP:SETQ N I) (COMMON-LISP:SETQ ~G1427 (COMMON-LISP:CDR ~G1427)) (COMMON-LISP:GO ~G1425) ~G1426 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G3607 COMMON-LISP:NIL)))) (G3606 X)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'>= *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '>= (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 '~G1427 (COMMON-LISP:CONS 'X (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 '~G1425 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1427 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1426 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 '~G1427 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 '~G1423 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1423 (COMMON-LISP:CONS '~G1423 (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1424 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1424 (COMMON-LISP:CONS '~G1424 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1427 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1427 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1425 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1426 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '>=))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '<= (COMMON-LISP:CONS (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN <= (N COMMON-LISP:&REST X) (COMMON-LISP:BLOCK <= (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3610 (~G1432) (COMMON-LISP:LABELS ((G3611 (I) (COMMON-LISP:TAGBODY ~G1430 (? (NOT ~G1432) (COMMON-LISP:GO ~G1431)) (COMMON-LISP:SETQ I (COMMON-LISP:CAR ~G1432)) (COMMON-LISP:LABELS ((G3612 (~G1428) (? ~G1428 ~G1428 (COMMON-LISP:LABELS ((G3613 (~G1429) (? ~G1429 ~G1429 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G3613 (< N I)))))) (G3612 (== N I))) (COMMON-LISP:SETQ N I) (COMMON-LISP:SETQ ~G1432 (COMMON-LISP:CDR ~G1432)) (COMMON-LISP:GO ~G1430) ~G1431 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G3611 COMMON-LISP:NIL)))) (G3610 X)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'<= *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '<= (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 '~G1432 (COMMON-LISP:CONS 'X (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 '~G1430 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1432 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1431 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 '~G1432 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 '~G1428 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1428 (COMMON-LISP:CONS '~G1428 (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1429 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1429 (COMMON-LISP:CONS '~G1429 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'N (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1432 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1432 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1430 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1431 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '<=))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'CHARACTER>= (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CHARACTER>= (X Y) (COMMON-LISP:BLOCK CHARACTER>= (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3614 (~G1433) (? ~G1433 ~G1433 (CHARACTER> X Y)))) (G3614 (CHARACTER== X Y)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CHARACTER>= *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'CHARACTER>= (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 '~G1433 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1433 (COMMON-LISP:CONS '~G1433 (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER> (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'CHARACTER>=))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'CHARACTER<= (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CHARACTER<= (X Y) (COMMON-LISP:BLOCK CHARACTER<= (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3615 (~G1434) (? ~G1434 ~G1434 (CHARACTER< X Y)))) (G3615 (CHARACTER== X Y)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CHARACTER<= *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'CHARACTER<= (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 '~G1434 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1434 (COMMON-LISP:CONS '~G1434 (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER< (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'CHARACTER<=))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'INTEGER>= (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN INTEGER>= (X Y) (COMMON-LISP:BLOCK INTEGER>= (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3616 (~G1435) (? ~G1435 ~G1435 (INTEGER> X Y)))) (G3616 (INTEGER== X Y)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'INTEGER>= *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '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:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1435 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1435 (COMMON-LISP:CONS '~G1435 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER> (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'INTEGER>=))
  +(COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'INTEGER<= (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN INTEGER<= (X Y) (COMMON-LISP:BLOCK INTEGER<= (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3617 (~G1436) (? ~G1436 ~G1436 (INTEGER< X Y)))) (G3617 (INTEGER== X Y)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'INTEGER<= *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '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:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1436 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1436 (COMMON-LISP:CONS '~G1436 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER< (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'Y COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'INTEGER<=))
  +(COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'ZERO? (COMMON-LISP:CONS 'EVEN? (COMMON-LISP:CONS 'ODD? (COMMON-LISP:CONS 'END? (COMMON-LISP:CONS 'KEYWORD? COMMON-LISP:NIL))))) *FUNCTIONALS*))
   COMMON-LISP:NIL
   (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'ZERO? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN ZERO? (X) (COMMON-LISP:BLOCK ZERO? (COMMON-LISP:BLOCK COMMON-LISP:NIL (== 0 X)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'ZERO? *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 'ZERO? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 0 (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'ZERO?))
   (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'EVEN? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN EVEN? (X) (COMMON-LISP:BLOCK EVEN? (COMMON-LISP:BLOCK COMMON-LISP:NIL (== 0 (COMMON-LISP:MOD X 2))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'EVEN? *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 'EVEN? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:MOD (COMMON-LISP:CONS 'X (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 'EVEN?))
  
positive.code: (COMMON-LISP:PROGN (COMMON-LISP:DEFUN INTEGER-- (X) (INTEGER- X 1)) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'INTEGER-- *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER- (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 1 COMMON-LISP:NIL))) COMMON-LISP:NIL))))
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (%DEFMACRO FN (COMMON-LISP:&REST BODY) (COMMON-LISP:BLOCK FN (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '_ COMMON-LISP:NIL) (? (? (CONS? (COMMON-LISP:CAR BODY)) (NOT (EQ '%SLOT-VALUE (COMMON-LISP:CAR (COMMON-LISP:CAR BODY))))) BODY (COMMON-LISP:LIST BODY))) COMMON-LISP:NIL)))))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (%DEFMACRO SQUARE (COMMON-LISP:&REST BODY) (COMMON-LISP:BLOCK SQUARE (COMMON-LISP:CONS 'FN BODY))))
  (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'BUTLAST COMMON-LISP:NIL) *FUNCTIONALS*)))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'BUTLAST (COMMON-LISP:CONS (COMMON-LISP:CONS 'PLIST COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN BUTLAST (PLIST) (COMMON-LISP:BLOCK BUTLAST (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (COMMON-LISP:CDR PLIST) (COMMON-LISP:CONS (COMMON-LISP:CAR PLIST) (BUTLAST (COMMON-LISP:CDR PLIST))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'BUTLAST *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PLIST COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'BUTLAST (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:CDR (COMMON-LISP:CONS 'PLIST COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'PLIST COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'BUTLAST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'PLIST 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 'BUTLAST))
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'VALUES (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'VALS COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN VALUES (COMMON-LISP:&REST VALS) (COMMON-LISP:BLOCK VALUES (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:CONS 'VALUES VALS)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'VALUES *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (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 'VALUES (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:QUOTE (COMMON-LISP:CONS 'VALUES COMMON-LISP:NIL)) (COMMON-LISP:CONS 'VALS COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'VALUES))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'VALUES? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN VALUES? (X) (COMMON-LISP:BLOCK VALUES? (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (CONS? X) (EQ 'VALUES (COMMON-LISP:CAR X)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'VALUES? *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 'VALUES? (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 'EQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:QUOTE (COMMON-LISP:CONS 'VALUES 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:RETURN-FROM COMMON-LISP:NIL 'VALUES?))
  (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'RANGE? COMMON-LISP:NIL) *FUNCTIONALS*)))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'RANGE? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'BOTTOM (COMMON-LISP:CONS 'TOP COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN RANGE? (X BOTTOM TOP) (COMMON-LISP:BLOCK RANGE? (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (>= X BOTTOM) (<= X TOP))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'RANGE? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'BOTTOM (COMMON-LISP:CONS 'TOP COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'RANGE? (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 'BOTTOM COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '<= (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'TOP COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'RANGE?))
  (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'CHAR-UPCASE (COMMON-LISP:CONS 'CHAR-DOWNCASE (COMMON-LISP:CONS 'COMMON-LISP:CHAR-CODE (COMMON-LISP:CONS 'CODE-CHAR COMMON-LISP:NIL)))) *FUNCTIONALS*)))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'CHAR-UPCASE (COMMON-LISP:CONS (COMMON-LISP:CONS 'C COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CHAR-UPCASE (C) (COMMON-LISP:BLOCK CHAR-UPCASE (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (LOWER-CASE? C) (CHARACTER+ C (CHARACTER- #\A #\a)) C)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CHAR-UPCASE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'C COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'CHAR-UPCASE (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 'LOWER-CASE? (COMMON-LISP:CONS 'C COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER+ (COMMON-LISP:CONS 'C (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER- (COMMON-LISP:CONS #\A (COMMON-LISP:CONS #\a COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS 'C COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'CHAR-UPCASE))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'CHAR-DOWNCASE (COMMON-LISP:CONS (COMMON-LISP:CONS 'C COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CHAR-DOWNCASE (C) (COMMON-LISP:BLOCK CHAR-DOWNCASE (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (UPPER-CASE? C) (CHARACTER+ C (CHARACTER- #\a #\A)) C)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CHAR-DOWNCASE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'C COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'CHAR-DOWNCASE (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 'UPPER-CASE? (COMMON-LISP:CONS 'C COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER+ (COMMON-LISP:CONS 'C (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER- (COMMON-LISP:CONS #\a (COMMON-LISP:CONS #\A COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS 'C COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'CHAR-DOWNCASE))
  (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'LOWER-CASE? (COMMON-LISP:CONS 'UPPER-CASE? (COMMON-LISP:CONS 'ALPHA-CHAR? (COMMON-LISP:CONS 'DIGIT-CHAR? (COMMON-LISP:CONS 'ALPHANUMERIC? COMMON-LISP:NIL))))) *FUNCTIONALS*)))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (%DEFMACRO DEF-REST-PREDICATE (NAME ITER ARGS TEST-EXPR) (COMMON-LISP:BLOCK DEF-REST-PREDICATE (COMMON-LISP:LABELS ((G4141 (X) (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS NAME (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS X ARGS)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DOLIST (COMMON-LISP:CONS (COMMON-LISP:CONS ITER (COMMON-LISP:CONS X (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '|\|| (COMMON-LISP:CONS TEST-EXPR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))))) (G4141 (GENSYM))))))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'LOWER-CASE? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1494 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN LOWER-CASE? (COMMON-LISP:&REST ~G1494) (COMMON-LISP:BLOCK LOWER-CASE? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4142 (~G1507) (COMMON-LISP:LABELS ((G4143 (C) (COMMON-LISP:TAGBODY ~G1505 (? (NOT ~G1507) (COMMON-LISP:GO ~G1506)) (COMMON-LISP:SETQ C (COMMON-LISP:CAR ~G1507)) (COMMON-LISP:LABELS ((G4144 (~G1504) (? ~G1504 ~G1504 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G4144 (RANGE? C #\a #\z))) (COMMON-LISP:SETQ ~G1507 (COMMON-LISP:CDR ~G1507)) (COMMON-LISP:GO ~G1505) ~G1506 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G4143 COMMON-LISP:NIL)))) (G4142 ~G1494)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'LOWER-CASE? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1494 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'LOWER-CASE? (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 '~G1507 (COMMON-LISP:CONS '~G1494 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'C (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1505 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1507 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1506 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'C (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1507 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 '~G1504 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1504 (COMMON-LISP:CONS '~G1504 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'RANGE? (COMMON-LISP:CONS 'C (COMMON-LISP:CONS #\a (COMMON-LISP:CONS #\z COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1507 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1507 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1505 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1506 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'LOWER-CASE?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'UPPER-CASE? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1495 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN UPPER-CASE? (COMMON-LISP:&REST ~G1495) (COMMON-LISP:BLOCK UPPER-CASE? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4145 (~G1511) (COMMON-LISP:LABELS ((G4146 (C) (COMMON-LISP:TAGBODY ~G1509 (? (NOT ~G1511) (COMMON-LISP:GO ~G1510)) (COMMON-LISP:SETQ C (COMMON-LISP:CAR ~G1511)) (COMMON-LISP:LABELS ((G4147 (~G1508) (? ~G1508 ~G1508 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G4147 (RANGE? C #\A #\Z))) (COMMON-LISP:SETQ ~G1511 (COMMON-LISP:CDR ~G1511)) (COMMON-LISP:GO ~G1509) ~G1510 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G4146 COMMON-LISP:NIL)))) (G4145 ~G1495)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'UPPER-CASE? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1495 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'UPPER-CASE? (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 '~G1511 (COMMON-LISP:CONS '~G1495 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'C (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1509 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1511 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1510 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'C (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1511 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 '~G1508 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:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'RANGE? (COMMON-LISP:CONS 'C (COMMON-LISP:CONS #\A (COMMON-LISP:CONS #\Z COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1511 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1511 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1509 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1510 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'UPPER-CASE?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'ALPHA-CHAR? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1497 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN ALPHA-CHAR? (COMMON-LISP:&REST ~G1497) (COMMON-LISP:BLOCK ALPHA-CHAR? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4148 (~G1515) (COMMON-LISP:LABELS ((G4149 (C) (COMMON-LISP:TAGBODY ~G1513 (? (NOT ~G1515) (COMMON-LISP:GO ~G1514)) (COMMON-LISP:SETQ C (COMMON-LISP:CAR ~G1515)) (COMMON-LISP:LABELS ((G4150 (~G1512) (? ~G1512 ~G1512 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G4150 (COMMON-LISP:LABELS ((G4151 (~G1496) (? ~G1496 ~G1496 (UPPER-CASE? C)))) (G4151 (LOWER-CASE? C))))) (COMMON-LISP:SETQ ~G1515 (COMMON-LISP:CDR ~G1515)) (COMMON-LISP:GO ~G1513) ~G1514 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G4149 COMMON-LISP:NIL)))) (G4148 ~G1497)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'ALPHA-CHAR? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1497 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'ALPHA-CHAR? (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 '~G1515 (COMMON-LISP:CONS '~G1497 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'C (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1513 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1515 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1514 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'C (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1515 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 '~G1512 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1512 (COMMON-LISP:CONS '~G1512 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP: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 '? (COMMON-LISP:CONS '~G1496 (COMMON-LISP:CONS '~G1496 (COMMON-LISP:CONS (COMMON-LISP:CONS 'UPPER-CASE? (COMMON-LISP:CONS 'C COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LOWER-CASE? (COMMON-LISP:CONS 'C COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1515 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1515 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1513 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1514 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'ALPHA-CHAR?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'DECIMAL-DIGIT? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN DECIMAL-DIGIT? (X) (COMMON-LISP:BLOCK DECIMAL-DIGIT? (COMMON-LISP:BLOCK COMMON-LISP:NIL (RANGE? X #\0 #\9)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'DECIMAL-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 'DECIMAL-DIGIT? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'RANGE? (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\0 (COMMON-LISP:CONS #\9 COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'DECIMAL-DIGIT?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%NONDECIMAL-DIGIT? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'BASE COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %NONDECIMAL-DIGIT? (X START BASE) (COMMON-LISP:BLOCK %NONDECIMAL-DIGIT? (COMMON-LISP:BLOCK COMMON-LISP:NIL (RANGE? X START (CHARACTER+ START (CHARACTER- BASE 10)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%NONDECIMAL-DIGIT? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'BASE COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%NONDECIMAL-DIGIT? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'RANGE? (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'START (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER+ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER- (COMMON-LISP:CONS 'BASE (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 '%NONDECIMAL-DIGIT?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'NONDECIMAL-DIGIT? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'BASE (COMMON-LISP:CONS 10 COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN NONDECIMAL-DIGIT? (X COMMON-LISP:&KEY (BASE 10)) (COMMON-LISP:BLOCK NONDECIMAL-DIGIT? (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (< 10 BASE) (COMMON-LISP:LABELS ((G4152 (~G1498) (? ~G1498 ~G1498 (%NONDECIMAL-DIGIT? X #\A BASE)))) (G4152 (%NONDECIMAL-DIGIT? X #\a BASE))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'NONDECIMAL-DIGIT? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'BASE (COMMON-LISP:CONS 10 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'NONDECIMAL-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:CONS '< (COMMON-LISP:CONS 10 (COMMON-LISP:CONS 'BASE COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1498 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1498 (COMMON-LISP:CONS '~G1498 (COMMON-LISP:CONS (COMMON-LISP:CONS '%NONDECIMAL-DIGIT? (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\A (COMMON-LISP:CONS 'BASE COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%NONDECIMAL-DIGIT? (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\a (COMMON-LISP:CONS 'BASE 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 'NONDECIMAL-DIGIT?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'DIGIT-CHAR? (COMMON-LISP:CONS (COMMON-LISP:CONS 'C (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'BASE (COMMON-LISP:CONS 10 COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN DIGIT-CHAR? (C COMMON-LISP:&KEY (BASE 10)) (COMMON-LISP:BLOCK DIGIT-CHAR? (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (CHARACTER? C) (COMMON-LISP:LABELS ((G4153 (~G1499) (? ~G1499 ~G1499 (NONDECIMAL-DIGIT? C :BASE BASE)))) (G4153 (DECIMAL-DIGIT? C))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'DIGIT-CHAR? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'C (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'BASE (COMMON-LISP:CONS 10 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'DIGIT-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 'CHARACTER? (COMMON-LISP:CONS 'C COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1499 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1499 (COMMON-LISP:CONS '~G1499 (COMMON-LISP:CONS (COMMON-LISP:CONS 'NONDECIMAL-DIGIT? (COMMON-LISP:CONS 'C (COMMON-LISP:CONS ':BASE (COMMON-LISP:CONS 'BASE COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DECIMAL-DIGIT? (COMMON-LISP:CONS 'C 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 'DIGIT-CHAR?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'HEX-DIGIT-CHAR? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN HEX-DIGIT-CHAR? (X) (COMMON-LISP:BLOCK HEX-DIGIT-CHAR? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4154 (~G1500) (? ~G1500 ~G1500 (COMMON-LISP:LABELS ((G4155 (~G1501) (? ~G1501 ~G1501 (? (>= X #\a) (<= X #\f))))) (G4155 (? (>= X #\A) (<= X #\F))))))) (G4154 (DIGIT-CHAR? X)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'HEX-DIGIT-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 'HEX-DIGIT-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 '~G1500 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1500 (COMMON-LISP:CONS '~G1500 (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1501 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1501 (COMMON-LISP:CONS '~G1501 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '>= (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\a COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '<= (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\f 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 'X (COMMON-LISP:CONS #\A COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '<= (COMMON-LISP:CONS 'X (COMMON-LISP:CONS #\F COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DIGIT-CHAR? (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 'HEX-DIGIT-CHAR?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'ALPHANUMERIC? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1503 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN ALPHANUMERIC? (COMMON-LISP:&REST ~G1503) (COMMON-LISP:BLOCK ALPHANUMERIC? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4156 (~G1519) (COMMON-LISP:LABELS ((G4157 (C) (COMMON-LISP:TAGBODY ~G1517 (? (NOT ~G1519) (COMMON-LISP:GO ~G1518)) (COMMON-LISP:SETQ C (COMMON-LISP:CAR ~G1519)) (COMMON-LISP:LABELS ((G4158 (~G1516) (? ~G1516 ~G1516 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G4158 (COMMON-LISP:LABELS ((G4159 (~G1502) (? ~G1502 ~G1502 (DIGIT-CHAR? C)))) (G4159 (ALPHA-CHAR? C))))) (COMMON-LISP:SETQ ~G1519 (COMMON-LISP:CDR ~G1519)) (COMMON-LISP:GO ~G1517) ~G1518 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G4157 COMMON-LISP:NIL)))) (G4156 ~G1503)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'ALPHANUMERIC? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1503 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'ALPHANUMERIC? (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 '~G1519 (COMMON-LISP:CONS '~G1503 (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'C (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1517 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1519 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1518 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'C (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1519 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 '~G1516 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1516 (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:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1502 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1502 (COMMON-LISP:CONS '~G1502 (COMMON-LISP:CONS (COMMON-LISP:CONS 'DIGIT-CHAR? (COMMON-LISP:CONS 'C COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ALPHA-CHAR? (COMMON-LISP:CONS 'C COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1519 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1519 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1517 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1518 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'ALPHANUMERIC?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'WHITESPACE? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN WHITESPACE? (X) (COMMON-LISP:BLOCK WHITESPACE? (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (< X 33) (>= X 0))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'WHITESPACE? *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 'WHITESPACE? (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 33 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:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'WHITESPACE?))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'CONTROL-CHAR? (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN CONTROL-CHAR? (X) (COMMON-LISP:BLOCK CONTROL-CHAR? (COMMON-LISP:BLOCK COMMON-LISP:NIL (< X 32)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'CONTROL-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 'CONTROL-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 'X (COMMON-LISP:CONS 32 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'CONTROL-CHAR?))
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'STRING-CONCAT (COMMON-LISP:CONS 'STRING== (COMMON-LISP:CONS 'UPCASE (COMMON-LISP:CONS 'DOWNCASE (COMMON-LISP:CONS 'LIST-STRING (COMMON-LISP:CONS 'STRING-LIST (COMMON-LISP:CONS 'QUEUE-STRING COMMON-LISP:NIL))))))) *FUNCTIONALS*)))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STRING<= (COMMON-LISP:CONS (COMMON-LISP:CONS 'A (COMMON-LISP:CONS 'B COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STRING<= (A B) (COMMON-LISP:BLOCK STRING<= (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4160 (LA) (COMMON-LISP:LABELS ((G4161 (LB) (COMMON-LISP:LABELS ((G4162 (~G1520) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4163 (I) (COMMON-LISP:TAGBODY ~G1522 (? (INTEGER== I ~G1520) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN (<= LA LB)))) (? (> (COMMON-LISP:ELT A I) (COMMON-LISP:ELT B I)) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:SETQ I (INTEGER+ 1 I)) (COMMON-LISP:GO ~G1522)))) (G4163 0))))) (G4162 (INTEGER LA))))) (G4161 (COMMON-LISP:LENGTH B))))) (G4160 (COMMON-LISP:LENGTH A)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STRING<= *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'A (COMMON-LISP:CONS 'B COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '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 'LA COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'LB (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'B COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1520 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1522 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'I (COMMON-LISP:CONS '~G1520 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 '<= (COMMON-LISP:CONS 'LA (COMMON-LISP:CONS 'LB 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:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'A (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'B (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'I (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 1 (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1522 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 'LA COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'A COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STRING<=))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STRING-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STRING-LIST (X) (COMMON-LISP:BLOCK STRING-LIST (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4164 (L) (COMMON-LISP:LABELS ((G4165 (S) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4166 (I) (COMMON-LISP:TAGBODY ~G1521 (? (INTEGER< I 0) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ S (COMMON-LISP:PROGN (COMMON-LISP:SETQ S (COMMON-LISP:CONS (COMMON-LISP:ELT X I) S))))) (COMMON-LISP:SETQ I (INTEGER-- I)) (COMMON-LISP:GO ~G1521)))) (G4166 (INTEGER-- L)))) S)) (G4165 COMMON-LISP:NIL)))) (G4164 (COMMON-LISP:LENGTH X)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STRING-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 'STRING-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'L COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'S (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 'I (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER-- (COMMON-LISP:CONS 'L COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1521 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER< (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 0 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN COMMON-LISP:NIL) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) (COMMON-LISP:CONS 'S COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'I (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER-- (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1521 COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) (COMMON-LISP:CONS 'S COMMON-LISP:NIL))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (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:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STRING-LIST))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'QUEUE-STRING (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN QUEUE-STRING (X) (COMMON-LISP:BLOCK QUEUE-STRING (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:APPLY #'STRING-CONCAT (FILTER #'(COMMON-LISP:LAMBDA (_) (? (STRING? _) _ (CHARACTER? _) (STRING _))) (QUEUE-LIST X)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'QUEUE-STRING *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-STRING (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 (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'STRING-CONCAT 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 'STRING? (COMMON-LISP:CONS '_ COMMON-LISP:NIL)) (COMMON-LISP:CONS '_ (COMMON-LISP:CONS (COMMON-LISP:CONS 'CHARACTER? (COMMON-LISP:CONS '_ COMMON-LISP:NIL)) (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 'QUEUE-LIST (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-STRING))
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'LIST-SYMBOL COMMON-LISP:NIL) *FUNCTIONALS*)))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'LIST-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN LIST-SYMBOL (X) (COMMON-LISP:BLOCK LIST-SYMBOL (COMMON-LISP:BLOCK COMMON-LISP:NIL (MAKE-SYMBOL (LIST-STRING X))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'LIST-SYMBOL *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'LIST-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-STRING (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'LIST-SYMBOL))
  (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'SUBSEQ COMMON-LISP:NIL) *FUNCTIONALS*)))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'COPY-NUM (COMMON-LISP:CONS (COMMON-LISP:CONS 'LST (COMMON-LISP:CONS 'LEN COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN COPY-NUM (LST LEN) (COMMON-LISP:BLOCK COPY-NUM (COMMON-LISP:BLOCK COMMON-LISP:NIL (? LST (? (INTEGER< 0 LEN) (COMMON-LISP:CONS (COMMON-LISP:CAR LST) (COPY-NUM (COMMON-LISP:CDR LST) (INTEGER-- LEN)))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'COPY-NUM *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LST (COMMON-LISP:CONS 'LEN COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'COPY-NUM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'LST (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER< (COMMON-LISP:CONS 0 (COMMON-LISP:CONS 'LEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COPY-NUM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER-- (COMMON-LISP:CONS 'LEN COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'COPY-NUM))
  COMMON-LISP:NIL
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'LIST-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 999999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN LIST-SUBSEQ (SEQ START COMMON-LISP:&OPTIONAL (END 999999)) (COMMON-LISP:BLOCK LIST-SUBSEQ (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (? SEQ (NOT (INTEGER== START END))) (COMMON-LISP:PROGN (? (INTEGER> START END) (COMMON-LISP:LABELS ((G4167 (~G1523) (COMMON-LISP:PROGN (COMMON-LISP:SETQ START END) (COMMON-LISP:SETQ END ~G1523)))) (G4167 START))) (COPY-NUM (COMMON-LISP:NTHCDR START SEQ) (INTEGER- END START))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'LIST-SUBSEQ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 999999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'LIST-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER> (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1523 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '~G1523 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COPY-NUM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:NTHCDR (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER- (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'START COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'LIST-SUBSEQ))
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%SUBSEQ-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKER (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %SUBSEQ-SEQUENCE (MAKER SEQ START END) (COMMON-LISP:BLOCK %SUBSEQ-SEQUENCE (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (NOT (INTEGER== START END)) (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G4168 (!) (? (INTEGER< START !) (COMMON-LISP:PROGN (? (INTEGER>= END !) (COMMON-LISP:PROGN (COMMON-LISP:SETQ END !))) (COMMON-LISP:LABELS ((G4169 (L) (COMMON-LISP:LABELS ((G4170 (S) (COMMON-LISP:LABELS ((G4171 (~G1524) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4172 (X) (COMMON-LISP:TAGBODY ~G1526 (? (INTEGER== X ~G1524) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN S))) (COMMON-LISP:PROGN (=-ELT (COMMON-LISP:ELT SEQ (INTEGER+ START X)) S X)) (COMMON-LISP:SETQ X (INTEGER+ 1 X)) (COMMON-LISP:GO ~G1526)))) (G4172 0))))) (G4171 (INTEGER L))))) (G4170 (FUNCALL MAKER L))))) (G4169 (INTEGER- END START))))))) (G4168 (COMMON-LISP:LENGTH SEQ)))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%SUBSEQ-SEQUENCE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKER (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%SUBSEQ-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER< (COMMON-LISP:CONS 'START (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER>= (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'L COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'MAKER (COMMON-LISP:CONS 'L COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1524 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1526 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS '~G1524 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-ELT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'X COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 1 (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1526 COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS 'L COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER- (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'START COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%SUBSEQ-SEQUENCE))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN SUBSEQ (SEQ START COMMON-LISP:&OPTIONAL (END 99999)) (COMMON-LISP:BLOCK SUBSEQ (COMMON-LISP:BLOCK COMMON-LISP:NIL (? SEQ (COMMON-LISP:PROGN (? (INTEGER> START END) (COMMON-LISP:LABELS ((G4173 (~G1525) (COMMON-LISP:PROGN (COMMON-LISP:SETQ START END) (COMMON-LISP:SETQ END ~G1525)))) (G4173 START))) (? (CONS? SEQ) (LIST-SUBSEQ SEQ START END) (STRING? SEQ) (STRING-SUBSEQ SEQ START END) (ARRAY? SEQ) (%SUBSEQ-SEQUENCE #'MAKE-ARRAY SEQ START END) (ERROR "Type of ~A not supported." SEQ))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'SUBSEQ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER> (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1525 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '~G1525 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'CONS? (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-SUBSEQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING? (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING-SUBSEQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARRAY? (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%SUBSEQ-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'MAKE-ARRAY COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "Type of ~A not supported." (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL))) COMMON-LISP:NIL)))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'SUBSEQ))
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STRING-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STRING-SUBSEQ (SEQ START COMMON-LISP:&OPTIONAL (END 99999)) (COMMON-LISP:BLOCK STRING-SUBSEQ (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (INTEGER== START END) "" (COMMON-LISP:LABELS ((G4174 (SEQLEN) (? (INTEGER< START SEQLEN) (COMMON-LISP:PROGN (? (INTEGER>= END SEQLEN) (COMMON-LISP:PROGN (COMMON-LISP:PROGN (COMMON-LISP:SETQ END SEQLEN)))) (COMMON-LISP:LABELS ((G4175 (L) (COMMON-LISP:LABELS ((G4176 (S) (COMMON-LISP:LABELS ((G4177 (~G1527) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4178 (X) (COMMON-LISP:TAGBODY ~G1528 (? (INTEGER== X ~G1527) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN S))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ S (+ S (STRING (COMMON-LISP:ELT SEQ (INTEGER+ START X)))))) (COMMON-LISP:SETQ X (INTEGER+ 1 X)) (COMMON-LISP:GO ~G1528)))) (G4178 0))))) (G4177 (INTEGER L))))) (G4176 (COMMON-LISP:MAKE-STRING 0))))) (G4175 (INTEGER- END START))))))) (G4174 (COMMON-LISP:LENGTH SEQ))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STRING-SUBSEQ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STRING-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS "" (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER< (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER>= (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'L COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:MAKE-STRING (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1527 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1528 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS '~G1527 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 1 (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1528 COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS 'L COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER- (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'START COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STRING-SUBSEQ))
  (COMMON-LISP:PROGN (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'FIND (COMMON-LISP:CONS 'POSITION COMMON-LISP:NIL)) *FUNCTIONALS*)))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%FIND-IF-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %FIND-IF-LIST (PRED SEQ FROM-END WITH-INDEX) (COMMON-LISP:BLOCK %FIND-IF-LIST (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4179 (!) (? WITH-INDEX (COMMON-LISP:LABELS ((G4180 (IDX) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4181 (~G1540) (COMMON-LISP:LABELS ((G4182 (!) (COMMON-LISP:TAGBODY ~G1538 (? (NOT ~G1540) (COMMON-LISP:GO ~G1539)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1540)) (? (FUNCALL PRED ! IDX) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL !)) (COMMON-LISP:PROGN (COMMON-LISP:SETQ IDX (NUMBER+ IDX 1))) (COMMON-LISP:SETQ ~G1540 (COMMON-LISP:CDR ~G1540)) (COMMON-LISP:GO ~G1538) ~G1539 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))))) (G4182 COMMON-LISP:NIL)))) (G4181 !))))) (G4180 0)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4183 (~G1543) (COMMON-LISP:LABELS ((G4184 (!) (COMMON-LISP:TAGBODY ~G1541 (? (NOT ~G1543) (COMMON-LISP:GO ~G1542)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1543)) (? (FUNCALL PRED !) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL !)) (COMMON-LISP:SETQ ~G1543 (COMMON-LISP:CDR ~G1543)) (COMMON-LISP:GO ~G1541) ~G1542 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))))) (G4184 COMMON-LISP:NIL)))) (G4183 !)))))) (G4179 (? FROM-END (REVERSE SEQ) SEQ)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%FIND-IF-LIST *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%FIND-IF-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'IDX COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1540 (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1538 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1540 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1539 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 '~G1540 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS '! (COMMON-LISP:CONS 'IDX COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'IDX (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUMBER+ (COMMON-LISP:CONS 'IDX (COMMON-LISP:CONS 1 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1540 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1540 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1538 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1539 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1543 (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1541 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1543 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1542 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 '~G1543 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1543 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1543 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1541 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1542 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS (COMMON-LISP:CONS 'REVERSE (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%FIND-IF-LIST))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%FIND-IF-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %FIND-IF-SEQUENCE (PRED SEQ START END FROM-END WITH-INDEX) (COMMON-LISP:BLOCK %FIND-IF-SEQUENCE (COMMON-LISP:BLOCK COMMON-LISP:NIL (? SEQ (? (INTEGER< 0 (COMMON-LISP:LENGTH SEQ)) (COMMON-LISP:LABELS ((G4185 (E) (COMMON-LISP:LABELS ((G4186 (S) (? (COMMON-LISP:LABELS ((G4187 (~G1531) (? ~G1531 ~G1531 (? (INTEGER< S E) FROM-END)))) (G4187 (? (INTEGER> S E) (NOT FROM-END)))) (COMMON-LISP:LABELS ((G4188 (~G1532) (COMMON-LISP:PROGN (COMMON-LISP:SETQ S E) (COMMON-LISP:SETQ E ~G1532)))) (G4188 S))) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4189 (I) (COMMON-LISP:TAGBODY ~G1533 (? (? FROM-END (INTEGER< I E) (INTEGER> I E)) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN))) (COMMON-LISP:LABELS ((G4190 (!) (? (COMMON-LISP:APPLY PRED (COMMON-LISP:CONS ! (? WITH-INDEX (COMMON-LISP:LIST I)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL !)))) (G4190 (COMMON-LISP:ELT SEQ I))) (COMMON-LISP:SETQ I (? FROM-END (INTEGER-- I) (INTEGER++ I))) (COMMON-LISP:GO ~G1533)))) (G4189 S))))) (G4186 (COMMON-LISP:LABELS ((G4191 (~G1530) (? ~G1530 ~G1530 0))) (G4191 START)))))) (G4185 (COMMON-LISP:LABELS ((G4192 (~G1529) (? ~G1529 ~G1529 (INTEGER-- (COMMON-LISP:LENGTH SEQ))))) (G4192 END))))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%FIND-IF-SEQUENCE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%FIND-IF-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER< (COMMON-LISP:CONS 0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'E COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1530 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1530 (COMMON-LISP:CONS '~G1530 (COMMON-LISP:CONS 0 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1531 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1531 (COMMON-LISP:CONS '~G1531 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER< (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS 'FROM-END COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER> (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS 'FROM-END COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1532 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'E (COMMON-LISP:CONS '~G1532 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1533 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER< (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER> (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN COMMON-LISP:NIL) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:APPLY (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LIST (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'I (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER-- (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER++ (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1533 COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1529 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1529 (COMMON-LISP:CONS '~G1529 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER-- (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'END COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%FIND-IF-SEQUENCE))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN FIND-IF (PRED SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL) (WITH-INDEX COMMON-LISP:NIL)) (COMMON-LISP:BLOCK FIND-IF (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (NOT (COMMON-LISP:ATOM SEQ) START END) (%FIND-IF-LIST PRED SEQ FROM-END WITH-INDEX) (%FIND-IF-SEQUENCE PRED SEQ START END FROM-END WITH-INDEX))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'FIND-IF *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ATOM (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS '%FIND-IF-LIST (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL))))) (COMMON-LISP:CONS (COMMON-LISP:CONS '%FIND-IF-SEQUENCE (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL))))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'FIND-IF))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'FIND (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN FIND (OBJ SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL) (TEST #'EQL)) (COMMON-LISP:BLOCK FIND (COMMON-LISP:BLOCK COMMON-LISP:NIL (FIND-IF #'(COMMON-LISP:LAMBDA (_) (FUNCALL TEST _ OBJ)) SEQ :START START :END END :FROM-END FROM-END)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'FIND *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'FIND (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '_ COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS '_ (COMMON-LISP:CONS 'OBJ COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS ':START (COMMON-LISP:CONS 'START (COMMON-LISP:CONS ':END (COMMON-LISP:CONS 'END (COMMON-LISP:CONS ':FROM-END (COMMON-LISP:CONS 'FROM-END COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'FIND))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'POSITION (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN POSITION (OBJ SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL) (TEST #'EQL)) (COMMON-LISP:BLOCK POSITION (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4193 (POSITION-INDEX) (FIND-IF #'(COMMON-LISP:LAMBDA (X I) (? (FUNCALL TEST X OBJ) (COMMON-LISP:PROGN (COMMON-LISP:SETQ POSITION-INDEX I)))) SEQ :START START :END END :FROM-END FROM-END :WITH-INDEX COMMON-LISP:T) (COMMON-LISP:LABELS ((G4194 (!) (? ! (INTEGER !)))) (G4194 POSITION-INDEX)))) (G4193 COMMON-LISP:NIL))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'POSITION *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'POSITION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'POSITION-INDEX COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'OBJ COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'POSITION-INDEX (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS ':START (COMMON-LISP:CONS 'START (COMMON-LISP:CONS ':END (COMMON-LISP:CONS 'END (COMMON-LISP:CONS ':FROM-END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS ':WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL))))))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '! (COMMON-LISP:CONS 'POSITION-INDEX (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS '! 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:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'POSITION))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'POSITION-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN POSITION-IF (PRED SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL)) (COMMON-LISP:BLOCK POSITION-IF (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4195 (POSITION-INDEX) (FIND-IF #'(COMMON-LISP:LAMBDA (X I) (? (FUNCALL PRED X) (COMMON-LISP:PROGN (COMMON-LISP:SETQ POSITION-INDEX I)))) SEQ :START START :END END :FROM-END FROM-END :WITH-INDEX COMMON-LISP:T) (COMMON-LISP:LABELS ((G4196 (!) (? ! (INTEGER !)))) (G4196 POSITION-INDEX)))) (G4195 COMMON-LISP:NIL))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'POSITION-IF *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'POSITION-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'POSITION-INDEX COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'POSITION-INDEX (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS ':START (COMMON-LISP:CONS 'START (COMMON-LISP:CONS ':END (COMMON-LISP:CONS 'END (COMMON-LISP:CONS ':FROM-END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS ':WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL))))))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '! (COMMON-LISP:CONS 'POSITION-INDEX (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS '! 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:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'POSITION-IF))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'SOME (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN SOME (PRED COMMON-LISP:&REST SEQS) (COMMON-LISP:BLOCK SOME (COMMON-LISP:BLOCK COMMON-LISP:NIL (FIND-IF PRED (COMMON-LISP:APPLY #'APPEND SEQS))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'SOME *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'SOME (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:APPLY (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'APPEND COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'SOME))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'EVERY (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN EVERY (PRED COMMON-LISP:&REST SEQS) (COMMON-LISP:BLOCK EVERY (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4197 (~G1537) (COMMON-LISP:LABELS ((G4198 (SEQ) (COMMON-LISP:TAGBODY ~G1535 (? (NOT ~G1537) (COMMON-LISP:GO ~G1536)) (COMMON-LISP:SETQ SEQ (COMMON-LISP:CAR ~G1537)) (COMMON-LISP:LABELS ((G4199 (~G1544) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G4200 (!) (COMMON-LISP:TAGBODY ~G1545 (? (INTEGER== ! ~G1544) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))) (COMMON-LISP:LABELS ((G4201 (~G1534) (? ~G1534 ~G1534 (COMMON-LISP:RETURN-FROM EVERY COMMON-LISP:NIL)))) (G4201 (FUNCALL PRED (COMMON-LISP:ELT SEQ !)))) (COMMON-LISP:SETQ ! (INTEGER+ 1 !)) (COMMON-LISP:GO ~G1545)))) (G4200 0))))) (G4199 (INTEGER (COMMON-LISP:LENGTH SEQ)))) (COMMON-LISP:SETQ ~G1537 (COMMON-LISP:CDR ~G1537)) (COMMON-LISP:GO ~G1535) ~G1536 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G4198 COMMON-LISP:NIL)))) (G4197 SEQS)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'EVERY *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'EVERY (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1537 (COMMON-LISP:CONS 'SEQS (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1535 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1537 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1536 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1537 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1544 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DO (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS 0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 1 (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS '! (COMMON-LISP:CONS '~G1544 COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1534 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1534 (COMMON-LISP:CONS '~G1534 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS 'EVERY (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1537 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1537 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1535 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1536 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'EVERY))
  COMMON-LISP: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))))
  