anchor.diff:  (CL:PROGN (CL:DEFUN QUASIQUOTE-EXPAND (X) (CL:CAR (%QUASIQUOTE-EXPAND (CL:LIST X)))) (CL:SETF (CL:GETHASH #'QUASIQUOTE-EXPAND *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:CAR (CL:CONS (CL:CONS '%QUASIQUOTE-EXPAND (CL:CONS (CL:CONS 'CL:LIST (CL:CONS 'X NIL)) NIL)) NIL)) NIL))))
   (CL:SETQ *QUASIQUOTE-EXPAND* #'QUASIQUOTE-EXPAND)
   (CL:PROGN (CL:DEFUN IDENTITY (X) X) (CL:SETF (CL:GETHASH #'IDENTITY *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS 'X NIL))))
  -(CL:PROGN (CL:DEFUN + (CL:&REST X) (CL:LABELS ((G3599 (A) (? A (CL:APPLY (? (CONS? A) #'APPEND (STRING? A) #'STRING-CONCAT #'NUMBER+) X) (? (CL:CDR X) (CL:APPLY #'+ (CL:CDR X)))))) (G3599 (CL:CAR X)))) (CL:SETF (CL:GETHASH #'+ *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'CL:&REST (CL:CONS 'X NIL)) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS 'A NIL) (CL:CONS (CL:CONS '? (CL:CONS 'A (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'CONS? (CL:CONS 'A NIL)) (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'APPEND NIL)) (CL:CONS (CL:CONS 'STRING? (CL:CONS 'A NIL)) (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'STRING-CONCAT NIL)) (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'NUMBER+ NIL)) NIL)))))) (CL:CONS 'X NIL))) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS '+ NIL)) (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) NIL))) NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'X NIL)) NIL)) NIL))))
  +(CL:PROGN (CL:DEFUN + (CL:&REST X) (CL:LABELS ((G3655 (A) (? A (CL:APPLY (? (CONS? A) #'APPEND (STRING? A) #'STRING-CONCAT #'NUMBER+) X) (? (CL:CDR X) (CL:APPLY #'+ (CL:CDR X)))))) (G3655 (CL:CAR X)))) (CL:SETF (CL:GETHASH #'+ *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'CL:&REST (CL:CONS 'X NIL)) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS 'A NIL) (CL:CONS (CL:CONS '? (CL:CONS 'A (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'CONS? (CL:CONS 'A NIL)) (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'APPEND NIL)) (CL:CONS (CL:CONS 'STRING? (CL:CONS 'A NIL)) (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'STRING-CONCAT NIL)) (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'NUMBER+ NIL)) NIL)))))) (CL:CONS 'X NIL))) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS '+ NIL)) (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) NIL))) NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'X NIL)) NIL)) NIL))))
   (CL:PROGN (CL:DEFUN - (CL:&REST X) (CL:APPLY #'NUMBER- X)) (CL:SETF (CL:GETHASH #'- *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'CL:&REST (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'NUMBER- NIL)) (CL:CONS 'X NIL))) NIL))))
   (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'FUNCALL (CL:CONS (CL:CONS 'FUN (CL:CONS 'CL:&REST (CL:CONS 'ARGS NIL))) NIL)))) (CL:PROGN (CL:DEFUN FUNCALL (FUN CL:&REST ARGS) (CL:BLOCK FUNCALL (CL:BLOCK NIL (CL:APPLY FUN ARGS)))) (CL:SETF (CL:GETHASH #'FUNCALL *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'FUN (CL:CONS 'CL:&REST (CL:CONS 'ARGS NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'FUNCALL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS 'FUN (CL:CONS 'ARGS NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'FUNCALL))
   (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS 'CAAR (CL:CONS 'CADR (CL:CONS 'CDAR (CL:CONS 'CDDR (CL:CONS 'CADAR (CL:CONS 'CDDAR (CL:CONS 'CAADAR (CL:CONS 'CADDR (CL:CONS 'CAADR (CL:CONS 'CDDDR (CL:CONS 'CDADAR (CL:CONS 'CAADDR (CL:CONS 'CADDAR (CL:CONS 'CDDDAR (CL:CONS 'CDDDDR (CL:CONS 'CADADR (CL:CONS 'CADADDR (CL:CONS 'CADADAR (CL:CONS 'CDDADAR NIL))))))))))))))))))) *FUNCTIONALS*))
  
positive.code: (CL:PROGN (CL:DEFUN CADADAR (LST) (CADR (CADR (CL:CAR LST)))) (CL:SETF (CL:GETHASH #'CADADAR *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'LST NIL) (CL:CONS (CL:CONS 'CADR (CL:CONS (CL:CONS 'CADR (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'LST NIL)) NIL)) NIL)) NIL))))
  (CL:PROGN (CL:DEFUN CDDADAR (LST) (CDDR (CADR (CL:CAR LST)))) (CL:SETF (CL:GETHASH #'CDDADAR *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'LST NIL) (CL:CONS (CL:CONS 'CDDR (CL:CONS (CL:CONS 'CADR (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'LST NIL)) NIL)) NIL)) NIL))))
  (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS 'EQUAL NIL) *FUNCTIONALS*))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'EQUAL (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) NIL)))) (CL:PROGN (CL:DEFUN EQUAL (X Y) (CL:BLOCK EQUAL (CL:BLOCK NIL (? (CL:LABELS ((G3600 (~G1412) (? ~G1412 ~G1412 (CL:ATOM Y)))) (G3600 (CL:ATOM X))) (EQL X Y) (EQUAL (CL:CAR X) (CL:CAR Y)) (EQUAL (CL:CDR X) (CL:CDR Y)))))) (CL:SETF (CL:GETHASH #'EQUAL *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'EQUAL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1412 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1412 (CL:CONS '~G1412 (CL:CONS (CL:CONS 'CL:ATOM (CL:CONS 'Y NIL)) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:ATOM (CL:CONS 'X NIL)) NIL)) (CL:CONS (CL:CONS 'EQL (CL:CONS 'X (CL:CONS 'Y NIL))) (CL:CONS (CL:CONS 'EQUAL (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'Y NIL)) NIL))) (CL:CONS (CL:CONS 'EQUAL (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'Y NIL)) NIL))) NIL))))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'EQUAL))
  NIL
  NIL
  (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS '>= (CL:CONS '<= (CL:CONS 'CHARACTER>= (CL:CONS 'CHARACTER<= (CL:CONS 'INTEGER>= (CL:CONS 'INTEGER<= (CL:CONS 'NUMBER>= (CL:CONS 'NUMBER<= NIL)))))))) *FUNCTIONALS*))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS '>= (CL:CONS (CL:CONS 'N (CL:CONS 'CL:&REST (CL:CONS 'X NIL))) NIL)))) (CL:PROGN (CL:DEFUN >= (N CL:&REST X) (CL:BLOCK >= (CL:BLOCK NIL (CL:BLOCK NIL (CL:LABELS ((G3601 (~G1423) (CL:LABELS ((G3602 (I) (CL:TAGBODY ~G1421 (? (NOT ~G1423) (CL:GO ~G1422)) (CL:SETQ I (CL:CAR ~G1423)) (CL:LABELS ((G3603 (~G1413) (? ~G1413 ~G1413 (CL:LABELS ((G3604 (~G1414) (? ~G1414 ~G1414 (CL:RETURN-FROM NIL NIL)))) (G3604 (> N I)))))) (G3603 (== N I))) (CL:SETQ N I) (CL:SETQ ~G1423 (CL:CDR ~G1423)) (CL:GO ~G1421) ~G1422 (CL:RETURN-FROM NIL (CL:PROGN T))))) (G3602 NIL)))) (G3601 X)))))) (CL:SETF (CL:GETHASH #'>= *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'N (CL:CONS 'CL:&REST (CL:CONS 'X NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS '>= (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS '~G1423 (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'I (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1421 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1423 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1422 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'I (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1423 NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1413 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1413 (CL:CONS '~G1413 (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1414 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1414 (CL:CONS '~G1414 (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS NIL NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '> (CL:CONS 'N (CL:CONS 'I NIL))) NIL)) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '== (CL:CONS 'N (CL:CONS 'I NIL))) NIL)) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'N (CL:CONS 'I NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '~G1423 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1423 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1421 NIL)) (CL:CONS '~G1422 (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS T NIL)) NIL)) NIL)))))))))) NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL '>=))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS '<= (CL:CONS (CL:CONS 'N (CL:CONS 'CL:&REST (CL:CONS 'X NIL))) NIL)))) (CL:PROGN (CL:DEFUN <= (N CL:&REST X) (CL:BLOCK <= (CL:BLOCK NIL (CL:BLOCK NIL (CL:LABELS ((G3605 (~G1426) (CL:LABELS ((G3606 (I) (CL:TAGBODY ~G1424 (? (NOT ~G1426) (CL:GO ~G1425)) (CL:SETQ I (CL:CAR ~G1426)) (CL:LABELS ((G3607 (~G1415) (? ~G1415 ~G1415 (CL:LABELS ((G3608 (~G1416) (? ~G1416 ~G1416 (CL:RETURN-FROM NIL NIL)))) (G3608 (< N I)))))) (G3607 (== N I))) (CL:SETQ N I) (CL:SETQ ~G1426 (CL:CDR ~G1426)) (CL:GO ~G1424) ~G1425 (CL:RETURN-FROM NIL (CL:PROGN T))))) (G3606 NIL)))) (G3605 X)))))) (CL:SETF (CL:GETHASH #'<= *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'N (CL:CONS 'CL:&REST (CL:CONS 'X NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS '<= (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS '~G1426 (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'I (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1424 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1426 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1425 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'I (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1426 NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1415 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1415 (CL:CONS '~G1415 (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1416 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1416 (CL:CONS '~G1416 (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS NIL NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '< (CL:CONS 'N (CL:CONS 'I NIL))) NIL)) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '== (CL:CONS 'N (CL:CONS 'I NIL))) NIL)) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'N (CL:CONS 'I NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '~G1426 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1426 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1424 NIL)) (CL:CONS '~G1425 (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS T NIL)) NIL)) NIL)))))))))) NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL '<=))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'CHARACTER>= (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) NIL)))) (CL:PROGN (CL:DEFUN CHARACTER>= (X Y) (CL:BLOCK CHARACTER>= (CL:BLOCK NIL (CL:LABELS ((G3609 (~G1417) (? ~G1417 ~G1417 (CHARACTER> X Y)))) (G3609 (CHARACTER== X Y)))))) (CL:SETF (CL:GETHASH #'CHARACTER>= *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'CHARACTER>= (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1417 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1417 (CL:CONS '~G1417 (CL:CONS (CL:CONS 'CHARACTER> (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'CHARACTER== (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'CHARACTER>=))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'CHARACTER<= (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) NIL)))) (CL:PROGN (CL:DEFUN CHARACTER<= (X Y) (CL:BLOCK CHARACTER<= (CL:BLOCK NIL (CL:LABELS ((G3610 (~G1418) (? ~G1418 ~G1418 (CHARACTER< X Y)))) (G3610 (CHARACTER== X Y)))))) (CL:SETF (CL:GETHASH #'CHARACTER<= *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'CHARACTER<= (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1418 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1418 (CL:CONS '~G1418 (CL:CONS (CL:CONS 'CHARACTER< (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'CHARACTER== (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'CHARACTER<=))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'INTEGER>= (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) NIL)))) (CL:PROGN (CL:DEFUN INTEGER>= (X Y) (CL:BLOCK INTEGER>= (CL:BLOCK NIL (CL:LABELS ((G3611 (~G1419) (? ~G1419 ~G1419 (INTEGER> X Y)))) (G3611 (INTEGER== X Y)))))) (CL:SETF (CL:GETHASH #'INTEGER>= *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'INTEGER>= (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1419 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1419 (CL:CONS '~G1419 (CL:CONS (CL:CONS 'INTEGER> (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'INTEGER== (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'INTEGER>=))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'INTEGER<= (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) NIL)))) (CL:PROGN (CL:DEFUN INTEGER<= (X Y) (CL:BLOCK INTEGER<= (CL:BLOCK NIL (CL:LABELS ((G3612 (~G1420) (? ~G1420 ~G1420 (INTEGER< X Y)))) (G3612 (INTEGER== X Y)))))) (CL:SETF (CL:GETHASH #'INTEGER<= *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'INTEGER<= (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1420 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1420 (CL:CONS '~G1420 (CL:CONS (CL:CONS 'INTEGER< (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'INTEGER== (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'INTEGER<=))
  (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS 'ZERO? (CL:CONS 'EVEN? (CL:CONS 'ODD? (CL:CONS 'END? (CL:CONS 'KEYWORD? NIL))))) *FUNCTIONALS*))
  NIL
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'ZERO? (CL:CONS (CL:CONS 'X NIL) NIL)))) (CL:PROGN (CL:DEFUN ZERO? (X) (CL:BLOCK ZERO? (CL:BLOCK NIL (== 0 X)))) (CL:SETF (CL:GETHASH #'ZERO? *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'ZERO? (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '== (CL:CONS 0 (CL:CONS 'X NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'ZERO?))
  
negative.code: (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS 'LIST-SYMBOL NIL) *FUNCTIONALS*))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'LIST-SYMBOL (CL:CONS (CL:CONS 'X NIL) NIL)))) (CL:PROGN (CL:DEFUN LIST-SYMBOL (X) (CL:BLOCK LIST-SYMBOL (CL:BLOCK NIL (MAKE-SYMBOL (LIST-STRING X))))) (CL:SETF (CL:GETHASH #'LIST-SYMBOL *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'LIST-SYMBOL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'MAKE-SYMBOL (CL:CONS (CL:CONS 'LIST-STRING (CL:CONS 'X NIL)) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'LIST-SYMBOL))
  (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS 'SUBSEQ NIL) *FUNCTIONALS*))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'LIST-SUBSEQ (CL:CONS (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'CL:&OPTIONAL (CL:CONS (CL:CONS 'END (CL:CONS 999999 NIL)) NIL)))) NIL)))) (CL:PROGN (CL:DEFUN LIST-SUBSEQ (SEQ START CL:&OPTIONAL (END 999999)) (CL:BLOCK LIST-SUBSEQ (CL:BLOCK NIL (? (? SEQ (NOT (== START END))) (CL:PROGN (? (> START END) (CL:LABELS ((G3700 (~G1515) (CL:PROGN (CL:SETQ START END) (CL:SETQ END ~G1515)))) (G3700 START))) (CL:LABELS ((COPY-NUM (LST LEN) (? LST (? (< 0 LEN) (CL:CONS (CL:CAR LST) (COPY-NUM (CL:CDR LST) (-- LEN))))))) (COPY-NUM (CL:NTHCDR START SEQ) (- END START)))))))) (CL:SETF (CL:GETHASH #'LIST-SUBSEQ *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'CL:&OPTIONAL (CL:CONS (CL:CONS 'END (CL:CONS 999999 NIL)) NIL)))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'LIST-SUBSEQ (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '? (CL:CONS 'SEQ (CL:CONS (CL:CONS 'NOT (CL:CONS (CL:CONS '== (CL:CONS 'START (CL:CONS 'END NIL))) NIL)) NIL))) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '> (CL:CONS 'START (CL:CONS 'END NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1515 NIL) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'START (CL:CONS 'END NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'END (CL:CONS '~G1515 NIL))) NIL))) NIL)) NIL)) (CL:CONS 'START NIL)) NIL))) (CL:CONS (CL:CONS 'CL:LABELS (CL:CONS (CL:CONS (CL:CONS 'COPY-NUM (CL:CONS (CL:CONS 'LST (CL:CONS 'LEN NIL)) (CL:CONS (CL:CONS '? (CL:CONS 'LST (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '< (CL:CONS 0 (CL:CONS 'LEN NIL))) (CL:CONS (CL:CONS 'CL:CONS (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'LST NIL)) (CL:CONS (CL:CONS 'COPY-NUM (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'LST NIL)) (CL:CONS (CL:CONS '-- (CL:CONS 'LEN NIL)) NIL))) NIL))) NIL))) NIL))) NIL))) NIL) (CL:CONS (CL:CONS 'COPY-NUM (CL:CONS (CL:CONS 'CL:NTHCDR (CL:CONS 'START (CL:CONS 'SEQ NIL))) (CL:CONS (CL:CONS '- (CL:CONS 'END (CL:CONS 'START NIL))) NIL))) NIL))) NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'LIST-SUBSEQ))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS '%SUBSEQ-SEQUENCE (CL:CONS (CL:CONS 'MAKER (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'END NIL)))) NIL)))) (CL:PROGN (CL:DEFUN %SUBSEQ-SEQUENCE (MAKER SEQ START END) (CL:BLOCK %SUBSEQ-SEQUENCE (CL:BLOCK NIL (? (NOT (== START END)) (CL:PROGN (CL:LABELS ((G3701 (!) (? (< START !) (CL:PROGN (? (>= END !) (CL:PROGN (CL:SETQ END !))) (CL:LABELS ((G3702 (L) (CL:LABELS ((G3703 (S) (CL:LABELS ((G3704 (~G1516) (CL:BLOCK NIL (CL:LABELS ((G3705 (X) (CL:TAGBODY ~G1519 (? (INTEGER== X ~G1516) (CL:RETURN-FROM NIL (CL:PROGN S))) (CL:PROGN (=-ELT (CL:ELT SEQ (+ START X)) S X)) (CL:SETQ X (INTEGER+ 1 X)) (CL:GO ~G1519)))) (G3705 0))))) (G3704 (INTEGER L))))) (G3703 (FUNCALL MAKER L))))) (G3702 (- END START))))))) (G3701 (CL:LENGTH SEQ)))))))) (CL:SETF (CL:GETHASH #'%SUBSEQ-SEQUENCE *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'MAKER (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'END NIL)))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS '%SUBSEQ-SEQUENCE (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '& (CL:CONS (CL:CONS 'NOT (CL:CONS (CL:CONS '== (CL:CONS 'START (CL:CONS 'END NIL))) NIL)) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '! NIL) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '< (CL:CONS 'START (CL:CONS '! NIL))) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '>= (CL:CONS 'END (CL:CONS '! NIL))) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'END (CL:CONS '! NIL))) NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS 'L NIL) (CL:CONS (CL:CONS 'LET (CL:CONS 'S (CL:CONS (CL:CONS 'FUNCALL (CL:CONS 'MAKER (CL:CONS 'L NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1516 NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS 'X (CL:CONS 0 NIL)) NIL) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1519 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'INTEGER== (CL:CONS 'X (CL:CONS '~G1516 NIL))) (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS 'S NIL)) NIL)) NIL))) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS '=-ELT (CL:CONS (CL:CONS 'CL:ELT (CL:CONS 'SEQ (CL:CONS (CL:CONS '+ (CL:CONS 'START (CL:CONS 'X NIL))) NIL))) (CL:CONS 'S (CL:CONS 'X NIL)))) NIL)) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'X (CL:CONS (CL:CONS 'INTEGER+ (CL:CONS 1 (CL:CONS 'X NIL))) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1519 NIL)) NIL)))))) NIL))) NIL))) NIL)) NIL)) (CL:CONS (CL:CONS 'INTEGER (CL:CONS 'L NIL)) NIL)) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '- (CL:CONS 'END (CL:CONS 'START NIL))) NIL)) NIL))) NIL))) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:LENGTH (CL:CONS 'SEQ NIL)) NIL)) NIL)) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL '%SUBSEQ-SEQUENCE))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'SUBSEQ (CL:CONS (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'CL:&OPTIONAL (CL:CONS (CL:CONS 'END (CL:CONS 99999 NIL)) NIL)))) NIL)))) (CL:PROGN (CL:DEFUN SUBSEQ (SEQ START CL:&OPTIONAL (END 99999)) (CL:BLOCK SUBSEQ (CL:BLOCK NIL (? SEQ (CL:PROGN (? (> START END) (CL:LABELS ((G3706 (~G1517) (CL:PROGN (CL:SETQ START END) (CL:SETQ END ~G1517)))) (G3706 START))) (CL:LABELS ((G3707 (~G1518) (? (CONS? ~G1518) (LIST-SUBSEQ SEQ START END) (STRING? ~G1518) (STRING-SUBSEQ SEQ START END) (ARRAY? ~G1518) (%SUBSEQ-SEQUENCE #'MAKE-ARRAY SEQ START END) (ERROR "Type of ~A not supported." SEQ)))) (G3707 SEQ))))))) (CL:SETF (CL:GETHASH #'SUBSEQ *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'CL:&OPTIONAL (CL:CONS (CL:CONS 'END (CL:CONS 99999 NIL)) NIL)))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'SUBSEQ (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '? (CL:CONS 'SEQ (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '> (CL:CONS 'START (CL:CONS 'END NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1517 NIL) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'START (CL:CONS 'END NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'END (CL:CONS '~G1517 NIL))) NIL))) NIL)) NIL)) (CL:CONS 'START NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1518 NIL) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'CONS? (CL:CONS '~G1518 NIL)) (CL:CONS (CL:CONS 'LIST-SUBSEQ (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'END NIL)))) (CL:CONS (CL:CONS 'STRING? (CL:CONS '~G1518 NIL)) (CL:CONS (CL:CONS 'STRING-SUBSEQ (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'END NIL)))) (CL:CONS (CL:CONS 'ARRAY? (CL:CONS '~G1518 NIL)) (CL:CONS (CL:CONS '%SUBSEQ-SEQUENCE (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'MAKE-ARRAY NIL)) (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'END NIL))))) (CL:CONS (CL:CONS 'ERROR (CL:CONS "Type of ~A not supported." (CL:CONS 'SEQ NIL))) NIL)))))))) NIL)) NIL)) (CL:CONS 'SEQ NIL)) NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'SUBSEQ))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'STRING-SUBSEQ (CL:CONS (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'CL:&OPTIONAL (CL:CONS (CL:CONS 'END (CL:CONS 99999 NIL)) NIL)))) NIL)))) (CL:PROGN (CL:DEFUN STRING-SUBSEQ (SEQ START CL:&OPTIONAL (END 99999)) (CL:BLOCK STRING-SUBSEQ (CL:BLOCK NIL (? (== START END) "" (CL:LABELS ((G3708 (SEQLEN) (? (< START SEQLEN) (CL:PROGN (? (>= END SEQLEN) (CL:PROGN (CL:PROGN (CL:SETQ END SEQLEN)))) (CL:LABELS ((G3709 (L) (CL:LABELS ((G3710 (S) (CL:LABELS ((G3711 (~G1520) (CL:BLOCK NIL (CL:LABELS ((G3712 (X) (CL:TAGBODY ~G1521 (? (INTEGER== X ~G1520) (CL:RETURN-FROM NIL (CL:PROGN S))) (CL:PROGN (CL:SETQ S (+ S (STRING (CL:ELT SEQ (+ START X)))))) (CL:SETQ X (INTEGER+ 1 X)) (CL:GO ~G1521)))) (G3712 0))))) (G3711 (INTEGER L))))) (G3710 (CL:MAKE-STRING 0))))) (G3709 (- END START))))))) (G3708 (CL:LENGTH SEQ))))))) (CL:SETF (CL:GETHASH #'STRING-SUBSEQ *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'CL:&OPTIONAL (CL:CONS (CL:CONS 'END (CL:CONS 99999 NIL)) NIL)))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'STRING-SUBSEQ (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '== (CL:CONS 'START (CL:CONS 'END NIL))) (CL:CONS "" (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS 'SEQLEN NIL) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '< (CL:CONS 'START (CL:CONS 'SEQLEN NIL))) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '>= (CL:CONS 'END (CL:CONS 'SEQLEN NIL))) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'END (CL:CONS 'SEQLEN NIL))) NIL)) NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS 'L NIL) (CL:CONS (CL:CONS 'LET (CL:CONS 'S (CL:CONS (CL:CONS 'CL:MAKE-STRING (CL:CONS 0 NIL)) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1520 NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS 'X (CL:CONS 0 NIL)) NIL) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1521 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'INTEGER== (CL:CONS 'X (CL:CONS '~G1520 NIL))) (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS 'S NIL)) NIL)) NIL))) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'S (CL:CONS (CL:CONS '+ (CL:CONS 'S (CL:CONS (CL:CONS 'STRING (CL:CONS (CL:CONS 'CL:ELT (CL:CONS 'SEQ (CL:CONS (CL:CONS '+ (CL:CONS 'START (CL:CONS 'X NIL))) NIL))) NIL)) NIL))) NIL))) NIL)) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'X (CL:CONS (CL:CONS 'INTEGER+ (CL:CONS 1 (CL:CONS 'X NIL))) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1521 NIL)) NIL)))))) NIL))) NIL))) NIL)) NIL)) (CL:CONS (CL:CONS 'INTEGER (CL:CONS 'L NIL)) NIL)) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '- (CL:CONS 'END (CL:CONS 'START NIL))) NIL)) NIL))) NIL))) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:LENGTH (CL:CONS 'SEQ NIL)) NIL)) NIL)))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'STRING-SUBSEQ))
  (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS 'FIND (CL:CONS 'POSITION NIL)) *FUNCTIONALS*))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS '%FIND-IF-LIST (CL:CONS (CL:CONS 'PRED (CL:CONS 'SEQ (CL:CONS 'FROM-END (CL:CONS 'WITH-INDEX NIL)))) NIL)))) (CL:PROGN (CL:DEFUN %FIND-IF-LIST (PRED SEQ FROM-END WITH-INDEX) (CL:BLOCK %FIND-IF-LIST (CL:BLOCK NIL (CL:LABELS ((G3713 (!) (? WITH-INDEX (CL:LABELS ((G3714 (IDX) (CL:BLOCK NIL (CL:LABELS ((G3715 (~G1530) (CL:LABELS ((G3716 (!) (CL:TAGBODY ~G1528 (? (NOT ~G1530) (CL:GO ~G1529)) (CL:SETQ ! (CL:CAR ~G1530)) (? (FUNCALL PRED ! IDX) (CL:RETURN-FROM NIL !)) (CL:PROGN (CL:SETQ IDX (NUMBER+ IDX 1))) (CL:SETQ ~G1530 (CL:CDR ~G1530)) (CL:GO ~G1528) ~G1529 (CL:RETURN-FROM NIL (CL:PROGN NIL))))) (G3716 NIL)))) (G3715 !))))) (G3714 0)) (CL:BLOCK NIL (CL:LABELS ((G3717 (~G1533) (CL:LABELS ((G3718 (!) (CL:TAGBODY ~G1531 (? (NOT ~G1533) (CL:GO ~G1532)) (CL:SETQ ! (CL:CAR ~G1533)) (? (FUNCALL PRED !) (CL:RETURN-FROM NIL !)) (CL:SETQ ~G1533 (CL:CDR ~G1533)) (CL:GO ~G1531) ~G1532 (CL:RETURN-FROM NIL (CL:PROGN NIL))))) (G3718 NIL)))) (G3717 !)))))) (G3713 (? FROM-END (REVERSE SEQ) SEQ)))))) (CL:SETF (CL:GETHASH #'%FIND-IF-LIST *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'PRED (CL:CONS 'SEQ (CL:CONS 'FROM-END (CL:CONS 'WITH-INDEX NIL)))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS '%FIND-IF-LIST (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '! NIL) (CL:CONS (CL:CONS '? (CL:CONS 'WITH-INDEX (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS 'IDX NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS '~G1530 (CL:CONS '! NIL)) (CL:CONS (CL:CONS '! (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1528 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1530 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1529 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '! (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1530 NIL)) NIL))) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'FUNCALL (CL:CONS 'PRED (CL:CONS '! (CL:CONS 'IDX NIL)))) (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS '! NIL))) NIL))) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'IDX (CL:CONS (CL:CONS 'NUMBER+ (CL:CONS 'IDX (CL:CONS 1 NIL))) NIL))) NIL)) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '~G1530 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1530 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1528 NIL)) (CL:CONS '~G1529 (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS NIL NIL)) NIL)) NIL)))))))))) NIL))) NIL))) NIL)) NIL)) (CL:CONS 0 NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS '~G1533 (CL:CONS '! NIL)) (CL:CONS (CL:CONS '! (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1531 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1533 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1532 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '! (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1533 NIL)) NIL))) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'FUNCALL (CL:CONS 'PRED (CL:CONS '! NIL))) (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS '! NIL))) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '~G1533 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1533 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1531 NIL)) (CL:CONS '~G1532 (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS NIL NIL)) NIL)) NIL))))))))) NIL))) NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '? (CL:CONS 'FROM-END (CL:CONS (CL:CONS 'REVERSE (CL:CONS 'SEQ NIL)) (CL:CONS 'SEQ NIL)))) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL '%FIND-IF-LIST))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS '%FIND-IF-SEQUENCE (CL:CONS (CL:CONS 'PRED (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'END (CL:CONS 'FROM-END (CL:CONS 'WITH-INDEX NIL)))))) NIL)))) (CL:PROGN (CL:DEFUN %FIND-IF-SEQUENCE (PRED SEQ START END FROM-END WITH-INDEX) (CL:BLOCK %FIND-IF-SEQUENCE (CL:BLOCK NIL (? SEQ (? (< 0 (CL:LENGTH SEQ)) (CL:LABELS ((G3719 (E) (CL:LABELS ((G3720 (S) (? (CL:LABELS ((G3721 (~G1524) (? ~G1524 ~G1524 (? (< S E) FROM-END)))) (G3721 (? (> S E) (NOT FROM-END)))) (CL:LABELS ((G3722 (~G1525) (CL:PROGN (CL:SETQ S E) (CL:SETQ E ~G1525)))) (G3722 S))) (CL:BLOCK NIL (CL:LABELS ((G3723 (I) (CL:TAGBODY ~G1526 (? (? FROM-END (< I E) (> I E)) (CL:RETURN-FROM NIL (CL:PROGN))) (CL:LABELS ((G3724 (!) (? (CL:APPLY PRED (CL:CONS ! (? WITH-INDEX (CL:LIST I)))) (CL:RETURN-FROM NIL !)))) (G3724 (CL:ELT SEQ I))) (CL:SETQ I (? FROM-END (-- I) (++ I))) (CL:GO ~G1526)))) (G3723 S))))) (G3720 (CL:LABELS ((G3725 (~G1523) (? ~G1523 ~G1523 0))) (G3725 START)))))) (G3719 (CL:LABELS ((G3726 (~G1522) (? ~G1522 ~G1522 (-- (CL:LENGTH SEQ))))) (G3726 END))))))))) (CL:SETF (CL:GETHASH #'%FIND-IF-SEQUENCE *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'PRED (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'END (CL:CONS 'FROM-END (CL:CONS 'WITH-INDEX NIL)))))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS '%FIND-IF-SEQUENCE (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '? (CL:CONS 'SEQ (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '< (CL:CONS 0 (CL:CONS (CL:CONS 'CL:LENGTH (CL:CONS 'SEQ NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS 'E NIL) (CL:CONS (CL:CONS 'LET (CL:CONS 'S (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1523 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1523 (CL:CONS '~G1523 (CL:CONS 0 NIL)))) NIL)) NIL)) (CL:CONS 'START NIL)) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1524 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1524 (CL:CONS '~G1524 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '< (CL:CONS 'S (CL:CONS 'E NIL))) (CL:CONS 'FROM-END NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '> (CL:CONS 'S (CL:CONS 'E NIL))) (CL:CONS (CL:CONS 'NOT (CL:CONS 'FROM-END NIL)) NIL))) NIL)) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1525 NIL) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'S (CL:CONS 'E NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'E (CL:CONS '~G1525 NIL))) NIL))) NIL)) NIL)) (CL:CONS 'S NIL)) NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET (CL:CONS 'I (CL:CONS 'S (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1526 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '? (CL:CONS 'FROM-END (CL:CONS (CL:CONS '< (CL:CONS 'I (CL:CONS 'E NIL))) (CL:CONS (CL:CONS '> (CL:CONS 'I (CL:CONS 'E NIL))) NIL)))) (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS (CL:CONS 'CL:PROGN NIL) NIL))) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '! NIL) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS 'PRED (CL:CONS (CL:CONS 'CL:CONS (CL:CONS '! (CL:CONS (CL:CONS '? (CL:CONS 'WITH-INDEX (CL:CONS (CL:CONS 'CL:LIST (CL:CONS 'I NIL)) NIL))) NIL))) NIL))) (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS '! NIL))) NIL))) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:ELT (CL:CONS 'SEQ (CL:CONS 'I NIL))) NIL)) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'I (CL:CONS (CL:CONS '? (CL:CONS 'FROM-END (CL:CONS (CL:CONS '-- (CL:CONS 'I NIL)) (CL:CONS (CL:CONS '++ (CL:CONS 'I NIL)) NIL)))) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1526 NIL)) NIL)))))) NIL)))) NIL))) NIL))))) NIL)) NIL)) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1522 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1522 (CL:CONS '~G1522 (CL:CONS (CL:CONS '-- (CL:CONS (CL:CONS 'CL:LENGTH (CL:CONS 'SEQ NIL)) NIL)) NIL)))) NIL)) NIL)) (CL:CONS 'END NIL)) NIL)) NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL '%FIND-IF-SEQUENCE))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'FIND-IF (CL:CONS (CL:CONS 'PRED (CL:CONS 'SEQ (CL:CONS 'CL:&KEY (CL:CONS (CL:CONS 'START (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'FROM-END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'WITH-INDEX (CL:CONS NIL NIL)) NIL))))))) NIL)))) (CL:PROGN (CL:DEFUN FIND-IF (PRED SEQ CL:&KEY (START NIL) (END NIL) (FROM-END NIL) (WITH-INDEX NIL)) (CL:BLOCK FIND-IF (CL:BLOCK NIL (? (NOT (CL:ATOM SEQ) START END) (%FIND-IF-LIST PRED SEQ FROM-END WITH-INDEX) (%FIND-IF-SEQUENCE PRED SEQ START END FROM-END WITH-INDEX))))) (CL:SETF (CL:GETHASH #'FIND-IF *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'PRED (CL:CONS 'SEQ (CL:CONS 'CL:&KEY (CL:CONS (CL:CONS 'START (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'FROM-END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'WITH-INDEX (CL:CONS NIL NIL)) NIL))))))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'FIND-IF (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS (CL:CONS 'CL:ATOM (CL:CONS 'SEQ NIL)) (CL:CONS 'START (CL:CONS 'END NIL)))) (CL:CONS (CL:CONS '%FIND-IF-LIST (CL:CONS 'PRED (CL:CONS 'SEQ (CL:CONS 'FROM-END (CL:CONS 'WITH-INDEX NIL))))) (CL:CONS (CL:CONS '%FIND-IF-SEQUENCE (CL:CONS 'PRED (CL:CONS 'SEQ (CL:CONS 'START (CL:CONS 'END (CL:CONS 'FROM-END (CL:CONS 'WITH-INDEX NIL))))))) NIL)))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'FIND-IF))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'FIND (CL:CONS (CL:CONS 'OBJ (CL:CONS 'SEQ (CL:CONS 'CL:&KEY (CL:CONS (CL:CONS 'START (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'FROM-END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'TEST (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'EQL NIL)) NIL)) NIL))))))) NIL)))) (CL:PROGN (CL:DEFUN FIND (OBJ SEQ CL:&KEY (START NIL) (END NIL) (FROM-END NIL) (TEST #'EQL)) (CL:BLOCK FIND (CL:BLOCK NIL (FIND-IF #'(CL:LAMBDA (_) (FUNCALL TEST _ OBJ)) SEQ :START START :END END :FROM-END FROM-END)))) (CL:SETF (CL:GETHASH #'FIND *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'OBJ (CL:CONS 'SEQ (CL:CONS 'CL:&KEY (CL:CONS (CL:CONS 'START (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'FROM-END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'TEST (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'EQL NIL)) NIL)) NIL))))))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'FIND (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'FIND-IF (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '_ NIL) (CL:CONS (CL:CONS 'FUNCALL (CL:CONS 'TEST (CL:CONS '_ (CL:CONS 'OBJ NIL)))) NIL)) NIL)) (CL:CONS 'SEQ (CL:CONS ':START (CL:CONS 'START (CL:CONS ':END (CL:CONS 'END (CL:CONS ':FROM-END (CL:CONS 'FROM-END NIL))))))))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'FIND))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'POSITION (CL:CONS (CL:CONS 'OBJ (CL:CONS 'SEQ (CL:CONS 'CL:&KEY (CL:CONS (CL:CONS 'START (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'FROM-END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'TEST (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'EQL NIL)) NIL)) NIL))))))) NIL)))) (CL:PROGN (CL:DEFUN POSITION (OBJ SEQ CL:&KEY (START NIL) (END NIL) (FROM-END NIL) (TEST #'EQL)) (CL:BLOCK POSITION (CL:BLOCK NIL (CL:LABELS ((G3727 (!) (FIND-IF #'(CL:LAMBDA (X I) (? (FUNCALL TEST X OBJ) (CL:PROGN (CL:SETQ ! I)))) SEQ :START START :END END :FROM-END FROM-END :WITH-INDEX T) !)) (G3727 NIL))))) (CL:SETF (CL:GETHASH #'POSITION *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'OBJ (CL:CONS 'SEQ (CL:CONS 'CL:&KEY (CL:CONS (CL:CONS 'START (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'FROM-END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'TEST (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'EQL NIL)) NIL)) NIL))))))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'POSITION (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '! NIL) (CL:CONS (CL:CONS 'FIND-IF (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS 'X (CL:CONS 'I NIL)) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'FUNCALL (CL:CONS 'TEST (CL:CONS 'X (CL:CONS 'OBJ NIL)))) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '! (CL:CONS 'I NIL))) NIL)) NIL))) NIL)) NIL)) (CL:CONS 'SEQ (CL:CONS ':START (CL:CONS 'START (CL:CONS ':END (CL:CONS 'END (CL:CONS ':FROM-END (CL:CONS 'FROM-END (CL:CONS ':WITH-INDEX (CL:CONS T NIL))))))))))) (CL:CONS '! NIL))) NIL)) (CL:CONS NIL NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'POSITION))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'POSITION-IF (CL:CONS (CL:CONS 'PRED (CL:CONS 'SEQ (CL:CONS 'CL:&KEY (CL:CONS (CL:CONS 'START (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'FROM-END (CL:CONS NIL NIL)) NIL)))))) NIL)))) (CL:PROGN (CL:DEFUN POSITION-IF (PRED SEQ CL:&KEY (START NIL) (END NIL) (FROM-END NIL)) (CL:BLOCK POSITION-IF (CL:BLOCK NIL (CL:LABELS ((G3728 (!) (FIND-IF #'(CL:LAMBDA (X I) (? (FUNCALL PRED X) (CL:PROGN (CL:SETQ ! I)))) SEQ :START START :END END :FROM-END FROM-END :WITH-INDEX T) !)) (G3728 NIL))))) (CL:SETF (CL:GETHASH #'POSITION-IF *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'PRED (CL:CONS 'SEQ (CL:CONS 'CL:&KEY (CL:CONS (CL:CONS 'START (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'END (CL:CONS NIL NIL)) (CL:CONS (CL:CONS 'FROM-END (CL:CONS NIL NIL)) NIL)))))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'POSITION-IF (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '! NIL) (CL:CONS (CL:CONS 'FIND-IF (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS 'X (CL:CONS 'I NIL)) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'FUNCALL (CL:CONS 'PRED (CL:CONS 'X NIL))) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '! (CL:CONS 'I NIL))) NIL)) NIL))) NIL)) NIL)) (CL:CONS 'SEQ (CL:CONS ':START (CL:CONS 'START (CL:CONS ':END (CL:CONS 'END (CL:CONS ':FROM-END (CL:CONS 'FROM-END (CL:CONS ':WITH-INDEX (CL:CONS T NIL))))))))))) (CL:CONS '! NIL))) NIL)) (CL:CONS NIL NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'POSITION-IF))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'SOME (CL:CONS (CL:CONS 'PRED (CL:CONS 'CL:&REST (CL:CONS 'SEQS NIL))) NIL)))) (CL:PROGN (CL:DEFUN SOME (PRED CL:&REST SEQS) (CL:BLOCK SOME (CL:BLOCK NIL (FIND-IF PRED (CL:APPLY #'APPEND SEQS))))) (CL:SETF (CL:GETHASH #'SOME *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'PRED (CL:CONS 'CL:&REST (CL:CONS 'SEQS NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'SOME (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'FIND-IF (CL:CONS 'PRED (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'APPEND NIL)) (CL:CONS 'SEQS NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'SOME))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'EVERY (CL:CONS (CL:CONS 'PRED (CL:CONS 'CL:&REST (CL:CONS 'SEQS NIL))) NIL)))) (CL:PROGN (CL:DEFUN EVERY (PRED CL:&REST SEQS) (CL:BLOCK EVERY (CL:BLOCK NIL (CL:BLOCK NIL (CL:LABELS ((G3729 (~G1537) (CL:LABELS ((G3730 (SEQ) (CL:TAGBODY ~G1535 (? (NOT ~G1537) (CL:GO ~G1536)) (CL:SETQ SEQ (CL:CAR ~G1537)) (CL:LABELS ((G3731 (~G1534) (CL:BLOCK NIL (CL:LABELS ((G3732 (!) (CL:TAGBODY ~G1538 (? (INTEGER== ! ~G1534) (CL:RETURN-FROM NIL (CL:PROGN NIL))) (CL:LABELS ((G3733 (~G1527) (? ~G1527 ~G1527 (CL:RETURN-FROM EVERY NIL)))) (G3733 (FUNCALL PRED (CL:ELT SEQ !)))) (CL:SETQ ! (INTEGER+ 1 !)) (CL:GO ~G1538)))) (G3732 0))))) (G3731 (INTEGER (CL:LENGTH SEQ)))) (CL:SETQ ~G1537 (CL:CDR ~G1537)) (CL:GO ~G1535) ~G1536 (CL:RETURN-FROM NIL (CL:PROGN T))))) (G3730 NIL)))) (G3729 SEQS)))))) (CL:SETF (CL:GETHASH #'EVERY *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'PRED (CL:CONS 'CL:&REST (CL:CONS 'SEQS NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'EVERY (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS '~G1537 (CL:CONS 'SEQS NIL)) (CL:CONS (CL:CONS 'SEQ (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1535 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1537 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1536 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'SEQ (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1537 NIL)) NIL))) (CL:CONS (CL:CONS 'LET (CL:CONS '~G1534 (CL:CONS (CL:CONS 'INTEGER (CL:CONS (CL:CONS 'CL:LENGTH (CL:CONS 'SEQ NIL)) NIL)) (CL:CONS (CL:CONS 'DO (CL:CONS (CL:CONS (CL:CONS '! (CL:CONS 0 (CL:CONS (CL:CONS 'INTEGER+ (CL:CONS 1 (CL:CONS '! NIL))) NIL))) NIL) (CL:CONS (CL:CONS (CL:CONS 'INTEGER== (CL:CONS '! (CL:CONS '~G1534 NIL))) (CL:CONS NIL NIL)) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1527 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1527 (CL:CONS '~G1527 (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS 'EVERY (CL:CONS NIL NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'FUNCALL (CL:CONS 'PRED (CL:CONS (CL:CONS 'CL:ELT (CL:CONS 'SEQ (CL:CONS '! NIL))) NIL))) NIL)) NIL)))) NIL)))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '~G1537 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1537 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1535 NIL)) (CL:CONS '~G1536 (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS T NIL)) NIL)) NIL))))))))) NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'EVERY))
  NIL
  NIL
  NIL
  