[求助]：奇怪的lisp问题

zjdtm

1、源代码如下：
(defun c:testif1()
  (setq a (getint "输入a值："))
  (setq b (getint "输入b值："))
  (if (> a b)
    (princ "a大于b")
    (princ "a小于等于b")
    )
   )
输入a：4     b：5
运行后回应：
a小于等于b"a小于等于b"

改为：
(defun c:testif1()
  (setq a (getint "输入a值："))
  (setq b (getint "输入b值："))
  (if (> a b)
    (princ "a大于b")
    (princ "a小于等于b")
    )
   (prin1)
   
  )

回应正常：a小于等于b
但我不知道为什么？
2.这个问题比较怪。请大家仔细看命令行，在输入数字前后，提示文字在变化。

ll_j

这是中西文混杂后命令行显示不好造成的，可以在a、b前面（或后面）加一空格（凑成双字节？），也可以在最前面加一空格。

懒虫

a小于等于b"a小于等于b"中，前面的是执行程序命令，后面的是程序做为函数的返回值，
例如，在程序的最后，加 (setq a 100)，最后会显示个100。
如果不希望这样的显示，在最后加个 (princ) 等的空反映的语句。