From 49c5e45816d3ac75d0f687b549266660ac76b8cb Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 20 Apr 1991 17:08:40 +0000 Subject: [PATCH] Fixed set-symbol-function to correctly extract the type of the function being installed. --- compiler/rt/cell.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/rt/cell.lisp b/compiler/rt/cell.lisp index e617d9e86..1fef6c673 100644 --- a/compiler/rt/cell.lisp +++ b/compiler/rt/cell.lisp @@ -7,7 +7,7 @@ ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/cell.lisp,v 1.1 1991/02/18 15:07:46 chiles Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/cell.lisp,v 1.2 1991/04/20 17:08:40 wlott Exp $ ;;; ;;; This file contains the VM definition of various primitive memory access ;;; VOPs for the IBM RT. @@ -178,7 +178,7 @@ (:generator 30 (let ((closure (gen-label)) (normal-fn (gen-label))) - (load-type type function (- vm:function-pointer-type)) + (load-type type function vm:function-pointer-type) (inst c type vm:closure-header-type) (inst bc :eq closure) (inst c type vm:function-header-type) -- GitLab