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
*)))))
11 (defun print-undefined ()
12 (dolist (v *all-undefined
*)
13 (cond ((not (or (fboundp v
)
14 (get v
(intern 'mfexpr
* 'maxima
)))