ifは、関数の中で書くことも出来るお。
下の例は、xの値が0より小さいなら、xの値をマイナスにするというやつ。
で、abs$の引数は、3-5=-2、-2は0より小さいので、戻り値は2。
[1]> (defun abs$ (x) (if (< x 0) (- x) x)) ABS$ [2]> (setf a 3) 3 [3]> (abs$ (- a 5)) 2
ifは、関数の中で書くことも出来るお。
下の例は、xの値が0より小さいなら、xの値をマイナスにするというやつ。
で、abs$の引数は、3-5=-2、-2は0より小さいので、戻り値は2。
[1]> (defun abs$ (x) (if (< x 0) (- x) x)) ABS$ [2]> (setf a 3) 3 [3]> (abs$ (- a 5)) 2