From 7786fbecdeba80135a7854fccef853467837ce8c Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 1 Oct 1991 14:36:56 +0000
Subject: [PATCH] Oops...  I really meant to use NARGS, not NL0.

---
 compiler/rt/sap.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/rt/sap.lisp b/compiler/rt/sap.lisp
index 825833a04..2425eaf10 100644
--- a/compiler/rt/sap.lisp
+++ b/compiler/rt/sap.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/sap.lisp,v 1.7 1991/09/28 12:43:50 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/sap.lisp,v 1.8 1991/10/01 14:36:56 ram Exp $
 ;;;
 ;;; This file contains the IBM RT VM definition of SAP operations.
 ;;;
@@ -338,7 +338,7 @@
   (signed-reg unsigned-reg) (:or signed-num unsigned-num))
 
 ;;; Ugly, because there are only 2 free sap-regs.  We stash the data value in
-;;; NL0 to free up a sap-reg for BASE.
+;;; NARGS to free up a sap-reg for BASE.
 ;;;
 (define-vop (sap-system-set)
   (:policy :fast-safe)
@@ -348,7 +348,7 @@
 	 (data :scs (sap-reg sap-stack)))
   (:arg-types system-area-pointer positive-fixnum system-area-pointer)
   (:temporary (:scs (sap-reg) :from (:eval 0) :to (:eval 1)) base)
-  (:temporary (:scs (non-descriptor-reg) :offset nl0-offset
+  (:temporary (:scs (non-descriptor-reg) :offset nargs-offset
 	       :from (:eval 0) :to (:eval 1))
 	      save)
   (:vop-var vop)
-- 
GitLab