Index: /trunk/source/level-0/X86/X8632/x8632-numbers.lisp
===================================================================
--- /trunk/source/level-0/X86/X8632/x8632-numbers.lisp	(revision 13334)
+++ /trunk/source/level-0/X86/X8632/x8632-numbers.lisp	(revision 13335)
@@ -141,28 +141,4 @@
   (cmove (% imm0) (% arg_z))
   (single-value-return))
-
-(defx8632lapfunction %next-random-pair ((high arg_y) (low arg_z))
-  ;; high: (unsigned-byte 15)
-  ;; low: (unsigned-byte 16)
-  (unbox-fixnum low imm0)
-  ;; clear most significant bit
-  (shll ($ (1+ (- 16 x8632::fixnumshift))) (% high))
-  (shrl ($ 1) (% high))
-  (orl (% high) (% imm0))
-  (mark-as-imm edx)
-  (movl ($ 48271) (% edx))
-  (mul (% edx))
-  (mark-as-node edx)
-  (movl ($ (- #x10000)) (% high))	;#xffff0000
-  (andl (% imm0) (% high))
-  (shrl ($ (- 16 x8632::fixnumshift)) (% high))
-  (shll ($ 16) (% imm0))
-  (shrl ($ (- 16 x8632::fixnumshift)) (% imm0))
-  (movl (% imm0) (% low))
-  (movl (% esp) (% temp0))
-  (push (% high))
-  (push (% low))
-  (set-nargs 2)
-  (jmp-subprim .SPvalues))
 	
 ;;; n1 and n2 must be positive (esp non zero)