Die Funktion first-or-nil ermittelt das erste Element einer Liste, wenn die Liste nicht leer ist.

Die Funktion ist anhand von if und firstdefiniert:

(defproc first-or-nil (x)
  (if x (first x) nil))