C:\Users\xXxCKxXx\Desktop>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) 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 "CLOS.lsp") ;; Loading file CLOS.lsp ... ;; Loaded file CLOS.lsp T [2]> (init-class) #)> [3]> (setf acc (make-instance 'accumulator)) # [4]> (inc acc 2) 2 [5]> (inc acc 3) 5 [6]> (dec acc 5) 0 [7]> (inc acc 1000) 1000 [8]> (reset acc) 0 [9]> (bye) Bye.