Performance and Evaluation of Lisp Systems - Dreamsongs

3.9 Traverse
3.9.1 The Program
;;; TRAVERSE -- Benchmark that creates and traverses
;;; a tree structure.
(defstruct node
(parents ())
(sons ())
(sn (snb))
(entry1 ())
(entry2 ())
(entry3 ())
(entry4 ())
(entry5 ())
(entry6 ())
(mark ()))
(defvar *sn* 0)
(defvar *rand* 21.)
(defvar *count* 0)
(defvar *marker* nil)
(defvar *root*)
(defun snb ()
(setq *sn* (1+ *sn*)))
(defun seed ()
(setq *rand* 21.))
(defun traverse-random () (setq *rand* (mod (* *rand* 17.)
251.)))
153