Byte-compiler problem

Just a note, so that this isn't lost.

The following function makes problems when byte-compiled:

  (defun foo (x y)
    (loop for n = (- (random 200000) 100000)
          for d = (1+ (random 10000))
          for vals = (multiple-value-list (ffloor n d)) do
            (print vals)))

  ; In: defun ffloor.1-fn

  ;   (print vals)
  ; Note: Deleting unreachable code.

   0: 00    Entry point, frame-size=0
   1: 20    push-const #<FDEFINITION object for random>
   2: 4F FF 03 0D 40 push-int 200000
   7: 89    named-call, 1 args
   8: 71    pop-n 1
   9: 20    push-const #<FDEFINITION object for random>
  10: 4F FF 00 27 10 push-int 10000
  15: 89    named-call, 1 args
  16: 71    pop-n 1
  17: 00    push-local 0
  18: 00    push-local 0
  19: 00    push-local 0
  20: 00    push-local 0
  21: 00    push-local 0
  22: 00    push-local 0
  23: 00    push-local 0

Something similar to this function appears in Paul Dietz' tests.  It's
not new, apparently; it also fails in 18d.