C:\Users\Tara>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)
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 "C:\Users\Tara\Desktop\416\die.l")
*** - LOAD: A file with name C:UsersTaraDesktop416die.l does not exist
The following restarts are available:
ABORT :R1 Abort main loop
Break 1 [2]> (load "C:/Users/Tara/Desktop/416/die.l")
;; Loading file C:\Users\Tara\Desktop\416\die.l ...
;; Loading file C:\Users\Tara\Desktop\416\lp1.l ...
;; Loaded file C:\Users\Tara\Desktop\416\lp1.l
;; Loaded file C:\Users\Tara\Desktop\416\die.l
T
Break 1 [2]> :a
[3]> (setf d1 (make-instance 'die))
#
[4]> (setf d2 (make-instance 'die))
#
[5]> (roll-for-sum d1 d2 5)
NIL
[6]> (examine d1)
top face: 1
number of sides: 6
face history: (2 3 4 5 6 1 4 5 5 5 5 1)
NIL
[7]> (examine d2)
top face: 4
number of sides: 6
face history: (5 4 4 4 3 5 4 1 4 2 5 4)
NIL
[8]> (roll-for-sum d1 d2 12)
NIL
[9]> (examine d1)
top face: 6
number of sides: 6
face history: (2 3 4 5 6 1 4 5 5 5 5 1 2 4 4 4 3 2 2 2 1 2 5 5 6)
NIL
[10]> (examine d2)
top face: 6
number of sides: 6
face history: (5 4 4 4 3 5 4 1 4 2 5 4 4 5 3 1 1 4 6 2 2 6 5 1 6)
NIL
[11]> (bye)
Bye.
C:\Users\Tara>