;;

(setq special1 12)

(defun foo1 () "abc")

(defun foo2 () 1)

(defun foo3 () (foo2) 'b)

;;; This doesn't work yet.
;;;(defun foo4 () '#(1 2 3))

(defun foo5 () '(1 2 3))

;;; The following calls an undefined function *plus
(defun foo6 (x y) (+ x y))

(defun foo7 () special1)

(defun foo8 (x &optional (y 0 y-p))
  (li:print x)
  (foo9 y y-p))

(defun foo9 (x &optional (y-p nil))
  (li:print x)
  (li:print y-p))

(defun foo10 (x)
  (+ x 12345678987654321))


(defun foo11 (x)
  (dotimes (i x)
    (li:print i)))

(li:print "We are loaded!")