RosettaCodeData/Task/Null-object/Common-Lisp/null-object-2.lisp

(defmethod car* ((arg cons))
  (car arg))

(defmethod car* ((arg null))
  nil)