X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsc-offset.lisp;h=b05c9b75763c0ed9d5f07b84d9fdffc05a7b75e9;hb=6caf3ed5713773cb423f46bf40a29f2438c97c78;hp=001367cb7620c9d776d7462d0c6f3f5bd024e08f;hpb=68fd2d2dd6f265669a8957accd8a33e62786a97e;p=sbcl.git diff --git a/src/code/sc-offset.lisp b/src/code/sc-offset.lisp index 001367c..b05c9b7 100644 --- a/src/code/sc-offset.lisp +++ b/src/code/sc-offset.lisp @@ -22,7 +22,7 @@ (defmacro make-sc-offset (scn offset) `(dpb ,scn sc-offset-scn-byte - (dpb ,offset sc-offset-offset-byte 0))) + (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))