;Beginning compilation on squeens.t

EMPTY-BOARD
COPY-BOARD
MARK-COLUMN
MARK-DIAG//
MARK-DIAG\\
CLEAR-COLUMN
CLEAR-DIAG//
CLEAR-DIAG\\
COLUMN-FREE?
DIAG//-FREE?
DIAG\\-FREE?
LEGAL-MOVE?
UPDATE-BOARD
UPDATE-BOARD!
UN-UPDATE-BOARD!
QUEENS
MAIN
THE-ANSWERS
CHECK-ANSWER
*BOARD-SIZE*
*NDIAGONALS*
*2NDIAGONALS*
*NBOARDWORDS*
*NBOARDBYTES*
*NSOLUTIONS*
INIT-CONSTANTS
(VARIABLES
  FREE (ERROR LENGTH NO-MORE-COND-CLAUSES COPY-VECTOR MAKE-VECTOR)
  EARLY-BOUND ()
  DEFINED (QUEENS MAIN THE-ANSWERS CHECK-ANSWER INIT-CONSTANTS EMPTY-BOARD
COPY-BOARD LEGAL-MOVE? UPDATE-BOARD UPDATE-BOARD! UN-UPDATE-BOARD!
MARK-COLUMN MARK-DIAG// MARK-DIAG\\ CLEAR-COLUMN CLEAR-DIAG// CLEAR-DIAG\\
COLUMN-FREE? DIAG//-FREE? DIAG\\-FREE?)
  LSET (*BOARD-SIZE* *NDIAGONALS* *2NDIAGONALS* *NBOARDWORDS* *NBOARDBYTES*
*NSOLUTIONS*)
  SET (*BOARD-SIZE* *NDIAGONALS* *2NDIAGONALS* *NBOARDWORDS* *NBOARDBYTES*
*NSOLUTIONS*)
  ERROR ()
  INTEGRATED (EMPTY-BOARD COPY-BOARD LEGAL-MOVE? UPDATE-BOARD MARK-COLUMN
MARK-DIAG// MARK-DIAG\\ CLEAR-COLUMN CLEAR-DIAG// CLEAR-DIAG\\ COLUMN-FREE?
DIAG//-FREE? DIAG\\-FREE? FX/ FX* NOT FX= ELSE CONS FX-ZERO? VREF
SETTER FX+ FX-)
  LOCAL ()
  UNREFERENCED (MAIN UPDATE-BOARD! UN-UPDATE-BOARD!))
;;; 1 IBs queued, 9 IBs unqueued
(AS (IB 111) (SDF 68) (ALIGN 29) (MARK 1370) (CLEAN 27) (DIRTY 22) (BYTES 5984))