sbclで、以前作ったbmi計算機をコマンドライン引数からインスタンスを作成し、オブジェクトを作る様に改造しようとしています。
引数が2個の場合、make-instance
で引数から、person
インスタンスを作成し、とりあえずperson
の内容を表示しようとしていますが、コンパイルすると変数person
が無いと怒られているようです。
以下がソースになりますが、どの様に修正したら良いでしょうか?
;;;
;;; bmi.lisp
;;;
;;;
;;; クラス定義
(defclass bmi ()
((height :accessor bmi-height :initform 0 :initarg :height)
(weight :accessor bmi-weight :initform 0 :initarg :weight)
(bmi :accessor bmi-bmi :initform 0)))
;;; 初期化
(defmethod initialize-instance :after ((x bmi) &rest _)
(let* ((meter-height (/ (bmi-height x) 100))
(tmp-value (/ (bmi-weight x) (* meter-height meter-height))))
(setf (bmi-bmi x) (float (/ (floor (* tmp-value 10)) 10)))))
;; 肥満度
(defmethod fatness ((x bmi))
(cond
((< (bmi-bmi x) 18.5) (format t "低体重"))
((< (bmi-bmi x) 25) (format t "標準体重"))
((< (bmi-bmi x) 30) (format t "肥満(1度)"))
((< (bmi-bmi x) 35) (format t "肥満(2度)"))
((< (bmi-bmi x) 40) (format t "肥満(3度)"))
(t (format t "肥満(4度)"))))
(if (= (length *posix-argv*) 3)
(let* ((tall-and-weight (cdr *posix-argv*))
(tall (read-from-string (car tall-and-weight)))
(weight (read-from-string (second tall-and-weight))))
(defparameter person (make-instance 'bmi :height tall :weight weight))
(describe person)) ;; personが無いと怒られる
())