From 90bdefd5b7b6238678d67f3b16781edb9111d7d2 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 14 Nov 1990 17:33:51 +0000 Subject: [PATCH] Removed #+nil on the CONSTANT case for loading ARG-FUN in DEFINE-FULL-CALL. This really can happen when we compile a full call to a local function for some reason (arg count error, etc.) --- compiler/mips/call.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/mips/call.lisp b/compiler/mips/call.lisp index 25f93ba2d..0b0ffca4e 100644 --- a/compiler/mips/call.lisp +++ b/compiler/mips/call.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/call.lisp,v 1.33 1990/11/03 03:23:04 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/call.lisp,v 1.34 1990/11/14 17:33:51 ram Exp $ ;;; ;;; This file contains the VM definition of function call for the MIPS. ;;; @@ -797,7 +797,6 @@ default-value-8 (inst lw lexenv fp-tn (ash (tn-offset arg-fun) vm:word-shift)) (do-next-filler)) - #+nil (constant (inst lw lexenv code-tn (- (ash (tn-offset arg-fun) vm:word-shift) -- GitLab