4BSD/usr/doc/lisp/xxx.l

(defun xxx (i)
  (foo2 i (getd 'test)))