lisp写注册程序求助

sealive_leafage

(defun c:ssss ()
(if (= (* 555 (three)) 45477701755)
; y/ i; T: q& M   (progn
      (alert "你的程序已注册")
: a2 D  H) O- ^# z) h* @6 a    )
8 ]  S8 Q" c$ n" E- m    (progn      
      (alert "你的程序未注册")
    )
" g) w. M, @2 ~)
1 w/ ^2 [" h& ]" E& Q4 m(princ)
)

' l  Y! }6 z0 D3 @(defun three()
. \2 I# I$ R0 ]  (setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值
)
. c/ @7 U. A5 e: ~
5 n' e) j" G) G% Q  Y大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！