(PROGN (CCL::%DEFUN (NFUNCTION LOOP-THROUGH-PAIRS
                               (LAMBDA (L)
                                 (DECLARE
                                  (CCL::GLOBAL-FUNCTION-NAME
                                   LOOP-THROUGH-PAIRS))
                                 (BLOCK LOOP-THROUGH-PAIRS
                                   (CONS (X (L)) (FORMAT T "~a" X)))))
                    'NIL)
       'LOOP-THROUGH-PAIRS)