CLISP works much better than GCL an CMUCL (at least on Ubuntu warty)
Paul Dufresne
dufrp at hotmail.com
Wed Mar 16 08:40:38 PST 2005
Ok, I installed CLISP Debian stable on Ubuntu
easily with: dpkg -i clisp_2.27-0.5_i386.deb
Now, I did have to cp test/package.lisp to test/package.
Here what I got:
===
Copyright (c) Bruno Haible, Sam Steingold 1999-2001
[1]> (load 'max.lsp)
;; Loading file max.lsp ...
;; Loading file test.lsp ...
*** - A file with name test/package does not exist
1. Break [2]> (quit)
Bye.
paul at arctanov:~/max-0.1 $ ls
ADDR.LSP BOOLEAN.LSP catalog.nw function.nw menu.nw pair.nw
set.lsp TEST.LSP util.nw
addr.lsp boolean.lsp EVAL.LSP makefile OBJECT.LSP PTR.LSP
set.nw test.lsp
addr.nw boolean.nw eval.lsp max.lsp object.lsp ptr.lsp
STRING.LSP test.nw
ADVENTURE.LSP bugs.txt eval.nw max.nw object.nw ptr.nw
string.lsp todo.txt
adventure.lsp CATALOG.LSP FUNCTION.LSP MENU.LSP PAIR.LSP README
string.nw UTIL.LSP
adventure.nw catalog.lsp function.lsp menu.lsp pair.lsp SET.LSP
TEST util.lsp
paul at arctanov:~/max-0.1 $ mv TEST test
paul at arctanov:~/max-0.1 $ cd test
paul at arctanov:~/max-0.1/test $ ls
COPYING PACKAGE.LISP README xptest-example.lisp
xptestsuite.lisp
PACKAGE package.lisp XPTEST-EXAMPLE.LISP XPTESTSUITE.LISP
XPTest.system
paul at arctanov:~/max-0.1/test $ cp package.lisp package
paul at arctanov:~/max-0.1/test $ cd ..
paul at arctanov:~/max-0.1 $ 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-2001
[1]> (load 'max.lsp)
;; Loading file max.lsp ...
;; Loading file test.lsp ...
;; Loading file test/package ...
;; Loading of file test/package is finished.
;; Loading file /home/paul/max-0.1/test/xptestsuite.lisp ...
;; Loading of file /home/paul/max-0.1/test/xptestsuite.lisp is finished.
;; Loading of file test.lsp is finished.
;; Loading file /home/paul/max-0.1/util.lsp ...
;; Loading of file /home/paul/max-0.1/util.lsp is finished.
;; Loading file /home/paul/max-0.1/addr.lsp ...
;; Loading of file /home/paul/max-0.1/addr.lsp is finished.
;; Loading file /home/paul/max-0.1/object.lsp ...
;; Loading of file /home/paul/max-0.1/object.lsp is finished.
;; Loading file /home/paul/max-0.1/ptr.lsp ...
;; Loading of file /home/paul/max-0.1/ptr.lsp is finished.
;; Loading file /home/paul/max-0.1/function.lsp ...
;; Loading of file /home/paul/max-0.1/function.lsp is finished.
;; Loading file /home/paul/max-0.1/set.lsp ...
;; Loading of file /home/paul/max-0.1/set.lsp is finished.
;; Loading file /home/paul/max-0.1/pair.lsp ...
;; Loading of file /home/paul/max-0.1/pair.lsp is finished.
;; Loading file /home/paul/max-0.1/string.lsp ...
;; Loading of file /home/paul/max-0.1/string.lsp is finished.
;; Loading file /home/paul/max-0.1/boolean.lsp ...
;; Loading of file /home/paul/max-0.1/boolean.lsp is finished.
;; Loading file /home/paul/max-0.1/catalog.lsp ...
;; Loading of file /home/paul/max-0.1/catalog.lsp is finished.
;; Loading file /home/paul/max-0.1/eval.lsp ...
;; Loading of file /home/paul/max-0.1/eval.lsp is finished.
;; Loading file /home/paul/max-0.1/menu.lsp ...
;; Loading of file /home/paul/max-0.1/menu.lsp is finished.
Initializing...
;; Loading of file max.lsp is finished.
T
[2]> (test)
30/30 tests succeeded (100.0%), 0 failed
T
[3]> (menu)
=============
| Main Menu |
=============
1. Types
2. Functions
3. Tests
4. Workspace
Q. Quit
--> 1
=========
| Types |
=========
1. (#<TYPES-TYPE #x2036B151> #<TYPES-TYPE #x2036B151>)
2. (#<TYPES-TYPE #x2036B151> #<SET-TYPE #x2037A955>)
3. (#<TYPES-TYPE #x2036B151> #<ENUMERATED-TYPE #x2037CC09>)
4. (#<TYPES-TYPE #x2036B151> #<NULL-TYPE #x2036D5DD>)
5. (#<TYPES-TYPE #x2036B151> #<OBJECT-CLASS #x20373C79>)
B. Back
M. Main Menu
Q. Quit
--> b
=============
| Main Menu |
=============
1. Types
2. Functions
3. Tests
4. Workspace
Q. Quit
--> 2
=============
| Functions |
=============
1. (#<FUNCTION-TYPE #x203773B1> #<ENUMERATED-FUNCTION #x2037D221>)
2. (#<FUNCTION-TYPE #x203773B1> #<BUILTIN-FUNCTION #x2037CE11>)
3. (#<FUNCTION-TYPE #x203773B1> #<BUILTIN-FUNCTION #x2037AF75>)
4. (#<FUNCTION-TYPE #x203773B1> #<BUILTIN-FUNCTION #x20391A19>)
5. (#<FUNCTION-TYPE #x203773B1> #<BUILTIN-FUNCTION #x2037B1DD>)
6. (#<FUNCTION-TYPE #x203773B1> #<ENUMERATED-FUNCTION #x2037CF7D>)
B. Back
M. Main Menu
Q. Quit
--> b
=============
| Main Menu |
=============
1. Types
2. Functions
3. Tests
4. Workspace
Q. Quit
--> 3
30/30 tests succeeded (100.0%), 0 failed
=============
| Main Menu |
=============
1. Types
2. Functions
3. Tests
4. Workspace
Q. Quit
--> 4
=============
| Workspace |
=============
B. Back
M. Main Menu
Q. Quit
--> b
=============
| Main Menu |
=============
1. Types
2. Functions
3. Tests
4. Workspace
Q. Quit
--> 1
=========
| Types |
=========
1. (#<TYPES-TYPE #x2036B151> #<TYPES-TYPE #x2036B151>)
2. (#<TYPES-TYPE #x2036B151> #<SET-TYPE #x2037A955>)
3. (#<TYPES-TYPE #x2036B151> #<ENUMERATED-TYPE #x2037CC09>)
4. (#<TYPES-TYPE #x2036B151> #<NULL-TYPE #x2036D5DD>)
5. (#<TYPES-TYPE #x2036B151> #<OBJECT-CLASS #x20373C79>)
B. Back
M. Main Menu
Q. Quit
--> 1
============================================================================
| Public interface for (#<TYPES-TYPE #x2036B151> #<TYPES-TYPE #x2036B151>) |
============================================================================
1. (#<FUNCTION-TYPE #x203773B1> #<BUILTIN-FUNCTION #x2037B1DD>)
2. (#<FUNCTION-TYPE #x203773B1> #<BUILTIN-FUNCTION #x20386761>)
B. Back
M. Main Menu
Q. Quit
--> q
T
[4]> (load 'adventure.lsp)
;; Loading file adventure.lsp ...
*** - EVAL/APPLY: keyword arguments for MAKE-ADDRESS should occur pairwise
1. Break [5]>
===
So as you see, after all the efforts of trying max with CMUCL, GCL
and finally with CLISP much more successfully, I still can't play
you're "wonderfull" adventure game which was exciting me so much!
# Current version: Snapshot from CVS on Sun, 19 Oct 2003 01:07:52 -0700 is
no better than 0.1 on (load 'adventure.lsp).
--Paul
More information about the Max
mailing list