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.