$ clisp <...snip...> [1]> (load "class_die.l") ;; Loading file class_die.l ... ;; Loaded file class_die.l T [2]> (setf d6 (make-instance 'die)) # [3]> (setf d4 (make-instance 'die :sides 4)) # [4]> (setf d12 (make-instance 'die :sides 12)) # [5]> (display d6) [1,NIL] NIL [6]> (roll d6) NIL [7]> (display d6) [2,(2)] NIL [8]> (roll d6) NIL [9]> (display d6) [6,(2 6)] NIL [10]> (roll d6) NIL [11]> (display d6) [2,(2 6 2)] NIL [12]> (roll d6) NIL [13]> (display d6) [4,(2 6 2 4)] NIL [14]> (roll d6) NIL [15]> (display d6) [3,(2 6 2 4 3)] NIL [16]> (roll d6) NIL [17]> (display d6) [1,(2 6 2 4 3 1)] NIL [18]> (roll d6) NIL [19]> (display d6) [6,(2 6 2 4 3 1 6)] NIL [20]> (roll d6) NIL [21]> (display d6) [4,(2 6 2 4 3 1 6 4)] NIL [22]> (roll d6) NIL [23]> (display d6) [6,(2 6 2 4 3 1 6 4 6)] NIL [24]> (roll d6) NIL [25]> (display d6) [2,(2 6 2 4 3 1 6 4 6 2)] NIL [26]> (roll d6) NIL [27]> (display d6) [4,(2 6 2 4 3 1 6 4 6 2 4)] NIL [28]> (roll d6) NIL [29]> (display d6) [1,(2 6 2 4 3 1 6 4 6 2 4 1)] NIL [30]> (roll d6) NIL [31]> (display d6) [3,(2 6 2 4 3 1 6 4 6 2 4 1 3)] NIL [32]> (roll d6) NIL [33]> (display d6) [1,(2 6 2 4 3 1 6 4 6 2 4 1 3 1)] NIL [34]> (roll d6) NIL [35]> (display d6) [1,(2 6 2 4 3 1 6 4 6 2 4 1 3 1 1)] NIL [36]> (roll d6) NIL [37]> (display d6) [2,(2 6 2 4 3 1 6 4 6 2 4 1 3 1 1 2)] NIL [38]> (roll d6) NIL [39]> (display d6) [1,(2 6 2 4 3 1 6 4 6 2 4 1 3 1 1 2 1)] NIL [40]> (roll d6) NIL [41]> (display d6) [5,(2 6 2 4 3 1 6 4 6 2 4 1 3 1 1 2 1 5)] NIL [42]> (display d4) [1,NIL] NIL [43]> (display d4) [1,NIL] NIL [44]> (roll d4) NIL [45]> (display d4) [2,(2)] NIL [46]> (roll d4) NIL [47]> (display d4) [2,(2 2)] NIL [48]> (roll d4) NIL [49]> (display d4) [4,(2 2 4)] NIL [50]> (roll d4) NIL [51]> (display d4) [3,(2 2 4 3)] NIL [52]> (roll d4) NIL [53]> (display d4) [1,(2 2 4 3 1)] NIL [54]> (display d12) [1,NIL] NIL [55]> (roll d12) NIL [56]> (display d12) [8,(8)] NIL [57]> (roll d12) NIL [58]> (display d12) [2,(8 2)] NIL [59]> (roll d12) NIL [60]> (display d12) [7,(8 2 7)] NIL [61]> (roll d12) NIL [62]> (display d12) [2,(8 2 7 2)] NIL [63]> (roll d12) NIL [64]> (display d12) [4,(8 2 7 2 4)] NIL [65]> (roll d12) NIL [66]> (display d12) [5,(8 2 7 2 4 5)] NIL [67]> (roll d12) NIL [68]> (display d12) [9,(8 2 7 2 4 5 9)] NIL [69]> (roll d12) NIL [70]> (display d12) [6,(8 2 7 2 4 5 9 6)] NIL [71]> (roll d12) NIL [72]> (display d12) [10,(8 2 7 2 4 5 9 6 10)] NIL [73]> (roll d12) NIL [74]> (display d12) [11,(8 2 7 2 4 5 9 6 10 11)] NIL [75]> (roll d12) NIL [76]> (display d12) [4,(8 2 7 2 4 5 9 6 10 11 4)] NIL [77]> (roll d12) NIL [78]> (display d12) [12,(8 2 7 2 4 5 9 6 10 11 4 12)] NIL [79]> (forget d6) NIL [80]> (display d6) [5,NIL] NIL [81]> (forget d4) NIL [82]> (display d4) [1,NIL] NIL [83]> (forget d12) NIL [84]> (display d12) [12,NIL] NIL [85]> (bye) Bye.