Fix a typo in bignum--ref-with-offset
authorPaul Khuong <pvk@pvk.ca>
Sat, 8 Jun 2013 05:38:32 +0000 (01:38 -0400)
committerPaul Khuong <pvk@pvk.ca>
Sat, 8 Jun 2013 06:33:49 +0000 (02:33 -0400)
src/compiler/x86-64/arith.lisp

index 9229626..e1929f1 100644 (file)
@@ -1632,7 +1632,7 @@ constant shift greater than word length")))
 
 (define-full-reffer bignum-ref * bignum-digits-offset other-pointer-lowtag
   (unsigned-reg) unsigned-num sb!bignum:%bignum-ref)
-(define-full-reffer+offset bignum--ref-with-offset * bignum-digits-offset
+(define-full-reffer+offset bignum-ref-with-offset * bignum-digits-offset
   other-pointer-lowtag (unsigned-reg) unsigned-num
   sb!bignum:%bignum-ref-with-offset)
 (define-full-setter bignum-set * bignum-digits-offset other-pointer-lowtag