|
|
发表于 2006-9-15 15:37:40
|
显示全部楼层
来自： 中国江苏扬州
确定某独立名称空间当前是否加载) x' M8 P; ~8 P- [* O k4 @; u- q
2 H2 f# H4 B( F: v8 d(vl-vlx-loaded-p appname)
: S5 H" g: w' H/ A8 E3 t S参数; T# s* E0 d Z) W
2 s& w \' n% _8 z4 e
appname f* n' J: T- C0 X5 j
3 j- T) K; Z( G( j5 |
字符串，指定 VLX 应用程序。$ r; G& {' U. W7 d2 }! b3 J* X
; E0 I* Z8 C4 S* u* x1 F/ u返回值9 Y# ~( x& S( N* n6 K3 b! a
) b: {3 ~( X) K
如果应用程序已经加载则返回 T，如果未加载则返回 nil。3 Q, p0 s# F# C7 |0 I1 h
z0 Y2 U! T: ~. M3 S
示例- L# s) r% ^: P. Y# v$ v
9 m& @7 F2 ?$ n+ r# e) a$ A* Q0 Z1 \检查 vlxns 应用程序是否已加载到自己的名称空间：+ {# f, Q& n; N T9 ^7 \, y' B
# h& C4 h* O7 V# a& D- n命令： (vl-vlx-loaded-p "vlxns") $ [+ d( @6 `) L0 [
' P4 i! T4 Q; S3 n7 N( cnil" h5 O5 j+ b/ m
* M) U D8 ]+ @. E
应用程序未加载到自己的名称空间。
$ ]$ J4 I6 F4 \3 X; l$ f! Q, ^
5 x. n# q, t" s- p% U% T现在加载 vlxns：
& @0 X C) l/ C7 P7 {& i0 @( a' Z% O9 B4 K( [
命令： (load "vlxns.vlx") 6 e1 k/ k$ f. W: k
2 G) s9 d- ^' c! K' dnil, d L K; W8 o9 W8 L2 u/ ~
. ?7 o: `6 Q1 E `
检查 vlxns 应用程序是否成功加载：
: E* z7 J2 H7 Y- o8 o9 m4 R, K3 @+ c3 c: x
命令： (vl-vlx-loaded-p "vlxns")
( \+ L" e# e' ~6 K, l6 |* f2 F
7 F' ?! v' ]- s* r, V% p6 A, AT. @" y( A$ T) }
5 S) M: a+ O9 g! v本样例中假定 vlxns 定义为运行在自己的名称空间中。如果没有这样定义，它将被加载到当前文档的名称空间，vl-vlx-loaded-p 将返回 nil。 |
|
