From 27a519b398a9f02935bc2257722833709e854d19 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 4 Feb 1994 14:08:21 +0000 Subject: [PATCH] Gratuitous tweak. --- compiler/ir1tran.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index 50d5c22c7..cd6787508 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.103 1993/09/14 23:18:06 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.104 1994/02/04 14:08:21 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -135,10 +135,9 @@ (setf (info function kind name) :function) (setf (info function where-from name) :assumed)) - (when (eq (info function where-from name) :assumed) - (note-undefined-reference name :function)) - (let ((where (info function where-from name))) + (when (eq where :assumed) + (note-undefined-reference name :function)) (make-global-var :kind :global-function :name name :type (if (or *derive-function-types* (eq where :declared)) -- GitLab