SRRAT: use MRAT reader functions instead of CADDAR, etc.
[maxima.git] / archive / src / lispm-compilation.lisp
blob694983af817b25a339748123676c8a003cc41833
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)))
15 (print v))))))