X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-byte.lisp;h=319ad7d4308755bb34d1d6c1ac213fad3556f85c;hb=83097ed630d4efdb79bd0bc91f21014f4365f008;hp=d693a7c8fa262ed1cf9627ad6895935865f5bcff;hpb=3c8b7b5089ae068f3dcdf84d7545562ac33e67be;p=sbcl.git

diff --git a/src/code/cross-byte.lisp b/src/code/cross-byte.lisp
index d693a7c..319ad7d 100644
--- a/src/code/cross-byte.lisp
+++ b/src/code/cross-byte.lisp
@@ -39,11 +39,6 @@
 (defun sb!xc:deposit-field (new cross-byte int)
   (cl:deposit-field new (uncross-byte cross-byte) int))
 
-(defun sb!c::mask-signed-field (size integer)
-  (if (logbitp (1- size) integer)
-      (dpb integer (byte size 0) -1)
-      (ldb (byte size 0) integer)))
-
 (define-setf-expander sb!xc:ldb (cross-byte int &environment env)
   (multiple-value-bind (temps vals stores store-form access-form)
       (get-setf-expansion int env)