$ 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.44.1 (2008-02-23) <http://clisp.cons.org/>
Copyright © Bruno Haible, Michael Stoll 1992, 1993
Copyright © Bruno Haible, Marcus Daniels 1994-1997
Copyright © Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright © Bruno Haible, Sam Steingold 1999-2000
Copyright © Sam Steingold, Bruno Haible 2001-2008
Type :h and hit Enter for context help.
[1]> (cadadr '((((1 2)(3 4))((5 6)(7 8)))(((9 10)(11 12))((13 14)(15 16)))))
((13 14) (15 16))
[2]>
[5]> (cdr '((9 10)(11 12)))
((11 12))
[8]> (cdr (cons '(9 10) '(11 12)))
(11 12)
$ lisp
CMU Common Lisp CVS 19d 19d-release (19D), running on binarygoblin
With core: /usr/lib/cmucl/lisp.core
Dumped on: Fri, 2007-10-19 07:07:02-04:00 on binarygoblin
For support see http://www.cons.org/cmucl/support.html Send bug reports to the debian BTS.
or to pvaneynd@debian.org
type (help) for help, (quit) to exit, and (demo) to see the demos
Loaded subsystems:
Python 1.1, target Intel x86
CLOS based on Gerd's PCL 2004/04/14 03:32:47
* (cdr '(1 2))
(2)
* (cdr (cons 1 2))
2
victim = get_char_world( ch, "puff" );
the cdr of ((((1 2)(3 4))((5 6)(7 8)))(((9 10)(11 12))((13 14)(15 16)))) is (((9 10)(11 12))((13 14)(15 16)))
the car of (((9 10)(11 12))((13 14)(15 16))) is ((9 10)(11 12))
the cdr of ((9 10)(11 12)) is (11 12)
the car of (11 12) is 11
Maybe that's backwards?