怎样让LISP程序在预定的时期失效!!?

jaminth

怎样让LISP程序在预定的时期失效!!?

如LISP在2008年以后就不能运行!

phoenixdjq

采用注册表的方法吧

去编程区找找吧

我以前见过的

xdp_monkey

加入这段代码就行了

(setq dt (getvar "cdate"))

   (if ( < dt 01000101.0) (progn

   (setq dt( + dt 20000000.0))

     )

     )

 (if ( < dt 20080401.0) (progn

function xxx//你的程序代码

)

)