;;; -*- Mode:LISP; Package:USER; Readtable:CL; Base:10 -*-

(defun foo (a)
  (bar a))

(defun bar (a)
  (1+ a))

(defun baz (a b)
  (cons (bar a) (bar b)))

(defun yow (a &optional (b 'yow))
  (cons b (cons (bar a) (foo a))))