;Beginning compilation on /toe/ppg/kranz/bench/qs.t


;** Warning: shadowing >
INLINE?
>
RIGHT-PART
LEFT-PART
BUNDLE-PARTS
QSORT
QS
PART
PQSORT
PQS
PPART
FOO
ML
L
(VARIABLES
  FREE (NO-MORE-COND-CLAUSES MAKE-RANDOM *FUTURE TOUCH WALK)
  EARLY-BOUND (CONS CAR CDR FX>)
  DEFINED (INLINE? > RIGHT-PART LEFT-PART BUNDLE-PARTS QSORT QS PART
PQSORT PQS PPART FOO ML)
  LSET (L)
  SET ()
  ERROR ()
  INTEGRATED (INLINE? > RIGHT-PART LEFT-PART BUNDLE-PARTS FX>= ELSE
FX+ NULL? NIL CONS CAR CDR)
  LOCAL ()
  UNREFERENCED (QSORT PQSORT))
;;; 2 IBs queued, 12 IBs unqueued
(AS (IB 107) (SDF 80) (ALIGN 33) (MARK 558) (CLEAN 28) (DIRTY 35) (BYTES 2144))