defun

(defun name (params...) body...)

指定したパラメータリストと本体を持つ name という名前の関数を関数名前空間に定義し、名前シンボルを返します。body は定義時には評価されず、呼び出しごとに実行され、本体の最後のフォームの値を返します。Lisp-2 に従い、定義は関数名前空間に存在するため、同名の変数と衝突することなく、呼び出し位置で(および #'name を通じて)その名前を参照できます。

ラムダリストキーワード

パラメータリストは Common Lisp のラムダリストキーワード &optional、&rest、&key、&allow-other-keys、&aux(この順序)をサポートします。デフォルトフォームは引数が省略されたときのみ評価され、左側で束縛済みのパラメータを参照できます。オプショナル/キーワードパラメータには supplied-p 変数を宣言でき、呼び出し側が引数を渡した場合に t になります。

未知のキーワード引数は、ラムダリストが &allow-other-keys を宣言しているか、呼び出し側が :allow-other-keys t を渡さない限りエラーを通知します。&aux は末尾の let* のように束縛される補助変数を導入します。&whole はサポートされません。

必須引数より少ない引数で関数を呼び出すと(固定アリティ関数では多すぎる場合も)、インタプリタではエラーを通知し、JVM/WASM バックエンドではコンパイルエラーになります。

> (defun f (a b) (+ a b))
> (f 1)
Function expects 2 arguments, got 1

setf 関数名

name にはプレーンなシンボルの代わりに (setf name) のリストを指定できます。これは setf 関数 を定義します。すなわち、name を setf のプレースとして使ったときに呼び出される書き込み用の関数です。新しい値は最初の引数として渡されます(Common Lisp の慣習どおり、setf ラムダリストの最後の必須パラメータになります)。したがって (setf (name arg...) value) は書き込み関数を value に続いて arg... の順で呼び出します。#'(setf name) を通じてファーストクラス値としても扱えます。

サポートされるのは (setf name) 形式(2 要素のリスト)のみです。(setf ...) 名に対する symbol-function/fboundp はサポートされません。