show warning when undefined function found

euslisp · Jul 31, 2017 · 8f25350 · 8f25350
1 parent 7bf5d46
commit 8f25350
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lisp/comp/trans.l b/lisp/comp/trans.l
@@ -247,6 +247,9 @@
        (if (null entry) (setq entry (get sym 'builtin-function-entry)))
        (send self :clearpush)
        (send self :reset-vsp)
+       (unless (functionp sym)
+         (format *error-output* "; ~C[34;7m~S~C[0;34m is assumed to be undefined function~C[0m~%"
+                 #x1b sym #x1b #x1b))
        (if entry
 	   (format cfile "	w=(pointer)~A(ctx,~d,local+~d); /*~A*/~%"
 		     entry n (- pushcount n) sym)