如何将关系运算符用变量来代替?

wzh

如何将关系运算符用变量来代替?比如： (defun Check(Sign / ) (if (Sign x1 x2) (setq x (1+ x)) ) ) (check ">") 或 (check >)

龙龙仔

(defun CHECK (SIGN /)
(setq X 5)
(if ((eval SIGN) 2 1)
(setq X (1+ X))
)
X
)
;;(CHECK '<)