msgdisp.exp

来自「NASA 开发使用的一个专家系统」· EXP 代码 · 共 52 行

TRUE
CLIPS> (testit)
DISPATCH TEST #1 OK.
DISPATCH TEST #2 OK.
DISPATCH TEST #3 OK.
DISPATCH TEST #4 OK.
DISPATCH TEST #5 OK.
DISPATCH TEST #6 OK.
DISPATCH TEST #7 OK.
DISPATCH TEST #8 OK.
DISPATCH TEST #9 OK.
DISPATCH TEST #10 OK.
DISPATCH TEST #11 OK.
DISPATCH TEST #12 OK.
DISPATCH TEST #13 OK.
DISPATCH TEST #14 OK.
DISPATCH TEST #15 OK.
DISPATCH TEST #16 OK.
DISPATCH TEST #17 OK.
DISPATCH TEST #18 OK.
DISPATCH TEST #19 OK.
DISPATCH TEST #20 OK.
DISPATCH TEST #21 OK.
DISPATCH TEST #22 OK.
DISPATCH TEST #23 OK.
DISPATCH TEST #24 OK.
DISPATCH TEST #25 OK.
DISPATCH TEST #26 OK.
DISPATCH TEST #27 OK.
DISPATCH TEST #28 OK.
DISPATCH TEST #29 OK.
DISPATCH TEST #30 OK.
DISPATCH TEST #31 OK.
DISPATCH TEST #32 OK.
DISPATCH TEST #33 OK.
DISPATCH TEST #34 OK.
DISPATCH TEST #35 OK.
DISPATCH TEST #36 OK.
DISPATCH TEST #37 OK.
DISPATCH TEST #38 OK.
DISPATCH TEST #39 OK.
DISPATCH TEST #40 OK.
DISPATCH TEST #41 OK.
DISPATCH TEST #42 OK.
DISPATCH TEST #43 OK.
DISPATCH TEST #44 OK.
DISPATCH TEST #45 OK.
DISPATCH TEST #46 OK.
DISPATCH TEST #47 OK.
DISPATCH TEST #48 OK.
CLIPS> (dribble-off)