diff --git a/compiler/mips/call.lisp b/compiler/mips/call.lisp index 25f93ba2de8cc6b131caabd0bed4b1db27f5b463..0b0ffca4e1e72a598f5c4eabcf92f93d04989347 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)