Undefined function reference warnings

[Ray Pelletier <rp23+@andrew.cmu.edu>]

My boss, who could not care less about the style police, insisted that
I get rid of undefined function reference warnings.  The following seems
to work...

(defun gag-undefined-references ()
  (%set-toplevel
   #'(lambda ()
       (handler-bind
         ((ccl::undefined-function-reference
           #'(lambda (condition) (muffle-warning condition))))
         (toplevel-loop))))
  (toplevel))

-Ray Pelletier