lisp写注册程序求助

sealive_leafage

(defun c:ssss ()
, o+ b" o! I6 m$ T/ B4 \8 ](if (= (* 555 (three)) 45477701755)
) e, ~1 y6 z9 W- x5 q3 P* s   (progn
      (alert "你的程序已注册")
    )
1 g/ E" }/ s& C0 o9 g% W    (progn      
* G9 t/ M0 P& v/ _+ u) g      (alert "你的程序未注册")
    )
)
. l, e$ z' b% B" E8 \9 P; @3 K0 u- B(princ)
9 J5 w) X0 M* v$ ^& V: m, h! c)
- D( I9 h3 f" U
0 l% v1 ~- M; I7 L/ K# J( x(defun three()
  (setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值
# ~9 G' o  G5 q8 g5 [/ |5 x( e)

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