(when (< 0 (get-universal-time))
  (defun foo (a &rest args)
    (format T "~&~?~%" a args))

  (defun bar (a &rest args)
    (apply 'foo a args)))