From bede6dee1fe3b69da4bbd04c6665641c5dba4a29 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 12 May 1993 15:32:07 +0000 Subject: [PATCH] Fix up funcallable instance initialization. --- code/byte-interp.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/code/byte-interp.lisp b/code/byte-interp.lisp index 85250e4c7..d0002f045 100644 --- a/code/byte-interp.lisp +++ b/code/byte-interp.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.11 1993/05/11 21:09:25 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.12 1993/05/12 15:32:07 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -300,8 +300,8 @@ (defun initialize-byte-compiled-function (xep) (declare (type byte-function xep)) - (setf (%funcallable-instance-function xep) - #'(lambda (&rest args) + (setf (funcallable-instance-function xep) + #'(instance-lambda (&rest args) (let ((old-sp (current-stack-pointer)) (num-args (length args))) (declare (type stack-pointer old-sp)) @@ -314,8 +314,8 @@ (declare (type byte-function xep) (type simple-vector closure-vars)) (let ((res (make-byte-closure xep closure-vars))) - (setf (%funcallable-instance-function res) - #'(lambda (&rest args) + (setf (funcallable-instance-function res) + #'(instance-lambda (&rest args) (let ((old-sp (current-stack-pointer)) (num-args (length args))) (declare (type stack-pointer old-sp)) -- GitLab