2.7.2. Funktionsdefinition

Zusätzlich zu den vorhandenen Funktionen lassen sich eigene Funktionen mit dem Makro defun definieren.

;;; Definition einer Funktion mit einem Argument x:

(defun square (x) (* x x)) ;; -> square

;;; Aufruf der Funktion mit verschiedenen Argumenten:

(square 4) ;; -> 16
(square 6) ;; -> 36

;;; Definition einer Funktion mit einem keyword Argument:

(defun transpose (keynum &key (transposition 0))
  (+ keynum transposition))

(transpose 60) ;; -> 60
(transpose 60 :transposition 4) ;; -> 64