diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 1d8d60286877f4cf7cac3b76a49bf496141c492b..d40bb37119a5d79a9a4118ea8e8aa34e2b617543 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)))))