在 Common Lisp 中创建方法

Question

嗨，我正在做一个条件，如果条件为真，我只想调用一个方法，问题是我找不到如何在 C-Lisp 中创建方法的语法我是这种语言的新手，这是代码。

/* I want to create a method here which i can all anytime in my condition but I am having problem with a syntax 

 (void method()
   (print "Invalid")
 )

*/

(print "Enter number") 
(setq number(read())
(cond((< 1 number) (print "Okay"))
     ((> 1 number) /*I want to call a method here (the invalid one)*/ )
) 

Answer 1

要在 common lisp 中创建函数，您可以使用 defun 运算符：

(defun signal-error (msg)
   (error msg))

现在你可以这样称呼它：

(signal-error "This message will be signalled as the error message")

然后你可以像这样将它插入到你的代码中：

(print "Enter number") 
(setq number (read)) ;; <- note that you made a syntax error here.
(cond ((< 1 number) (print "Okay"))
      ((> 1 number) (signal-error "Number is smaller than 1."))))

在您的问题中，您询问的是method。方法对类进行操作。例如假设你有两个类human 和dog：

(defclass human () ())
(defclass dog () ())

要为您使用的每个类创建一个特定的方法defmethod：

(defmethod greet ((thing human))
  (print "Hi human!"))

(defmethod greet ((thing dog))
  (print "Wolf-wolf dog!"))

让我们为每个类创建两个实例：

(defparameter Anna (make-instance 'human))
(defparameter Rex (make-instance 'dog))

现在我们可以用同样的方式问候每个生物了：

(greet Anna) ;; => "Hi human"
(greet Rex)  ;; => "Wolf-wolf dog!"

common lisp 知道要执行哪个方法的过程称为“动态调度”。基本上它将给定参数的类与defmethod 定义相匹配。

但我不知道为什么您的代码示例中需要方法。

如果我是你，我会这样写代码：

;; Let's wrap the code in a function so we can call it
;; as much as we want
(defun get-number-from-user ()
  (print "Enter number: ")
  ;; wrapping the number in a lexical scope is a good
  ;; programming style. The number variable is not
  ;; needed outside the function.
  (let ((number (read)))
    ;; Here we check if the number satisfies our condition and
    ;; call this function again if not.
    (cond ((< number 1) (print "Number is less than 1")
                        (get-number-from-user))
          ((> number 1) (print "Ok.")))))

我建议你阅读“Lisp 之国”。这是一本适合初学者的好书。