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


;** Warning: shadowing >
>
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 (IDENTITY CONS CAR CDR FX>)
  DEFINED (> RIGHT-PART LEFT-PART BUNDLE-PARTS QSORT QS PART PQSORT
PQS PPART FOO ML)
  LSET (L)
  SET ()
  ERROR ()
  INTEGRATED (> RIGHT-PART LEFT-PART BUNDLE-PARTS FX>= ELSE FX+ NULL?
NIL CONS CAR CDR)
  LOCAL ()
  UNREFERENCED (QSORT PQSORT))
;;; 2 IBs queued, 7 IBs unqueued
(AS (IB 90) (SDF 66) (ALIGN 31) (MARK 492) (CLEAN 13) (DIRTY 27) (BYTES 1912))