anchor.diff:  (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: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 ((G3033 (X) (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS NAME (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS X (APPEND ARGS COMMON-LISP:NIL))) (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)))))) (G3033 (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 '~G1003 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN LOWER-CASE? (COMMON-LISP:&REST ~G1003) (COMMON-LISP:BLOCK LOWER-CASE? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3034 (~G1016) (COMMON-LISP:LABELS ((G3035 (C) (COMMON-LISP:TAGBODY ~G1014 (? (NOT ~G1016) (COMMON-LISP:GO ~G1015)) (COMMON-LISP:SETQ C (COMMON-LISP:CAR ~G1016)) (COMMON-LISP:LABELS ((G3036 (~G1013) (? ~G1013 ~G1013 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G3036 (RANGE? C #\a #\z))) (COMMON-LISP:SETQ ~G1016 (COMMON-LISP:CDR ~G1016)) (COMMON-LISP:GO ~G1014) ~G1015 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G3035 COMMON-LISP:NIL)))) (G3034 ~G1003)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'LOWER-CASE? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1003 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 '~G1016 (COMMON-LISP:CONS '~G1003 (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 '~G1014 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1016 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1015 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 '~G1016 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 '~G1013 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1013 (COMMON-LISP:CONS '~G1013 (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 '~G1016 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1016 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1014 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1015 (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 '~G1004 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN UPPER-CASE? (COMMON-LISP:&REST ~G1004) (COMMON-LISP:BLOCK UPPER-CASE? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3037 (~G1020) (COMMON-LISP:LABELS ((G3038 (C) (COMMON-LISP:TAGBODY ~G1018 (? (NOT ~G1020) (COMMON-LISP:GO ~G1019)) (COMMON-LISP:SETQ C (COMMON-LISP:CAR ~G1020)) (COMMON-LISP:LABELS ((G3039 (~G1017) (? ~G1017 ~G1017 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G3039 (RANGE? C #\A #\Z))) (COMMON-LISP:SETQ ~G1020 (COMMON-LISP:CDR ~G1020)) (COMMON-LISP:GO ~G1018) ~G1019 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G3038 COMMON-LISP:NIL)))) (G3037 ~G1004)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'UPPER-CASE? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1004 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 '~G1020 (COMMON-LISP:CONS '~G1004 (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 '~G1018 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1020 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1019 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 '~G1020 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 '~G1017 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1017 (COMMON-LISP:CONS '~G1017 (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 '~G1020 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1020 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1018 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1019 (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 '~G1006 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN ALPHA-CHAR? (COMMON-LISP:&REST ~G1006) (COMMON-LISP:BLOCK ALPHA-CHAR? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3040 (~G1024) (COMMON-LISP:LABELS ((G3041 (C) (COMMON-LISP:TAGBODY ~G1022 (? (NOT ~G1024) (COMMON-LISP:GO ~G1023)) (COMMON-LISP:SETQ C (COMMON-LISP:CAR ~G1024)) (COMMON-LISP:LABELS ((G3042 (~G1021) (? ~G1021 ~G1021 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G3042 (COMMON-LISP:LABELS ((G3043 (~G1005) (? ~G1005 ~G1005 (UPPER-CASE? C)))) (G3043 (LOWER-CASE? C))))) (COMMON-LISP:SETQ ~G1024 (COMMON-LISP:CDR ~G1024)) (COMMON-LISP:GO ~G1022) ~G1023 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G3041 COMMON-LISP:NIL)))) (G3040 ~G1006)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'ALPHA-CHAR? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1006 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 '~G1024 (COMMON-LISP:CONS '~G1006 (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 '~G1022 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1024 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1023 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 '~G1024 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 '~G1021 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1021 (COMMON-LISP:CONS '~G1021 (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 '~G1005 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1005 (COMMON-LISP:CONS '~G1005 (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 '~G1024 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1024 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1022 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1023 (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 (%DEFMACRO DEF-REST-PREDICATE (NAME ITER ARGS TEST-EXPR) (COMMON-LISP:BLOCK DEF-REST-PREDICATE (COMMON-LISP:LABELS ((G3616 (X) (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS NAME (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS X (APPEND ARGS COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '@ (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)))))) (G3616 (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 '~G1428 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN LOWER-CASE? (COMMON-LISP:&REST ~G1428) (COMMON-LISP:BLOCK LOWER-CASE? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3617 (~G1444) (COMMON-LISP:LABELS ((G3618 (C) (COMMON-LISP:TAGBODY ~G1442 (? (NOT ~G1444) (COMMON-LISP:GO ~G1443)) (COMMON-LISP:SETQ C (COMMON-LISP:CAR ~G1444)) (COMMON-LISP:LABELS ((G3619 (~G1438) (? ~G1438 ~G1438 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G3619 (RANGE? C #\a #\z))) (COMMON-LISP:SETQ ~G1444 (COMMON-LISP:CDR ~G1444)) (COMMON-LISP:GO ~G1442) ~G1443 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G3618 COMMON-LISP:NIL)))) (G3617 ~G1428)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'LOWER-CASE? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1428 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 (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1444 (COMMON-LISP:CONS '~G1428 COMMON-LISP:NIL)) (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 '~G1442 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1444 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1443 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 '~G1444 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 '~G1438 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1438 (COMMON-LISP:CONS '~G1438 (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 '~G1444 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1444 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1442 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1443 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '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 '~G1429 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN UPPER-CASE? (COMMON-LISP:&REST ~G1429) (COMMON-LISP:BLOCK UPPER-CASE? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3620 (~G1447) (COMMON-LISP:LABELS ((G3621 (C) (COMMON-LISP:TAGBODY ~G1445 (? (NOT ~G1447) (COMMON-LISP:GO ~G1446)) (COMMON-LISP:SETQ C (COMMON-LISP:CAR ~G1447)) (COMMON-LISP:LABELS ((G3622 (~G1439) (? ~G1439 ~G1439 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G3622 (RANGE? C #\A #\Z))) (COMMON-LISP:SETQ ~G1447 (COMMON-LISP:CDR ~G1447)) (COMMON-LISP:GO ~G1445) ~G1446 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G3621 COMMON-LISP:NIL)))) (G3620 ~G1429)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'UPPER-CASE? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1429 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 (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1447 (COMMON-LISP:CONS '~G1429 COMMON-LISP:NIL)) (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 '~G1445 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1447 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1446 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 '~G1447 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 '~G1439 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1439 (COMMON-LISP:CONS '~G1439 (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 '~G1447 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1447 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1445 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1446 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '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 '~G1431 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN ALPHA-CHAR? (COMMON-LISP:&REST ~G1431) (COMMON-LISP:BLOCK ALPHA-CHAR? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3623 (~G1450) (COMMON-LISP:LABELS ((G3624 (C) (COMMON-LISP:TAGBODY ~G1448 (? (NOT ~G1450) (COMMON-LISP:GO ~G1449)) (COMMON-LISP:SETQ C (COMMON-LISP:CAR ~G1450)) (COMMON-LISP:LABELS ((G3625 (~G1440) (? ~G1440 ~G1440 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G3625 (COMMON-LISP:LABELS ((G3626 (~G1430) (? ~G1430 ~G1430 (UPPER-CASE? C)))) (G3626 (LOWER-CASE? C))))) (COMMON-LISP:SETQ ~G1450 (COMMON-LISP:CDR ~G1450)) (COMMON-LISP:GO ~G1448) ~G1449 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G3624 COMMON-LISP:NIL)))) (G3623 ~G1431)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'ALPHA-CHAR? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1431 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 (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1450 (COMMON-LISP:CONS '~G1431 COMMON-LISP:NIL)) (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 '~G1448 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1450 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1449 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 '~G1450 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 '~G1440 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1440 (COMMON-LISP:CONS '~G1440 (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 '~G1430 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1430 (COMMON-LISP:CONS '~G1430 (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 '~G1450 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1450 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1448 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1449 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '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 ((G3044 (~G1007) (? ~G1007 ~G1007 (%NONDECIMAL-DIGIT? X #\A BASE)))) (G3044 (%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 '~G1007 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1007 (COMMON-LISP:CONS '~G1007 (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 ((G3045 (~G1008) (? ~G1008 ~G1008 (NONDECIMAL-DIGIT? C :BASE BASE)))) (G3045 (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 '~G1008 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1008 (COMMON-LISP:CONS '~G1008 (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 ((G3046 (~G1009) (? ~G1009 ~G1009 (COMMON-LISP:LABELS ((G3047 (~G1010) (? ~G1010 ~G1010 (? (>= X #\a) (<= X #\f))))) (G3047 (? (>= X #\A) (<= X #\F))))))) (G3046 (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 '~G1009 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1009 (COMMON-LISP:CONS '~G1009 (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1010 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1010 (COMMON-LISP:CONS '~G1010 (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 '~G1012 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN ALPHANUMERIC? (COMMON-LISP:&REST ~G1012) (COMMON-LISP:BLOCK ALPHANUMERIC? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3048 (~G1028) (COMMON-LISP:LABELS ((G3049 (C) (COMMON-LISP:TAGBODY ~G1026 (? (NOT ~G1028) (COMMON-LISP:GO ~G1027)) (COMMON-LISP:SETQ C (COMMON-LISP:CAR ~G1028)) (COMMON-LISP:LABELS ((G3050 (~G1025) (? ~G1025 ~G1025 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G3050 (COMMON-LISP:LABELS ((G3051 (~G1011) (? ~G1011 ~G1011 (DIGIT-CHAR? C)))) (G3051 (ALPHA-CHAR? C))))) (COMMON-LISP:SETQ ~G1028 (COMMON-LISP:CDR ~G1028)) (COMMON-LISP:GO ~G1026) ~G1027 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G3049 COMMON-LISP:NIL)))) (G3048 ~G1012)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'ALPHANUMERIC? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1012 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 '~G1028 (COMMON-LISP:CONS '~G1012 (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 '~G1026 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1028 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1027 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 '~G1028 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 '~G1025 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1025 (COMMON-LISP:CONS '~G1025 (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 '~G1011 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1011 (COMMON-LISP:CONS '~G1011 (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 '~G1028 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1028 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1026 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1027 (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 '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 ((G3627 (~G1432) (? ~G1432 ~G1432 (%NONDECIMAL-DIGIT? X #\A BASE)))) (G3627 (%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 '~G1432 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1432 (COMMON-LISP:CONS '~G1432 (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 ((G3628 (~G1433) (? ~G1433 ~G1433 (NONDECIMAL-DIGIT? C :BASE BASE)))) (G3628 (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 '~G1433 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1433 (COMMON-LISP:CONS '~G1433 (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 ((G3629 (~G1434) (? ~G1434 ~G1434 (COMMON-LISP:LABELS ((G3630 (~G1435) (? ~G1435 ~G1435 (? (>= X #\a) (<= X #\f))))) (G3630 (? (>= X #\A) (<= X #\F))))))) (G3629 (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 '~G1434 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1434 (COMMON-LISP:CONS '~G1434 (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 '? (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 '~G1437 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN ALPHANUMERIC? (COMMON-LISP:&REST ~G1437) (COMMON-LISP:BLOCK ALPHANUMERIC? (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3631 (~G1453) (COMMON-LISP:LABELS ((G3632 (C) (COMMON-LISP:TAGBODY ~G1451 (? (NOT ~G1453) (COMMON-LISP:GO ~G1452)) (COMMON-LISP:SETQ C (COMMON-LISP:CAR ~G1453)) (COMMON-LISP:LABELS ((G3633 (~G1441) (? ~G1441 ~G1441 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL COMMON-LISP:NIL)))) (G3633 (COMMON-LISP:LABELS ((G3634 (~G1436) (? ~G1436 ~G1436 (DIGIT-CHAR? C)))) (G3634 (ALPHA-CHAR? C))))) (COMMON-LISP:SETQ ~G1453 (COMMON-LISP:CDR ~G1453)) (COMMON-LISP:GO ~G1451) ~G1452 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G3632 COMMON-LISP:NIL)))) (G3631 ~G1437)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'ALPHANUMERIC? *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS '~G1437 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 (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1453 (COMMON-LISP:CONS '~G1437 COMMON-LISP:NIL)) (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 '~G1451 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1453 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1452 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 '~G1453 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 '~G1441 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1441 (COMMON-LISP:CONS '~G1441 (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 '~G1436 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1436 (COMMON-LISP:CONS '~G1436 (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 '~G1453 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1453 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1451 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1452 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '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: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 ((G3052 (LA) (COMMON-LISP:LABELS ((G3053 (LB) (COMMON-LISP:LABELS ((G3054 (~G1029) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3055 (I) (COMMON-LISP:TAGBODY ~G1031 (? (INTEGER== I ~G1029) (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 ~G1031)))) (G3055 0))))) (G3054 (INTEGER LA))))) (G3053 (COMMON-LISP:LENGTH B))))) (G3052 (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 '~G1029 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 '~G1031 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'I (COMMON-LISP:CONS '~G1029 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 '~G1031 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 ((G3056 (L) (COMMON-LISP:LABELS ((G3057 (S) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3058 (I) (COMMON-LISP:TAGBODY ~G1030 (? (< 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 (-- I)) (COMMON-LISP:GO ~G1030)))) (G3058 (-- L)))) S)) (G3057 COMMON-LISP:NIL)))) (G3056 (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 '-- (COMMON-LISP:CONS 'L COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1030 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (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 '-- (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1030 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: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 ((G3635 (LA) (COMMON-LISP:LABELS ((G3636 (LB) (COMMON-LISP:LABELS ((G3637 (~G1454) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3638 (I) (COMMON-LISP:TAGBODY ~G1456 (? (INTEGER== I ~G1454) (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 ~G1456)))) (G3638 0))))) (G3637 (INTEGER LA))))) (G3636 (COMMON-LISP:LENGTH B))))) (G3635 (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 '~G1454 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 '~G1456 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'I (COMMON-LISP:CONS '~G1454 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 '~G1456 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 ((G3639 (L) (COMMON-LISP:LABELS ((G3640 (S) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3641 (I) (COMMON-LISP:TAGBODY ~G1455 (? (< 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 (-- I)) (COMMON-LISP:GO ~G1455)))) (G3641 (-- L)))) S)) (G3640 COMMON-LISP:NIL)))) (G3639 (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 '-- (COMMON-LISP:CONS 'L COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1455 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (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 '-- (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1455 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 (COMMON-LISP:MAPCAR #'(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 'COMMON-LISP:MAPCAR (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '_ COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '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
  
positive.code: (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'LIST-SYMBOL COMMON-LISP:NIL) *FUNCTIONALS*))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'LIST-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN LIST-SYMBOL (X) (COMMON-LISP:BLOCK LIST-SYMBOL (COMMON-LISP:BLOCK COMMON-LISP:NIL (MAKE-SYMBOL (LIST-STRING X))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'LIST-SYMBOL *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'X COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'LIST-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKE-SYMBOL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-STRING (COMMON-LISP:CONS 'X COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'LIST-SYMBOL))
  (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'SUBSEQ COMMON-LISP:NIL) *FUNCTIONALS*))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'LIST-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 999999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN LIST-SUBSEQ (SEQ START COMMON-LISP:&OPTIONAL (END 999999)) (COMMON-LISP:BLOCK LIST-SUBSEQ (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (? SEQ (NOT (== START END))) (COMMON-LISP:PROGN (? (> START END) (COMMON-LISP:LABELS ((G3059 (~G1032) (COMMON-LISP:PROGN (COMMON-LISP:SETQ START END) (COMMON-LISP:SETQ END ~G1032)))) (G3059 START))) (COMMON-LISP:LABELS ((COPY-NUM (LST LEN) (? LST (? (< 0 LEN) (COMMON-LISP:CONS (COMMON-LISP:CAR LST) (COPY-NUM (COMMON-LISP:CDR LST) (-- LEN))))))) (COPY-NUM (COMMON-LISP:NTHCDR START SEQ) (- END START)))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'LIST-SUBSEQ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 999999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'LIST-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1032 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '~G1032 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LABELS (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COPY-NUM (COMMON-LISP:CONS (COMMON-LISP:CONS 'LST (COMMON-LISP:CONS 'LEN COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'LST (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 0 (COMMON-LISP:CONS 'LEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COPY-NUM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS 'LST COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '-- (COMMON-LISP:CONS 'LEN COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COPY-NUM (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:NTHCDR (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '- (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'START COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'LIST-SUBSEQ))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%SUBSEQ-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKER (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %SUBSEQ-SEQUENCE (MAKER SEQ START END) (COMMON-LISP:BLOCK %SUBSEQ-SEQUENCE (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (NOT (== START END)) (COMMON-LISP:PROGN (COMMON-LISP:LABELS ((G3060 (!) (? (< START !) (COMMON-LISP:PROGN (? (>= END !) (COMMON-LISP:PROGN (COMMON-LISP:SETQ END !))) (COMMON-LISP:LABELS ((G3061 (L) (COMMON-LISP:LABELS ((G3062 (S) (COMMON-LISP:LABELS ((G3063 (~G1033) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3064 (X) (COMMON-LISP:TAGBODY ~G1036 (? (INTEGER== X ~G1033) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN S))) (COMMON-LISP:PROGN (=-ELT (COMMON-LISP:ELT SEQ (+ START X)) S X)) (COMMON-LISP:SETQ X (INTEGER+ 1 X)) (COMMON-LISP:GO ~G1036)))) (G3064 0))))) (G3063 (INTEGER L))))) (G3062 (FUNCALL MAKER L))))) (G3061 (- END START))))))) (G3060 (COMMON-LISP:LENGTH SEQ)))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%SUBSEQ-SEQUENCE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'MAKER (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%SUBSEQ-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '& (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'START (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '>= (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'L COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'MAKER (COMMON-LISP:CONS 'L COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1033 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1036 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS '~G1033 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '=-ELT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'X COMMON-LISP:NIL)))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 1 (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1036 COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS 'L COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '- (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'START COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%SUBSEQ-SEQUENCE))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN SUBSEQ (SEQ START COMMON-LISP:&OPTIONAL (END 99999)) (COMMON-LISP:BLOCK SUBSEQ (COMMON-LISP:BLOCK COMMON-LISP:NIL (? SEQ (COMMON-LISP:PROGN (? (> START END) (COMMON-LISP:LABELS ((G3065 (~G1034) (COMMON-LISP:PROGN (COMMON-LISP:SETQ START END) (COMMON-LISP:SETQ END ~G1034)))) (G3065 START))) (COMMON-LISP:LABELS ((G3066 (~G1035) (? (CONS? ~G1035) (LIST-SUBSEQ SEQ START END) (STRING? ~G1035) (STRING-SUBSEQ SEQ START END) (ARRAY? ~G1035) (%SUBSEQ-SEQUENCE #'MAKE-ARRAY SEQ START END) (ERROR "Type of ~A not supported." SEQ)))) (G3066 SEQ))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'SUBSEQ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1034 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS '~G1034 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1035 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'CONS? (COMMON-LISP:CONS '~G1035 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LIST-SUBSEQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING? (COMMON-LISP:CONS '~G1035 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING-SUBSEQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ARRAY? (COMMON-LISP:CONS '~G1035 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '%SUBSEQ-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'MAKE-ARRAY COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'ERROR (COMMON-LISP:CONS "Type of ~A not supported." (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL))) COMMON-LISP:NIL)))))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'SUBSEQ))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'STRING-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN STRING-SUBSEQ (SEQ START COMMON-LISP:&OPTIONAL (END 99999)) (COMMON-LISP:BLOCK STRING-SUBSEQ (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (== START END) "" (COMMON-LISP:LABELS ((G3067 (SEQLEN) (? (< START SEQLEN) (COMMON-LISP:PROGN (? (>= END SEQLEN) (COMMON-LISP:PROGN (COMMON-LISP:PROGN (COMMON-LISP:SETQ END SEQLEN)))) (COMMON-LISP:LABELS ((G3068 (L) (COMMON-LISP:LABELS ((G3069 (S) (COMMON-LISP:LABELS ((G3070 (~G1037) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3071 (X) (COMMON-LISP:TAGBODY ~G1038 (? (INTEGER== X ~G1037) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN S))) (COMMON-LISP:PROGN (COMMON-LISP:SETQ S (+ S (STRING (COMMON-LISP:ELT SEQ (+ START X)))))) (COMMON-LISP:SETQ X (INTEGER+ 1 X)) (COMMON-LISP:GO ~G1038)))) (G3071 0))))) (G3070 (INTEGER L))))) (G3069 (COMMON-LISP:MAKE-STRING 0))))) (G3068 (- END START))))))) (G3067 (COMMON-LISP:LENGTH SEQ))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'STRING-SUBSEQ *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'COMMON-LISP:&OPTIONAL (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 99999 COMMON-LISP:NIL)) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'STRING-SUBSEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '== (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL))) (COMMON-LISP:CONS "" (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '>= (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'SEQLEN COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'L COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:MAKE-STRING (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1037 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1038 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS 'X (COMMON-LISP:CONS '~G1037 COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'STRING (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS '+ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'X (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 1 (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1038 COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS 'L COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '- (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'START COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'STRING-SUBSEQ))
  (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'FIND (COMMON-LISP:CONS 'POSITION COMMON-LISP:NIL)) *FUNCTIONALS*))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%FIND-IF-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %FIND-IF-LIST (PRED SEQ FROM-END WITH-INDEX) (COMMON-LISP:BLOCK %FIND-IF-LIST (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3072 (!) (? WITH-INDEX (COMMON-LISP:LABELS ((G3073 (IDX) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3074 (~G1050) (COMMON-LISP:LABELS ((G3075 (!) (COMMON-LISP:TAGBODY ~G1048 (? (NOT ~G1050) (COMMON-LISP:GO ~G1049)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1050)) (? (FUNCALL PRED ! IDX) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL !)) (COMMON-LISP:PROGN (COMMON-LISP:SETQ IDX (NUMBER+ IDX 1))) (COMMON-LISP:SETQ ~G1050 (COMMON-LISP:CDR ~G1050)) (COMMON-LISP:GO ~G1048) ~G1049 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))))) (G3075 COMMON-LISP:NIL)))) (G3074 !))))) (G3073 0)) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3076 (~G1053) (COMMON-LISP:LABELS ((G3077 (!) (COMMON-LISP:TAGBODY ~G1051 (? (NOT ~G1053) (COMMON-LISP:GO ~G1052)) (COMMON-LISP:SETQ ! (COMMON-LISP:CAR ~G1053)) (? (FUNCALL PRED !) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL !)) (COMMON-LISP:SETQ ~G1053 (COMMON-LISP:CDR ~G1053)) (COMMON-LISP:GO ~G1051) ~G1052 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))))) (G3077 COMMON-LISP:NIL)))) (G3076 !)))))) (G3072 (? FROM-END (REVERSE SEQ) SEQ)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%FIND-IF-LIST *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%FIND-IF-LIST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'IDX COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1050 (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1048 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1050 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1049 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1050 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS '! (COMMON-LISP:CONS 'IDX COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'IDX (COMMON-LISP:CONS (COMMON-LISP:CONS 'NUMBER+ (COMMON-LISP:CONS 'IDX (COMMON-LISP:CONS 1 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1050 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1050 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1048 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1049 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 0 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1053 (COMMON-LISP:CONS '! COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1051 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1053 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1052 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1053 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS '! COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1053 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1053 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1051 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1052 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS (COMMON-LISP:CONS 'REVERSE (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%FIND-IF-LIST))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS '%FIND-IF-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN %FIND-IF-SEQUENCE (PRED SEQ START END FROM-END WITH-INDEX) (COMMON-LISP:BLOCK %FIND-IF-SEQUENCE (COMMON-LISP:BLOCK COMMON-LISP:NIL (? SEQ (? (< 0 (COMMON-LISP:LENGTH SEQ)) (COMMON-LISP:LABELS ((G3078 (E) (COMMON-LISP:LABELS ((G3079 (S) (? (COMMON-LISP:LABELS ((G3080 (~G1041) (? ~G1041 ~G1041 (? (< S E) FROM-END)))) (G3080 (? (> S E) (NOT FROM-END)))) (COMMON-LISP:LABELS ((G3081 (~G1042) (COMMON-LISP:PROGN (COMMON-LISP:SETQ S E) (COMMON-LISP:SETQ E ~G1042)))) (G3081 S))) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3082 (I) (COMMON-LISP:TAGBODY ~G1043 (? (? FROM-END (< I E) (> I E)) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN))) (COMMON-LISP:LABELS ((G3083 (!) (? (COMMON-LISP:APPLY PRED (COMMON-LISP:CONS ! (? WITH-INDEX (COMMON-LISP:LIST I)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL !)))) (G3083 (COMMON-LISP:ELT SEQ I))) (COMMON-LISP:SETQ I (? FROM-END (-- I) (++ I))) (COMMON-LISP:GO ~G1043)))) (G3082 S))))) (G3079 (COMMON-LISP:LABELS ((G3084 (~G1040) (? ~G1040 ~G1040 0))) (G3084 START)))))) (G3078 (COMMON-LISP:LABELS ((G3085 (~G1039) (? ~G1039 ~G1039 (-- (COMMON-LISP:LENGTH SEQ))))) (G3085 END))))))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'%FIND-IF-SEQUENCE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL)))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS '%FIND-IF-SEQUENCE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'E COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1040 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1040 (COMMON-LISP:CONS '~G1040 (COMMON-LISP:CONS 0 COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1041 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1041 (COMMON-LISP:CONS '~G1041 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS 'FROM-END COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS 'FROM-END COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1042 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'S (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'E (COMMON-LISP:CONS '~G1042 COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'S COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 'S (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1043 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS (COMMON-LISP:CONS '< (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS '> (COMMON-LISP:CONS 'I (COMMON-LISP:CONS 'E COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN COMMON-LISP:NIL) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:APPLY (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LIST (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'I (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS (COMMON-LISP:CONS '-- (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '++ (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1043 COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1039 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1039 (COMMON-LISP:CONS '~G1039 (COMMON-LISP:CONS (COMMON-LISP:CONS '-- (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'END COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL '%FIND-IF-SEQUENCE))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN FIND-IF (PRED SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL) (WITH-INDEX COMMON-LISP:NIL)) (COMMON-LISP:BLOCK FIND-IF (COMMON-LISP:BLOCK COMMON-LISP:NIL (? (NOT (COMMON-LISP:ATOM SEQ) START END) (%FIND-IF-LIST PRED SEQ FROM-END WITH-INDEX) (%FIND-IF-SEQUENCE PRED SEQ START END FROM-END WITH-INDEX))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'FIND-IF *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ATOM (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS '%FIND-IF-LIST (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL))))) (COMMON-LISP:CONS (COMMON-LISP:CONS '%FIND-IF-SEQUENCE (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'START (COMMON-LISP:CONS 'END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS 'WITH-INDEX COMMON-LISP:NIL))))))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'FIND-IF))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'FIND (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN FIND (OBJ SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL) (TEST #'EQL)) (COMMON-LISP:BLOCK FIND (COMMON-LISP:BLOCK COMMON-LISP:NIL (FIND-IF #'(COMMON-LISP:LAMBDA (_) (FUNCALL TEST _ OBJ)) SEQ :START START :END END :FROM-END FROM-END)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'FIND *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'FIND (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '_ COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS '_ (COMMON-LISP:CONS 'OBJ COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS ':START (COMMON-LISP:CONS 'START (COMMON-LISP:CONS ':END (COMMON-LISP:CONS 'END (COMMON-LISP:CONS ':FROM-END (COMMON-LISP:CONS 'FROM-END COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'FIND))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'POSITION (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN POSITION (OBJ SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL) (TEST #'EQL)) (COMMON-LISP:BLOCK POSITION (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3086 (!) (FIND-IF #'(COMMON-LISP:LAMBDA (X I) (? (FUNCALL TEST X OBJ) (COMMON-LISP:PROGN (COMMON-LISP:SETQ ! I)))) SEQ :START START :END END :FROM-END FROM-END :WITH-INDEX COMMON-LISP:T) !)) (G3086 COMMON-LISP:NIL))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'POSITION *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'OBJ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'EQL COMMON-LISP:NIL)) COMMON-LISP:NIL)) COMMON-LISP:NIL))))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'POSITION (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'TEST (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'OBJ COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS ':START (COMMON-LISP:CONS 'START (COMMON-LISP:CONS ':END (COMMON-LISP:CONS 'END (COMMON-LISP:CONS ':FROM-END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS ':WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL))))))))))) (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'POSITION))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'POSITION-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN POSITION-IF (PRED SEQ COMMON-LISP:&KEY (START COMMON-LISP:NIL) (END COMMON-LISP:NIL) (FROM-END COMMON-LISP:NIL)) (COMMON-LISP:BLOCK POSITION-IF (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3087 (!) (FIND-IF #'(COMMON-LISP:LAMBDA (X I) (? (FUNCALL PRED X) (COMMON-LISP:PROGN (COMMON-LISP:SETQ ! I)))) SEQ :START START :END END :FROM-END FROM-END :WITH-INDEX COMMON-LISP:T) !)) (G3087 COMMON-LISP:NIL))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'POSITION-IF *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS 'COMMON-LISP:&KEY (COMMON-LISP:CONS (COMMON-LISP:CONS 'START (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL)))))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'POSITION-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'I COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'X COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '! (COMMON-LISP:CONS 'I COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS ':START (COMMON-LISP:CONS 'START (COMMON-LISP:CONS ':END (COMMON-LISP:CONS 'END (COMMON-LISP:CONS ':FROM-END (COMMON-LISP:CONS 'FROM-END (COMMON-LISP:CONS ':WITH-INDEX (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL))))))))))) (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL)) (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'POSITION-IF))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'SOME (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN SOME (PRED COMMON-LISP:&REST SEQS) (COMMON-LISP:BLOCK SOME (COMMON-LISP:BLOCK COMMON-LISP:NIL (FIND-IF PRED (COMMON-LISP:APPLY #'APPEND SEQS))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'SOME *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'SOME (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'FIND-IF (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:APPLY (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS 'APPEND COMMON-LISP:NIL)) (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'SOME))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'EVERY (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN EVERY (PRED COMMON-LISP:&REST SEQS) (COMMON-LISP:BLOCK EVERY (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3088 (~G1047) (COMMON-LISP:LABELS ((G3089 (SEQ) (COMMON-LISP:TAGBODY ~G1045 (? (NOT ~G1047) (COMMON-LISP:GO ~G1046)) (COMMON-LISP:SETQ SEQ (COMMON-LISP:CAR ~G1047)) (COMMON-LISP:LABELS ((G3090 (~G1054) (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:LABELS ((G3091 (!) (COMMON-LISP:TAGBODY ~G1055 (? (INTEGER== ! ~G1054) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:NIL))) (COMMON-LISP:LABELS ((G3092 (~G1044) (? ~G1044 ~G1044 (COMMON-LISP:RETURN-FROM EVERY COMMON-LISP:NIL)))) (G3092 (FUNCALL PRED (COMMON-LISP:ELT SEQ !)))) (COMMON-LISP:SETQ ! (INTEGER+ 1 !)) (COMMON-LISP:GO ~G1055)))) (G3091 0))))) (G3090 (INTEGER (COMMON-LISP:LENGTH SEQ)))) (COMMON-LISP:SETQ ~G1047 (COMMON-LISP:CDR ~G1047)) (COMMON-LISP:GO ~G1045) ~G1046 (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL (COMMON-LISP:PROGN COMMON-LISP:T))))) (G3089 COMMON-LISP:NIL)))) (G3088 SEQS)))))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'EVERY *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'SEQS COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'EVERY (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1047 (COMMON-LISP:CONS 'SEQS (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET* (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:TAGBODY (COMMON-LISP:CONS '~G1045 (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS (COMMON-LISP:CONS 'NOT (COMMON-LISP:CONS '~G1047 COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1046 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CAR (COMMON-LISP:CONS '~G1047 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'LET (COMMON-LISP:CONS '~G1054 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:LENGTH (COMMON-LISP:CONS 'SEQ COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'DO (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '! (COMMON-LISP:CONS 0 (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER+ (COMMON-LISP:CONS 1 (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'INTEGER== (COMMON-LISP:CONS '! (COMMON-LISP:CONS '~G1054 COMMON-LISP:NIL))) (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:FUNCTION (COMMON-LISP:CONS (COMMON-LISP:CONS (COMMON-LISP:CONS '~G1044 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1044 (COMMON-LISP:CONS '~G1044 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS 'EVERY (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL)) COMMON-LISP:NIL)) (COMMON-LISP:CONS (COMMON-LISP:CONS 'FUNCALL (COMMON-LISP:CONS 'PRED (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:ELT (COMMON-LISP:CONS 'SEQ (COMMON-LISP:CONS '! COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)) COMMON-LISP:NIL)))) COMMON-LISP:NIL)))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:SETQ (COMMON-LISP:CONS '~G1047 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CDR (COMMON-LISP:CONS '~G1047 COMMON-LISP:NIL)) COMMON-LISP:NIL))) (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:GO (COMMON-LISP:CONS '~G1045 COMMON-LISP:NIL)) (COMMON-LISP:CONS '~G1046 (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:RETURN-FROM (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:PROGN (COMMON-LISP:CONS COMMON-LISP:T COMMON-LISP:NIL)) COMMON-LISP:NIL))) COMMON-LISP:NIL))))))))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'EVERY))
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  COMMON-LISP:NIL
  
negative.code: COMMON-LISP:NIL
  (COMMON-LISP:SETQ *FUNCTIONALS* (%NCONC (COMMON-LISP:CONS 'QUEUE-LIST (COMMON-LISP:CONS 'QUEUE-FRONT COMMON-LISP:NIL)) *FUNCTIONALS*))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'MAKE-QUEUE (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN MAKE-QUEUE COMMON-LISP:NIL (COMMON-LISP:BLOCK MAKE-QUEUE (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL)))) (COMMON-LISP:SETF (COMMON-LISP:GETHASH #'MAKE-QUEUE *FUNCTION-ATOM-SOURCES*) (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS 'MAKE-QUEUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:BLOCK (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS (COMMON-LISP:CONS 'COMMON-LISP:CONS (COMMON-LISP:CONS COMMON-LISP:NIL (COMMON-LISP:CONS COMMON-LISP:NIL COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:RETURN-FROM COMMON-LISP:NIL 'MAKE-QUEUE))
  (COMMON-LISP:BLOCK COMMON-LISP:NIL (PRINT-DEFINITION (COMMON-LISP:CONS 'DEFUN (COMMON-LISP:CONS 'ENQUEUE (COMMON-LISP:CONS (COMMON-LISP:CONS 'X (COMMON-LISP:CONS 'COMMON-LISP:&REST (COMMON-LISP:CONS 'VALS COMMON-LISP:NIL))) COMMON-LISP:NIL)))) (COMMON-LISP:PROGN (COMMON-LISP:DEFUN ENQUEUE (X COMMON-LISP:&REST VALS) (COMMON-LISP:BLOCK ENQUEUE (COMMON-LISP:BLOCK COMMON-LISP:NIL (COMMON-LISP:RPLACA X (COMMON-LISP:CDR (COMMON-LISP:RPLACD (COMMON-LISP:LABELS ((G3614 (~G1426) (? ~G1426 ~G1426 X))) (G3614 (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 '~G1426 COMMON-LISP:NIL) (COMMON-LISP:CONS (COMMON-LISP:CONS '? (COMMON-LISP:CONS '~G1426 (COMMON-LISP:CONS '~G1426 (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 ((G3615 (~G1427) (? (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)))) ~G1427)) (G3615 (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 '~G1427 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 '~G1427 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
  