X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-rotate-byte%2Fcompiler.lisp;fp=contrib%2Fsb-rotate-byte%2Fcompiler.lisp;h=7165b3690abcf7b04767d18a53052aadbf862c35;hb=57e21c4b62e8c1a1ee7ef59ed2abb0c864fb06bc;hp=a2282278426f445db19cc1bf8ca713eaaab22394;hpb=071afc96281a1dac1938268b1cf35d7e92c7e2c0;p=sbcl.git

diff --git a/contrib/sb-rotate-byte/compiler.lisp b/contrib/sb-rotate-byte/compiler.lisp
index a228227..7165b36 100644
--- a/contrib/sb-rotate-byte/compiler.lisp
+++ b/contrib/sb-rotate-byte/compiler.lisp
@@ -29,10 +29,10 @@
 (defoptimizer (%rotate-byte derive-type) ((count size posn num))
   ;; FIXME: this looks fairly unwieldy.  I'm sure it can be made
   ;; simpler, and also be made to deal with negative integers too.
-  (let ((size (sb-c::continuation-type size)))
+  (let ((size (sb-c::lvar-type size)))
     (if (numeric-type-p size)
 	(let ((size-high (numeric-type-high size))
-	      (num-type (sb-c::continuation-type num)))
+	      (num-type (sb-c::lvar-type num)))
 	  (if (and size-high
 		   num-type
 		   (<= size-high sb-vm:n-word-bits)