archive/src/lispm-compilation.lisp

   1
   2 ;;collect the possible undefineds and show them at the end.
   3 (defun compiler::PRINT-FUNCTIONS-REFERENCED-BUT-NOT-DEFINED ()
   4   (SETQ FUNCTIONS-REFERENCED
   5         (DELETE-IF #'(LAMBDA (X) (COMPILATION-DEFINEDP (CAR X)))
   6                    (THE LIST FUNCTIONS-REFERENCED)) )
   7   (loop for (na . refs) in functions-referenced
   8         (cond ((not (compilation-definedp na))
   9                (pushnew na *all-undefined*)))))
  10
  11 (defun print-undefined ()
  12   (dolist (v *all-undefined*)
  13     (cond ((not (or (fboundp v)
  14                     (get v (intern 'mfexpr* 'maxima)))
  15                 (print v))))))