lisp写注册程序求助

sealive_leafage

(defun c:ssss ()
(if (= (* 555 (three)) 45477701755)
, Y' o  S( e! l; I" P; S8 v; g: ]- q   (progn
      (alert "你的程序已注册")
    )
    (progn      
      (alert "你的程序未注册")
- i. o  w8 S7 X, G8 u    )
)
(princ)
)

(defun three()
2 {  ?! I# j7 o9 G  (setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值
)
% f$ I# \" }$ P; e
  f0 |. G% b0 }7 o2 b% Q6 `) L大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！