lisp写注册程序求助

sealive_leafage

(defun c:ssss ()
8 H) M6 a5 ]9 m" ~(if (= (* 555 (three)) 45477701755)
  C) d) _$ v2 ?5 q7 [   (progn
      (alert "你的程序已注册")
2 N& I: w$ g& Y# |- ]. p3 x    )
    (progn      
& M+ N$ j5 x7 J4 {: b# g  q: a      (alert "你的程序未注册")
    )
)
7 n' P4 C1 C8 n(princ)
) ^( ]1 }9 g/ f' J' e)
* ?2 f7 {' U. W* h3 {! B) y
% f9 q3 [& G. n/ r* H! c# M; X(defun three()
( M) d8 m1 ~- e0 k4 H# Y( [  y  (setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值
)

大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！