Performance and Evaluation of Lisp Systems - Dreamsongs

3.15 Puzzle
3.15.1 The Program
;;; PUZZLE -- Forest Baskett’s Puzzle benchmark,
;;; originally written in Pascal.
(eval-when (compile load eval)
(defconstant size 511.)
(defconstant classmax 3.)
(defconstant typemax 12.))
(defvar *iii* 0)
(defvar *kount* 0)
(defvar *d* 8.)
(defvar piececount
(make-array (1+ classmax) :initial-element 0))
(defvar class
(make-array (1+ typemax) :initial-element 0))
(defvar piecemax
(make-array (1+ typemax) :initial-element 0))
(defvar puzzle (make-array (1+ size)))
(defvar p (make-array (list (1+ typemax) (1+ size))))
(defun fit (i j)
(let ((end (aref piecemax i)))
(do ((k 0 (1+ k)))
((> k end) t)
(cond ((aref p i k)
(cond ((aref puzzle (+ j k))
(return nil))))))))
203