From 17237c1eedf7ab60eb117a05e15668d5e9ddd444 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 10 Nov 1991 22:24:05 +0000
Subject: [PATCH] Changed base-character-reg-sc-number to
 base-char-reg-sc-number.

---
 code/debug-int.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/code/debug-int.lisp b/code/debug-int.lisp
index 1d8d60286..d40bb3711 100644
--- a/code/debug-int.lisp
+++ b/code/debug-int.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/debug-int.lisp,v 1.31 1991/11/03 17:41:51 chiles Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.32 1991/11/10 22:24:05 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2469,7 +2469,7 @@
        (system:without-gcing
 	(with-escaped-value (val)
 	  (kernel:make-lisp-obj val))))
-      (#.vm:base-character-reg-sc-number
+      (#.vm:base-char-reg-sc-number
        (with-escaped-value (val)
 	 (code-char val)))
       (#.vm:sap-reg-sc-number
@@ -2499,7 +2499,7 @@
 	 (system:sap-ref-double nfp (c::sc-offset-offset sc-offset))))
       (#.vm:control-stack-sc-number
        (kernel:stack-ref fp (c::sc-offset-offset sc-offset)))
-      (#.vm:base-character-stack-sc-number
+      (#.vm:base-char-stack-sc-number
        (with-nfp (nfp)
 	 (code-char (system:sap-ref-32 nfp (c::sc-offset-offset sc-offset)))))
       (#.vm:unsigned-stack-sc-number
@@ -2590,7 +2590,7 @@
        (system:without-gcing
 	(set-escaped-value
 	  (kernel:get-lisp-obj-address value))))
-      (#.vm:base-character-reg-sc-number
+      (#.vm:base-char-reg-sc-number
        (set-escaped-value (char-code value)))
       (#.vm:sap-reg-sc-number
        (set-escaped-value (system:sap-int value)))
@@ -2616,7 +2616,7 @@
 	       (the double-float value))))
       (#.vm:control-stack-sc-number
        (setf (kernel:stack-ref fp (c::sc-offset-offset sc-offset)) value))
-      (#.vm:base-character-stack-sc-number
+      (#.vm:base-char-stack-sc-number
        (with-nfp (nfp)
 	 (setf (system:sap-ref-32 nfp (c::sc-offset-offset sc-offset))
 	       (char-code (the character value)))))
-- 
GitLab