Welcome to Macintosh Common Lisp Version 4.1!
? (defun add-numbers (list-of-numbers)
    (if (null list-of-numbers)
      0
      (+ (car list-of-numbers)
         (add-numbers (cdr list-of-numbers)))))
ADD-NUMBERS
? (add-numbers '(1 2 3 99 4))
109
? (trace add-numbers)
NIL
? (add-numbers '(1 2 3 99 4))
 Calling (ADD-NUMBERS (1 2 3 99 4)) 
 ADD-NUMBERS returned 109
109
? (+ 1 2 3 99 4)
109
? (setq nums '(1 2 3 99 4))
(1 2 3 99 4)
? (add-numbers nums)
 Calling (ADD-NUMBERS (1 2 3 99 4)) 
 ADD-NUMBERS returned 109
109
? (funcall #'+ nums)
> Error: value (1 2 3 99 4) is not of the expected type NUMBER.
> While executing: +
> Type Command-. to abort.
See the RestartsŠ menu item for further choices.
1 > 
Aborted
? (apply #'+ nums)
109
? (eval (cons '+ nums))
109
? (defun add-numbers (list-of-numbers)
    (if (null list-of-numbers)
      0
      (+ (car list-of-numbers)
         (add-numbers (cdr list-of-numbers)))))
ADD-NUMBERS
? (add-numbers nums)
 Calling (ADD-NUMBERS (1 2 3 99 4)) 
  Calling (ADD-NUMBERS (2 3 99 4)) 
   Calling (ADD-NUMBERS (3 99 4)) 
    Calling (ADD-NUMBERS (99 4)) 
     Calling (ADD-NUMBERS (4)) 
      Calling (ADD-NUMBERS NIL) 
      ADD-NUMBERS returned 0
     ADD-NUMBERS returned 4
    ADD-NUMBERS returned 103
   ADD-NUMBERS returned 106
  ADD-NUMBERS returned 108
 ADD-NUMBERS returned 109
109
? 
(AMHERST UMASS HAMPSHIRE SMITH MOUNT-HOLYOKE)
?
(HAMPSHIRE SMITH MOUNT-HOLYOKE)
? (setq lkjhdflkjhlksdjfh 'lkjhlksjfdh)
LKJHLKSJFDH
? (defvar my-var)
MY-VAR
? (defparameter foo 95)
FOO
? foo
95
? (defparameter foo 968876)
FOO
? foo
968876
? 
5
? foo
968876
? 
7
? (let* ((foo 2) (bar (+ foo 3)))
  (+ foo bar))
968881
? (if (< foo 8796534876345876345)
    'hi
    'bye)
HI
? 
8
? 
(YOWCH -- IT IS COLD!) 
(I WILL PLAY GOD AND CHANGE THAT!) 
78
? 
(WELL I GUESS IT IS NOT SO BAD) 
(WHERE DO YOU THINK WE ARE? HAWAII?) 
(WHERE DO YOU THINK WE ARE? HAWAII?)
? 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
SPUMONI
? (dotimes (n 20) (print n))

0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
NIL
? (let ((mysum 0))
    (dotimes (n 20)
      (setq mysum (+ mysum n))))
NIL
? (let ((mysum 0))
    (dotimes (n 20 mysum)
      (setq mysum (+ mysum n))))
190
? (let ((mysum 0))
    (dotimes (n 20 (* mysum 10))
      (setq mysum (+ mysum n))))
1900
? (defun random-elt (list)
    (let ((which-one (random (length list))))
      (let ((shortened-list list))
        (dotimes (n which-one)
          (setq shortened-list (cdr shortened-list)))
        (car shortened-list))))
RANDOM-ELT
? (random-elt '(a b c d e f g))
A
? (random-elt '(a b c d e f g))
F
? (random-elt '(a b c d e f g))
C
? (dotimes (note 16) (print (random-elt '(c d e f g a b))))

E 
E 
F 
F 
E 
G 
D 
D 
D 
C 
C 
D 
E 
C 
G 
G 
NIL
? (dolist (thing '(1 2 3 4 5))
    (print thing))

1 
2 
3 
4 
5 
NIL
? 
GREET
? 
(SALLY BOOBOO MR-PAJAMAS MS-POTATO-HEAD)
? 
(SO NICE TO SEE YOU SALLY) 
(SO NICE TO SEE YOU BOOBOO) 
(SO NICE TO SEE YOU MR-PAJAMAS) 
(SO NICE TO SEE YOU MS-POTATO-HEAD) 
NIL
? 
PREHISTORY
? 
WILMA 
WILMA 
(HAS HUSBAND FRED) 
(HAS DINOSAUR DINO) 
YABADABADOO!
? 
BETTY 
BETTY 
(HAS HUSBAND BARNEY) 
NO-DINOSAUR
? 
FRANCINE 
NO-HUSBAND
? 
SMELL-TEST
? 
(GOOD BAD BAD LOUSY GOOD)
? 
DOUBLE
? 
(3 3)
? 
(3 3)
? 
(3 3)
? 
(3 3)
? 
(22 44 66 88)
? 
220
? 
#<Interpreted-function DOUBLE #x172D73E>
? 
(3 3)
?