From c559e4236f05f8303cbf32e9f5704a84b24e33cf Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 19 Aug 1993 23:12:09 +0000 Subject: [PATCH] Don'e use info function info for dylan-function-var, instead get the info from the dylan-function-var-function-info slot. --- compiler/ir1opt.lisp | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp index 9eec159b8..ea0cd752b 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))))))) -- GitLab