pi:~/public_html/coursework/csc416/assignments> clisp
  i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Welcome to GNU CLISP 2.49 (2010-07-07) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2010

Type :h and hit Enter for context help.

[1]> (load dieApp.l)

*** - SYSTEM::READ-EVAL-PRINT: variable DIEAPP.L has no value
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead of DIEAPP.L.
STORE-VALUE    :R2      Input a new value for DIEAPP.L.
ABORT          :R3      Abort main loop
Break 1 [2]> (load "dieApp.l")
;; Loading file dieApp.l ...
;;  Loading file lp.l ...
;;  Loaded file lp.l
;;  Loading file die.l ...
;;  Loaded file die.l
;;  Loading file acc.l ...
;;  Loaded file acc.l
;; Loaded file dieApp.l
T
Break 1 [2]> (setf d1 (make-instance 'die))
#<DIE #x000334702CF8>
Break 1 [2]> (setf d2 (make-instance 'die))
#<DIE #x0003347037D8>
Break 1 [2]> (roll-for-pair d1 d2)
"Die 1: 
Number of Faces: 6 
 Top Face: 4 
 Die History: (3 2 4) 
 
 Die 2: 
Number of Faces: 6 
 Top Face: 4 
 Die History: (5 1 4)"
Break 1 [2]> (roll-for-sum d1 d2 7)
"Die 1: 
Number of Faces: 6 
 Top Face: 5 
 Die History: (5) 
 
 Die 2: 
Number of Faces: 6 
 Top Face: 2 
 Die History: (2)"
Break 1 [2]> (roll-for-pair d1 d2)
"Die 1: 
Number of Faces: 6 
 Top Face: 6 
 Die History: (3 5 4 5 6) 
 
 Die 2: 
Number of Faces: 6 
 Top Face: 6 
 Die History: (1 2 5 4 6)"
Break 1 [2]> (roll-for-sum d1 d2 7)
"Die 1: 
Number of Faces: 6 
 Top Face: 5 
 Die History: (4 3 1 5 2 6 6 5 1 3 5 5 3 5) 
 
 Die 2: 
Number of Faces: 6 
 Top Face: 2 
 Die History: (6 3 1 6 1 4 3 5 5 1 3 1 2 2)"
Break 1 [2]>