Пример 16.4. Работа с командой defmethod

(clear)

(defmethod + ((?а NUMBER) (?b INTEGER)))

(defmethod + ((?a INTEGER) (?b INTEGER)))

(defmethod + ((?a INTEGER) (?b NUMBER)))

(defmethod + ((?a NUMBER) (?b NUMBER)

($?rest PRIMITIVE)))

(defmethod + ((?a NUMBER) (?b INTEGER (>?b 2))))

(defmethod +((?a INTEGER (>?a 2))

(?b INTEGER (>?b 3))))

(defmethod +((?a INTEGER (>?a 2)) (?b NUMBER))) (preview-generic +45)

Результат выполнения приведенных выше команд представлен на рис. 16.3.

Рис. 16.3. Использование команды defmethod