XLISP-PLUS version 3.04
Portions Copyright (c) 1988, by David Betz.
Modified by Thomas Almy and others.
XLISP-STAT Release 3.52.17 (Beta).
Copyright (c) 1989-1999, by Luke Tierney.

> (defun manyapp (&rest lists)(apph lists))
MANYAPP
> (defun apph(lists) (cond
       ( (null lists)       nil)
       ('else         (append (car lists) (apph (rest lists)))) ))
APPH
> (manyapp nil)
NIL
> (manyapp '(a b))
(A B)
> (manyapp '(a b) '(c d))
(A B C D)
> (manyapp '(a b) '(c d) '(e f))
(A B C D E F)
> (defun badmanyapp(&rest lists)(cond
         ( (null lists)     nil)
         ('else       (append (car lists) (badmanyapp (rest lists)))) ))
BADMANYAPP
> (badmanyapp nil)
error: argument stack overflow

(defun multiapp (&rest lists) (print (list 'LISTS=  lists)))
MULTIAPP
> (multiapp nil)

(LISTS= (NIL)) 
(LISTS= (NIL))
> (multiapp '(a b))

(LISTS= ((A B))) 
(LISTS= ((A B)))
> (multiapp '(a b) '(c d))

(LISTS= ((A B) (C D))) 
(LISTS= ((A B) (C D)))
> (defun badmanyapp(&rest lists)(cond
         ( (equal lists '(nil))     nil)
         ('else       (append (car lists) (badmanyapp (rest lists)))) ))
BADMANYAPP
> (badmanyapp nil)
NIL
> (badmanyapp '(a b))
(A B)
> (badmanyapp '(a b) '(c d))
(A B (C D))
> (defun inc(x) (+ 1 x))
INC
> (mapcar 'inc '(1 2 3))
(2 3 4)
> (mapcar #'inc '(1 2 3))
(2 3 4)
> (function-lambda-expression #'inc)
(LAMBDA (X) (+ 1 X))
NIL
INC
> (function-lambda-expression 'inc)
NIL
T
NIL
> (inc 1)
2
> (funcall inc 1)
Error: The variable INC is unbound.
> (funcall #'inc 1)
2
> ((LAMBDA (X) (+ 1 X)) 1)
2
>