Как я могу сделать конструктор конструкции Последовательно в общем Lisp?

Я хотел бы сделать что-то похожее на это:

(defstruct person
  real-name
  (fake-name real-name)) ;if fake-name not supplied, default to real-name

Тем не менее, общий Lisp говорит . Переменная реального имени не связано. Так как я могу получить Конструктор для оценки его аргументов последовательно (как я могу с функциональными аргументами ключевых слов) или как еще мне лучше делать это?