diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index 61beb85b751a9e502c7caad4def2cfa7d2850953..7bd296c71317348909ba0c414cfbaca28e4fe98f 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.165 2003/10/02 19:23:11 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.166 2003/11/04 15:01:16 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -797,6 +797,20 @@ (when (lambda-var-p var) (when (lambda-var-ignorep var) (compiler-note "Reading an ignored variable: ~S." name)) + ;; + ;; FIXME: There's a quirk somewhere when recording this + ;; dependency, which I don't have to time to debug right now. + ;; Redefining a function like this: + ;; + ;; (defun foo ()) + ;; + ;; (let ((foo #'foo)) + ;; (defun foo () (funcall foo))) + ;; + ;; leads to infinite recursion because the funcall uses + ;; FOO's fdefn object instead of the local variable's value. + ;; -- Gerd, 2003-11-04 + #+nil (note-dfo-dependency start var)) (reference-leaf start cont var)) (cons