Microsoft Windows [Version 10.0.14393]
(c) 2016 Microsoft Corporation. All rights reserved.

C:\Users\Tara>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) <http://clisp.cons.org/>

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 "C:/Users/Tara/Desktop/lp(1).l")
;; Loading file C:\Users\Tara\Desktop\lp(1).l ...
;; Loaded file C:\Users\Tara\Desktop\lp(1).l
T
[2]> (mapcar #'car '( (9 7 8) (6 5 4) (3 2 1) ))
(9 6 3)
[3]> (mapcan #'car '( (9 7 8) (6 5 4) (3 2 1) ))
3
[4]> (mapcar #'rac ( (iota 3) (iota 2) (iota 1) ))

*** - EVAL: (IOTA 3) is not a function name; try using a symbol instead
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead.
ABORT          :R2      Abort main loop
Break 1 [5]> ;a
(mapcar #'rac (list (iota 3) (iota 2) (iota 1) ))
(3 2 1)
Break 1 [5]> :a
[6]> (mapcan #'rac (list (iota 3) (iota 2) (iota 1) ))
1
[7]> (mapcar #'cdr ( (b l u e) (y e l l o w) (r e d) ))

*** - EVAL: (B L U E) is not a function name; try using a symbol instead
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead.
ABORT          :R2      Abort main loop
Break 1 [8]> :a
[9]> (mapcar #'cdr '( (b l u e) (y e l l o w) (r e d) ))
((L U E) (E L L O W) (E D))
[10]> (mapcan #'cdr '( (b l u e) (y e l l o w) (r e d) ))
(L U E E L L O W E D)
[11]> (mapcar #'rdc (list (iota 3) (iota 2) (iota 1) ))
((1 2) (1) NIL)
[12]> (mapcan #'rdc (list (iota 3) (iota 2) (iota 1) ))
(1 2 1)
[13]> (mapcar #'duplicate '( 1 2 ) '( 3 2) )
((3) (2 2))
[14]> (mapcan #'duplicate '( 1 2 ) '( 3 2) )
(3 2 2)
[15]> (mapcar #'power '(1 2 3) '(1 2 3))
(1 4 27)
[16]> (mapcan #'power '(1 2 3) '(1 2 3))
27
[17]>