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


;** Warning: unreferenced variable BOARD
;   Location: in definition of REPORT-SOLUTION
REPORT-SOLUTION
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!
UN-UPDATE-BOARD!

;** Warning: shadowing FX1+

;** Warning: shadowed definition of FX1+ has already been integrated
;** Warning: shadowing FX-1+
%COPY-EXTEND
FX1+
FX-1+
BQUEENS
BOARD-POOL
*BOARD-SIZE*
*NDIAGONALS*
*2NDIAGONALS*
*NBOARDWORDS*
*NBOARDBYTES*
*NSOLUTIONS*
*COLUMNS*
INIT-CONSTANTS
LIST-OF-INTS
(VARIABLES
  FREE (TRUE MAKE-POOL QUOTIENT NO-MORE-COND-CLAUSES T-IMPLEMENTATION-ENV
*VALUE OBTAIN-FROM-POOL MAKE-VECTOR)
  EARLY-BOUND ()
  DEFINED (LEGAL-MOVE? REPORT-SOLUTION BQUEENS UPDATE-BOARD! UN-UPDATE-BOARD!
INIT-CONSTANTS LIST-OF-INTS EMPTY-BOARD COPY-BOARD MARK-COLUMN MARK-DIAG//
MARK-DIAG\\ CLEAR-COLUMN CLEAR-DIAG// CLEAR-DIAG\\ COLUMN-FREE? DIAG//-FREE?
DIAG\\-FREE? %COPY-EXTEND FX1+ FX-1+)
  LSET (BOARD-POOL *BOARD-SIZE* *NDIAGONALS* *2NDIAGONALS* *NBOARDWORDS*
*NBOARDBYTES* *NSOLUTIONS* *COLUMNS*)
  SET (BOARD-POOL *BOARD-SIZE* *NDIAGONALS* *2NDIAGONALS* *NBOARDWORDS*
*NBOARDBYTES* *NSOLUTIONS* *COLUMNS*)
  ERROR ()
  INTEGRATED (LEGAL-MOVE? REPORT-SOLUTION UPDATE-BOARD! UN-UPDATE-BOARD!
EMPTY-BOARD MARK-COLUMN MARK-DIAG// MARK-DIAG\\ CLEAR-COLUMN CLEAR-DIAG//
CLEAR-DIAG\\ COLUMN-FREE? DIAG//-FREE? DIAG\\-FREE? FX< CONS FX* ELSE
FX>= OR-AUX FX-ZERO? VREF SETTER FX+ FX-)
  LOCAL ()
  UNREFERENCED (BQUEENS COPY-BOARD FX-1+))
;;; 1 IBs queued, 6 IBs unqueued
(AS (IB 134) (SDF 83) (ALIGN 31) (MARK 526) (CLEAN 23) (DIRTY 34) (BYTES 1912))