;Beginning compilation on 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 78) (SDF 56) (ALIGN 25) (MARK 371) (CLEAN 17) (DIRTY 16) (BYTES 1324))