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 "dice.lsp")
;; Loading file dice.lsp ...
;; Loading file ../416/lp.lsp ...
;; Loaded file ../416/lp.lsp
;; Loading file ../416/CLOS.lsp ...
;; Loaded file ../416/CLOS.lsp
;; Loaded file dice.lsp
T
[2]> (setf die1 (make-instance 'dice))
#
[3]> (setf die2 (make-instance 'dice))
#
[4]> (roll-for-pair die1 die2)
NIL
[5]> (display die1)
[4, (2 4)]
NIL
[6]> (display die2)
[4, (1 4)]
NIL
[7]> (forget die1)
NIL
[8]> (forget die2)
NIL
[9]> (roll-for-pair die1 die2)
NIL
[10]> (display die1)
[6, (5 3 5 4 5 6)]
NIL
[11]> (display die2)
[6, (2 1 2 5 4 6)]
NIL
[12]> (forget die1)
NIL
[13]> (forget die2)
NIL
[14]> (setf (dice-size die2) 4)
4
[15]> (roll-for-pair die1 die2)
NIL
[16]> (display die1)
[1, (4 3 1)]
NIL
[17]> (display die2)
[1, (2 1 1)]
NIL
[18]> (bye)
Bye.