Microsoft Windows XP [Version 5.1.2600] (C) Copyright 1985-2001 Microsoft Corp. d:\Programme\emacs-21.3\bin>cd ../../clisp cd ../../clisp D:\Programme\clisp>clisp 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 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-2005 [1]> (load "dobby-world.l") ;; Loading file dobby-world.l ... ;; Loading file dobby.l ... ;; Loaded file dobby.l ;; Loaded file dobby-world.l T [2]> (setf p (make-instance 'position-class :row 5 :col 6)) # [3]> (display p) (5,6) NIL [4]> (setf c (make-instance 'cell :pos p)) # [5]> (display c) | POSITION= (5,6) STATE= EMPTY TYPE= CENTRAL VISITS= 0 <| NIL [6]> (display-count c) 0 NIL [7]> (display-type c) C NIL [8]> (display-state c) - NIL [9]> (init-world) NIL [10]> (dwx) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - W W W W W W W W W C C C C C C W W C C C C C C W W C C C C C C W W C C C C C C W W C W W W W C W W C W W C W W W W W W W 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 NIL [11]> (bye) Bye. D:\Programme\clisp>exit exit Process shell finished