Microsoft Windows [Version 10.0.14393]
(c) 2016 Microsoft Corporation. All rights reserved.

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) <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.


[5]> (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
WARNING: Replacing method #<STANDARD-METHOD (#<STANDARD-CLASS DIE>)> in #<STANDARD-GENERIC-FUNCTION ROLL>
WARNING: Replacing method #<STANDARD-METHOD (#<STANDARD-CLASS DIE>)> in #<STANDARD-GENERIC-FUNCTION EXAMINE>
WARNING: Replacing method #<STANDARD-METHOD (#<STANDARD-CLASS DIE> #<STANDARD-CLASS DIE>)> in
         #<STANDARD-GENERIC-FUNCTION ROLL-FOR-PAIR>
;; Loaded file C:\Users\Tara\Desktop\416\die.l
T
[6]> (setf d1 (make-instance 'die))
#<DIE #x1A9B84CD>
[7]> (setf d2 (make-instance 'die))
#<DIE #x1A9B9245>
[8]> (roll-for-pair d1 d2)
NIL
[9]> (examine d1)
top face: 4
number of sides: 6
face history: (4)
NIL
[10]> (examine d2)
top face: 4
number of sides: 6
face history: (4)
NIL
[11]> (roll-for-pair d1 d2)
NIL
[12]> (examine d1)
top face: 4
number of sides: 6
face history: (4 5 6 1 4)
NIL
[13]> (roll-for-pair d1 d2)
NIL
[14]> (examine d1)
top face: 5
number of sides: 6
face history: (4 5 6 1 4 5 5 5 5)
NIL
[15]> (examine d2)
top face: 5
number of sides: 6
face history: (4 4 3 5 4 1 4 2 5)
NIL
[16]> (roll-for-pair d1 d2)
NIL
[17]> (roll-for-pair d1 d2)
NIL
[18]> (examine d2)
top face: 5
number of sides: 6
face history: (4 4 3 5 4 1 4 2 5 4 4 5 3 1 1 4 6 2 2 6 5)
NIL
[19]> (examine d1)
top face: 5
number of sides: 6
face history: (4 5 6 1 4 5 5 5 5 1 2 4 4 4 3 2 2 2 1 2 5)
NIL
[20]> (bye)
Bye.

C:\Users\Tara>