|
|
发表于 2006-9-15 15:37:40
|
显示全部楼层
来自： 中国江苏扬州
确定某独立名称空间当前是否加载
( h. R% G% G6 p. y4 O6 ^3 ]6 y' D+ @1 H. o2 m' T
(vl-vlx-loaded-p appname)
3 I' m: P" Y0 t m3 X" E/ O# o参数
0 t$ J1 t5 d" a' Q
- ]/ `1 M0 e/ ~' T* Happname: ]4 x' l K; M F6 X
) N( o. ~ g. U% ]0 Y& L
字符串，指定 VLX 应用程序。9 k- b! W" }$ y; ]4 G9 R' i0 l
1 w4 f& r j( Q/ Q
返回值' a! i5 R+ A0 o* F2 n3 @
) M8 z" H0 ^2 @) {8 d如果应用程序已经加载则返回 T，如果未加载则返回 nil。
+ g1 O0 M( I$ ?3 b1 {% L$ P8 U, ^- I+ c6 ~$ w
示例
' X2 y+ f8 x! T k3 z5 C0 v4 G `
8 R$ S! A6 x2 W# B. O: C# O检查 vlxns 应用程序是否已加载到自己的名称空间：
\8 c) _ [9 w9 H" B: m6 L1 B3 a1 y$ J2 ^" \
命令： (vl-vlx-loaded-p "vlxns") ' F/ L+ f& D L& k9 [! y6 K7 E
( `& X" N6 P% c6 U+ Z7 o9 P
nil2 u9 ?% n o- X: o+ p
- `; l# I- b' S& K. Q# P2 s, m应用程序未加载到自己的名称空间。# R+ `1 i9 d- U: { W* T$ V
" Q* ^' Q8 h, x* q
现在加载 vlxns：0 a5 Q8 } l4 v/ r) ?
) @+ v6 ^# P: C6 z+ m3 H' {命令： (load "vlxns.vlx")
! b% z1 C. n7 C) l" h4 a# m9 I( T# I' z6 }: ]; |# r8 \, [- M/ v0 r3 V& o
nil0 {. X- k- K5 `( E9 {2 c
2 \7 A# f+ {" R& \) s% ]. I
检查 vlxns 应用程序是否成功加载：; J' b1 `1 H. ]6 V/ p8 R0 n: `* Z
4 J% M" s. i0 U, x) V
命令： (vl-vlx-loaded-p "vlxns")
5 S* x, [( T6 s1 I: e A+ S% _: {' L4 L2 a1 Y; \0 H
T
, p8 K3 l, V! c( A" n0 R
; S* V/ V2 m/ f6 T* {本样例中假定 vlxns 定义为运行在自己的名称空间中。如果没有这样定义，它将被加载到当前文档的名称空间，vl-vlx-loaded-p 将返回 nil。 |
|
