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 "lp.lsp") ;; Loading file lp.lsp ... ;; Loaded file lp.lsp T [2]> (trace iota) ;; Tracing function IOTA. (IOTA) [3]> (trace duplicate) ;; Tracing function DUPLICATE. (DUPLICATE) [4]> (iota 1 '()) 1. Trace: (IOTA '1 'NIL) 1. Trace: IOTA ==> (1) (1) [5]> (iota '10 '()) 1. Trace: (IOTA '10 'NIL) 2. Trace: (IOTA '9 '(10)) 3. Trace: (IOTA '8 '(9 10)) 4. Trace: (IOTA '7 '(8 9 10)) 5. Trace: (IOTA '6 '(7 8 9 10)) 6. Trace: (IOTA '5 '(6 7 8 9 10)) 7. Trace: (IOTA '4 '(5 6 7 8 9 10)) 8. Trace: (IOTA '3 '(4 5 6 7 8 9 10)) 9. Trace: (IOTA '2 '(3 4 5 6 7 8 9 10)) 10. Trace: (IOTA '1 '(2 3 4 5 6 7 8 9 10)) 10. Trace: IOTA ==> (1 2 3 4 5 6 7 8 9 10) 9. Trace: IOTA ==> (1 2 3 4 5 6 7 8 9 10) 8. Trace: IOTA ==> (1 2 3 4 5 6 7 8 9 10) 7. Trace: IOTA ==> (1 2 3 4 5 6 7 8 9 10) 6. Trace: IOTA ==> (1 2 3 4 5 6 7 8 9 10) 5. Trace: IOTA ==> (1 2 3 4 5 6 7 8 9 10) 4. Trace: IOTA ==> (1 2 3 4 5 6 7 8 9 10) 3. Trace: IOTA ==> (1 2 3 4 5 6 7 8 9 10) 2. Trace: IOTA ==> (1 2 3 4 5 6 7 8 9 10) 1. Trace: IOTA ==> (1 2 3 4 5 6 7 8 9 10) (1 2 3 4 5 6 7 8 9 10) [6]> (duplicate '3 '(boing)) 1. Trace: (DUPLICATE '3 '(BOING)) 2. Trace: (DUPLICATE '2 '(BOING BOING)) 3. Trace: (DUPLICATE '1 '(BOING BOING BOING)) 3. Trace: DUPLICATE ==> (BOING BOING BOING) 2. Trace: DUPLICATE ==> (BOING BOING BOING) 1. Trace: DUPLICATE ==> (BOING BOING BOING) (BOING BOING BOING) [7]> (duplicate '9 '(9)) 1. Trace: (DUPLICATE '9 '(9)) 2. Trace: (DUPLICATE '8 '(9 9)) 3. Trace: (DUPLICATE '7 '(9 9 9)) 4. Trace: (DUPLICATE '6 '(9 9 9 9)) 5. Trace: (DUPLICATE '5 '(9 9 9 9 9)) 6. Trace: (DUPLICATE '4 '(9 9 9 9 9 9)) 7. Trace: (DUPLICATE '3 '(9 9 9 9 9 9 9)) 8. Trace: (DUPLICATE '2 '(9 9 9 9 9 9 9 9)) 9. Trace: (DUPLICATE '1 '(9 9 9 9 9 9 9 9 9)) 9. Trace: DUPLICATE ==> (9 9 9 9 9 9 9 9 9) 8. Trace: DUPLICATE ==> (9 9 9 9 9 9 9 9 9) 7. Trace: DUPLICATE ==> (9 9 9 9 9 9 9 9 9) 6. Trace: DUPLICATE ==> (9 9 9 9 9 9 9 9 9) 5. Trace: DUPLICATE ==> (9 9 9 9 9 9 9 9 9) 4. Trace: DUPLICATE ==> (9 9 9 9 9 9 9 9 9) 3. Trace: DUPLICATE ==> (9 9 9 9 9 9 9 9 9) 2. Trace: DUPLICATE ==> (9 9 9 9 9 9 9 9 9) 1. Trace: DUPLICATE ==> (9 9 9 9 9 9 9 9 9) (9 9 9 9 9 9 9 9 9) [8]> (bye) Bye.