X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-info.lisp;h=5ef9dee22188f098020dee7a7abbd405a4eef350;hb=b1c7011c1f5d50b9821c07db75b1d5c3c6881062;hp=9b58481bb085634bcde12151d7a7bf2d4b0ade04;hpb=581e3d62de8cb37e13ad9db63e5537c0f962be28;p=sbcl.git

diff --git a/src/code/debug-info.lisp b/src/code/debug-info.lisp
index 9b58481..5ef9dee 100644
--- a/src/code/debug-info.lisp
+++ b/src/code/debug-info.lisp
@@ -11,22 +11,6 @@
 
 (in-package "SB!C")
 
-;;;; SC-OFFSETs
-;;;;
-;;;; We represent the place where some value is stored with a SC-OFFSET,
-;;;; which is the SC number and offset encoded as an integer.
-
-(defconstant-eqx sc-offset-scn-byte (byte 5 0) #'equalp)
-(defconstant-eqx sc-offset-offset-byte (byte 22 5) #'equalp)
-(def!type sc-offset () '(unsigned-byte 27))
-
-(defmacro make-sc-offset (scn offset)
-  `(dpb ,scn sc-offset-scn-byte
-	(dpb ,offset sc-offset-offset-byte 0)))
-
-(defmacro sc-offset-scn (sco) `(ldb sc-offset-scn-byte ,sco))
-(defmacro sc-offset-offset (sco) `(ldb sc-offset-offset-byte ,sco))
-
 ;;;; flags for compiled debug variables
 
 ;;; FIXME: old CMU CL representation follows: