|
|
发表于 2006-9-15 15:37:40
|
显示全部楼层
来自: 中国江苏扬州
确定某独立名称空间当前是否加载
: ^" F0 P p6 C$ K" G
" o$ b9 G" F3 e: f* ?(vl-vlx-loaded-p appname)
- W; B6 \8 p3 F/ Z- a: x, K3 f9 Y参数
5 I1 R' U( t$ y8 @7 i
1 Y# N" \: s9 M! d3 u$ X9 xappname
; X, i8 o9 a: L' e7 q/ j' r0 b) E
+ g4 N( M% }+ }: f1 S字符串,指定 VLX 应用程序。
& m+ h% l# H3 v& p
) T2 S8 c6 \" m( r$ ?6 P返回值
+ ^- K; f7 c" i% G2 l6 a5 V) B
8 C/ D7 R/ _5 ~3 ]+ }% `如果应用程序已经加载则返回 T,如果未加载则返回 nil。
3 F- H! X- h/ I" P' j
+ [2 V$ j" Y8 O8 r9 }示例
8 _: z) J: q. e6 j% z
2 V T: p8 G; |4 |! Q4 K2 f+ j3 j, W检查 vlxns 应用程序是否已加载到自己的名称空间:/ h& ]7 ?# b$ P0 ?, L0 c" p) l+ K
: {4 j6 @) x! W* [命令: (vl-vlx-loaded-p "vlxns")
- t: m6 k- r9 u- _& W) y8 d1 K7 w. C9 C$ k* j
nil+ O# w2 e& u& j
: j, m0 a( {/ }应用程序未加载到自己的名称空间。& g: m8 u+ N3 m+ ~
. T4 \# U# g3 n1 k
现在加载 vlxns:
6 Q2 L u# e5 H$ f0 u3 H0 k, t0 T0 |7 r
命令: (load "vlxns.vlx")
. V7 |, ?: `) a" o' I! B+ w
$ n7 o. G' V, b( U' H2 o( b7 t0 M& enil$ s; G# W5 c7 E' V; @( I) e
/ n0 S/ R5 T; s; x' T; x+ ?. R检查 vlxns 应用程序是否成功加载:
5 U+ z! J k( L; V
, Q( j W1 u: p0 T% R命令: (vl-vlx-loaded-p "vlxns")
+ q8 R, ] R! ]
& s5 B$ d/ _# l7 P' `+ d+ wT
. e9 l+ O( p8 G9 g5 _7 x
/ W. A. d3 I; J) F6 P本样例中假定 vlxns 定义为运行在自己的名称空间中。如果没有这样定义,它将被加载到当前文档的名称空间,vl-vlx-loaded-p 将返回 nil。 |
|