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 "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))
#<DICE #x000334518A68>
[3]> (setf die2 (make-instance 'dice))
#<DICE #x000334519D88>
[4]> (roll-for-sum die1 die2 10)
NIL
[5]> (let () (display die1) (display die2) (forget die1) (forget die2))
[5, (1 4 2 1 2 5)]
[5, (4 5 3 5 4 5)]
NIL
[6]> (roll-for-sum die1 die2 9)
NIL
[7]> (let () (display die1) (display die2) (forget die1) (forget die2))
[6, (4 6 6)]
[3, (6 4 3)]
NIL
[8]> (roll-for-sum die1 die2 5)
NIL
[9]> (let () (display die1) (display die2) (forget die1) (forget die2))
[1, (3 1 6 1 4 3 5 5 1 3 1 2 2 1)]
[4, (1 5 2 6 6 5 1 3 5 5 3 5 1 4)]
NIL
[10]> (roll-for-sum die1 die2 7)
NIL
[11]> (let () (display die1) (display die2) (forget die1) (forget die2))
[3, (5 3 6 5 1 1 1 6 2 4 2 3)]
[4, (6 3 5 5 2 1 2 5 6 6 1 4)]
NIL
[12]> (bye)
Bye.