Performance and Evaluation of Lisp Systems - Dreamsongs

160
3.9.3 Translation Notes
In INTERLISP, a DATATYPE is created to represent the nodes in the graph.
Here is the INTERLISP code
(RPAQQ TRAVERSECOMS
((RECORDS NODE)
(FNS SNB SEED RANDOM TREMOVE TSELECT TADD CREATE-STRUCTURE
FIND-ROOT TRAVERS TRAVERSE TIMIT)
(BLOCKS
(TRAVERSE
SNB SEED RANDOM TREMOVE TSELECT TADD CREATE-STRUCTURE
FIND-ROOT TRAVERS TRAVERSE TIMIT-10)
(ENTRIES TRAVERSE CREATE-STRUCTURE TIMIT-10))
(VARS (SN 0)
(RAND 21.0)
(COUNT 0)
(MARKER NIL))
(GLOBALVARS RAND SN MARKER ROOT)
(PROP GLOBALVAR ROOT)
(SPECVARS COUNT)))
[DECLARE: EVAL@COMPILE
(DATATYPE NODE ((PARENTS POINTER)
(SONS POINTER)
(SN WORD)
(ENTRY1 FLAG)
(ENTRY2 FLAG)
(ENTRY3 FLAG)
(ENTRY4 FLAG)
(ENTRY5 FLAG)
(ENTRY6 FLAG)
(MARK FLAG))
SN (SNB))
]