Changeset 15282

Timestamp:

Mar 28, 2012, 1:56:53 PM (13 years ago)

Author:

Gary Byers

Message:

Check for undefined functions while processing (FUNCTION <symbol>),
not while processing calls to a function used to implement that
(those calls may be effectively NOTINLINE.)

Fixes ticket:929.

File:

• trunk/source/compiler/nx1.lisp (modified) (2 diffs)

trunk/source/compiler/nx1.lisp

@@ -1427 +1427 @@
              (while (setq fn (assq arg *nx-synonyms*))
                (setq arg (%cdr fn)))
+             (let* ((env *nx-lexical-environment*))
+                (unless (or (nx1-find-call-def arg env)
+                    (find-ftype-decl arg env)
+                    (eq arg *nx-global-function-name*))
+                  (nx1-whine :undefined-function arg)))
              (nx1-form context `(%function ',arg)))))
         ((setf-function-name-p arg)
@@ -1475 +1480 @@
              (setq symbol (cadr sym))
              (symbolp symbol))
-      (let ((env *nx-lexical-environment*))
-        (unless (or (nx1-find-call-def symbol env)
-                    (find-ftype-decl symbol env)
-                    (eq symbol *nx-global-function-name*))
-          (nx1-whine :undefined-function symbol))
-        (make-acode (%nx1-default-operator) symbol))
+      (make-acode (%nx1-default-operator) symbol)
       (make-acode (%nx1-operator call) (nx1-immediate context '%function) (list nil (list sym))))))