diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp index 9eec159b827b9f42da8a413acb765196b3b69dd8..ea0cd752b11ac206dde1bc175fe494e078bc0c2f 100644 --- a/compiler/ir1opt.lisp +++ b/compiler/ir1opt.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/ir1opt.lisp,v 1.61 1993/05/12 11:22:25 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.62 1993/08/19 23:12:09 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -886,10 +886,14 @@ nil)) (t (let* ((name (leaf-name leaf)) - (info (info function info - (if (slot-accessor-p leaf) - (if (consp name) '%slot-setter '%slot-accessor) - name)))) + (info (if (dylan-function-var-p leaf) + (dylan-function-var-function-info leaf) + (info function info + (if (slot-accessor-p leaf) + (if (consp name) + '%slot-setter + '%slot-accessor) + name))))) (if info (values leaf (setf (basic-combination-kind call) info)) (values leaf nil)))))))