対話によるCommon Lisp入門 15 違う名前の引数同じ関数

[43]> (defun double (x) (+ x x))
DOUBLE
[44]> (setf x 7)
7
[45]> (+ (double 0) x)
7
[46]> (defun double (x1) (+ x1 x1))
DOUBLE
[47]> (setf x1 0)
0
[48]> (+ (double 0) x)
7
[49]> (defun double (x1) (+ (+ x1 x1) x))
DOUBLE
[50]> (+ (double 0) x)
14

同じ関数名で違うものを定義しても、後で定義した関数が適用される