|
|
发表于 2006-9-15 15:37:40
|
显示全部楼层
来自： 中国江苏扬州
确定某独立名称空间当前是否加载
1 ~6 _' i9 B+ I M4 S5 _6 C( _& i) k
(vl-vlx-loaded-p appname) $ |3 Y! O2 ]& f! U0 `& f
参数; k X: L5 f8 Y7 A' T1 C3 ^8 u! k
3 I/ U. O+ @: ?$ @3 r+ J5 e; kappname
' L3 t& t+ E) X, k! ^! d
. w; y) j+ k% x! y3 x& G# ]' S( V字符串，指定 VLX 应用程序。3 x5 ]4 P8 X9 W* K
- N& I5 h* b& t6 B) ~ m
返回值
. r& [7 \; D3 C j4 u- H
& S# y a& _8 A( W9 v& v0 g如果应用程序已经加载则返回 T，如果未加载则返回 nil。/ s3 d0 D4 V0 `7 P! G- M5 T
& C; c/ Y- M9 F- }示例
% r/ V$ v) V, q# @$ c: j) w g7 M; V
检查 vlxns 应用程序是否已加载到自己的名称空间：
1 \- m+ z8 H- _4 e i* q/ v8 Y6 O3 {: R
命令： (vl-vlx-loaded-p "vlxns")
( p% ]0 W0 V3 k/ L: I1 \2 L- d' o; m
nil2 \# ^( a* L& |( n' r& q/ r9 w2 A" L
2 V# a$ \4 ~6 @; F" m) I7 `
应用程序未加载到自己的名称空间。
4 o3 H3 s8 Q; j! A P; [" B7 ]& W# l% b* a, X& W6 F0 f) K
现在加载 vlxns：; _0 p3 h1 f- p
$ w8 T3 ]) @; |5 U; w8 P7 C, X命令： (load "vlxns.vlx") / s* N7 D" W9 x ]: t) P( W
7 L% W. ^( g3 ^) d7 fnil: u9 s& y3 P8 e% v8 o
/ c) _& @$ o) _: b/ d
检查 vlxns 应用程序是否成功加载：
h/ \6 i% Q+ H* m" Y
( w. c7 C2 w2 U8 t# \ h T* ^* @命令： (vl-vlx-loaded-p "vlxns") 5 n1 b9 U8 f% q; K$ h, p
. ~- W) x [, p* x/ J
T
+ |* n$ R# `2 ~" _! _6 Y, m- H, j4 b- |. N
本样例中假定 vlxns 定义为运行在自己的名称空间中。如果没有这样定义，它将被加载到当前文档的名称空间，vl-vlx-loaded-p 将返回 nil。 |
|
