Method: (P-CAR (EQL NIL))

Source

(defmethod p-car ((x (eql nil)))
  nil)