Предикаты Common Lisp

Вы знаете, где я могу получить исходный код предиката в Common Lisp? (Содержимое предиката, если хотите.) Например, исходный код setq, string = и т. Д.

Спасибо!