/[cmucl]/src/contrib/ops/test3.ops
ViewVC logotype

Contents of /src/contrib/ops/test3.ops

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Sun May 31 02:23:39 1992 UTC (21 years, 10 months ago) by ram
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, double-double-array-base, post-merge-intl-branch, release-19b-pre1, release-19b-pre2, merged-unicode-utf16-extfmt-2009-06-11, double-double-init-sparc-2, unicode-utf16-extfmt-2009-03-27, double-double-base, snapshot-2007-09, snapshot-2007-08, snapshot-2008-08, snapshot-2008-09, ppc_gencgc_snap_2006-01-06, sse2-packed-2008-11-12, snapshot-2008-05, snapshot-2008-06, snapshot-2008-07, snapshot-2007-05, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, intl-branch-working-2010-02-19-1000, snapshot-2006-11, snapshot-2006-10, double-double-init-sparc, snapshot-2006-12, unicode-string-buffer-impl-base, sse2-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, RELEASE_18d, sse2-packed-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, snapshot-2003-10, snapshot-2004-10, release-18e-base, release-19f-pre1, snapshot-2008-12, snapshot-2008-11, intl-2-branch-base, snapshot-2004-08, snapshot-2004-09, remove_negative_zero_not_zero, snapshot-2007-01, snapshot-2007-02, snapshot-2004-05, snapshot-2004-06, snapshot-2004-07, release-19e, release-19d, GIT-CONVERSION, double-double-init-ppc, release-19c, dynamic-extent-base, unicode-utf16-sync-2008-12, LINKAGE_TABLE, release-19c-base, cross-sol-x86-merged, label-2009-03-16, release-19f-base, PRE_LINKAGE_TABLE, merge-sse2-packed, mod-arith-base, sparc_gencgc_merge, merge-with-19f, snapshot-2004-12, snapshot-2004-11, intl-branch-working-2010-02-11-1000, RELEASE_18a, RELEASE_18b, RELEASE_18c, unicode-snapshot-2009-05, unicode-snapshot-2009-06, amd64-merge-start, ppc_gencgc_snap_2005-12-17, double-double-init-%make-sparc, unicode-utf16-sync-2008-07, release-18e-pre2, unicode-utf16-sync-2008-09, unicode-utf16-extfmts-sync-2008-12, prm-before-macosx-merge-tag, cold-pcl-base, RELEASE_20b, snapshot-2008-04, snapshot-2003-11, snapshot-2005-07, unicode-utf16-sync-label-2009-03-16, RELEASE_19f, snapshot-2007-03, release-20a-base, cross-sol-x86-base, unicode-utf16-char-support-2009-03-26, unicode-utf16-char-support-2009-03-25, release-19a-base, unicode-utf16-extfmts-pre-sync-2008-11, snapshot-2008-10, sparc_gencgc, snapshot-2007-04, snapshot-2010-12, snapshot-2010-11, unicode-utf16-sync-2008-11, snapshot-2007-07, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2007-06, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, snapshot-2003-12, release-19a-pre1, release-19a-pre3, release-19a-pre2, pre-merge-intl-branch, release-19a, UNICODE-BASE, double-double-array-checkpoint, double-double-reader-checkpoint-1, release-19d-base, release-19e-pre1, double-double-irrat-end, release-19e-pre2, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, release-19d-pre2, release-19d-pre1, snapshot-2010-08, release-18e, double-double-init-checkpoint-1, double-double-reader-base, label-2009-03-25, snapshot-2005-03, release-19b-base, cross-sol-x86-2010-12-20, double-double-init-x86, sse2-checkpoint-2008-10-01, intl-branch-2010-03-18-1300, snapshot-2005-11, double-double-sparc-checkpoint-1, snapshot-2004-04, sse2-merge-with-2008-11, sse2-merge-with-2008-10, snapshot-2005-10, RELEASE_20a, snapshot-2005-12, release-20a-pre1, snapshot-2005-01, snapshot-2009-11, snapshot-2009-12, unicode-utf16-extfmt-2009-06-11, portable-clx-import-2009-06-16, unicode-utf16-string-support, release-19c-pre1, cross-sparc-branch-base, release-19e-base, intl-branch-base, double-double-irrat-start, snapshot-2005-06, snapshot-2005-05, snapshot-2005-04, ppc_gencgc_snap_2005-05-14, snapshot-2005-02, unicode-utf16-base, portable-clx-base, snapshot-2005-09, snapshot-2005-08, lisp-executable-base, snapshot-2009-08, snapshot-2007-12, snapshot-2007-10, snapshot-2007-11, snapshot-2009-02, snapshot-2009-01, snapshot-2009-07, snapshot-2009-05, snapshot-2009-04, snapshot-2006-02, snapshot-2006-03, release-18e-pre1, snapshot-2006-01, snapshot-2006-06, snapshot-2006-07, snapshot-2006-04, snapshot-2006-05, pre-telent-clx, snapshot-2006-08, snapshot-2006-09, HEAD
Branch point for: release-19b-branch, double-double-reader-branch, double-double-array-branch, mod-arith-branch, RELEASE-19F-BRANCH, portable-clx-branch, sparc_gencgc_branch, cross-sparc-branch, RELEASE-20B-BRANCH, RELENG_18, unicode-string-buffer-branch, sparc-tramp-assem-branch, dynamic-extent, UNICODE-BRANCH, release-19d-branch, ppc_gencgc_branch, sse2-packed-branch, lisp-executable, RELEASE-20A-BRANCH, amd64-dd-branch, double-double-branch, unicode-string-buffer-impl-branch, intl-branch, release-18e-branch, cold-pcl, unicode-utf16-branch, cross-sol-x86-branch, release-19e-branch, sse2-branch, release-19a-branch, release-19c-branch, intl-2-branch, unicode-utf16-extfmt-branch
Initial revision
1
2
3 (literalize component) (literalize context) (literalize pcon) (literalize datum)
4 (literalize computation) (literalize setattr) (literalize template) (literalize interaction)
5 (literalize lineitem) (literalize local) (literalize discrlist) (literalize task)
6 (literalize arg) (literalize call) (literalize order) (literalize wip)
7 (literalize location) (literalize input) (literalize object) (literalize x)
8 (literalize status) (literalize place) (literalize time) (literalize port)
9 (literalize module) (literalize link) (literalize lists) (literalize outnode)
10 (literalize operator) (literalize current) (literalize attval) (literalize choice)
11 (literalize applied) (literalize stateop) (literalize exit)
12 (literalize component0) (literalize context0) (literalize pcon0) (literalize datum0)
13 (literalize computation0) (literalize setattr0) (literalize template0) (literalize interaction0)
14 (literalize lineitem0) (literalize local0) (literalize discrlist0) (literalize task0)
15 (literalize arg0) (literalize call0) (literalize order0) (literalize wip0)
16 (literalize location0) (literalize input0) (literalize object0) (literalize x0)
17 (literalize status0) (literalize place0) (literalize time0) (literalize port0)
18 (literalize module0) (literalize link0) (literalize lists0) (literalize outnode0)
19 (literalize operator0) (literalize current0) (literalize attval0) (literalize choice0)
20 (literalize applied0) (literalize stateop0) (literalize exit0)
21 (literalize tank) (literalize pipe) (literalize measurement) (literalize reading)
22 (literalize goal) (literalize material)
23
24 (literalize primer
25 spacer
26 role
27 cnt
28 null)
29
30 (literalize count
31 spacer
32 role
33 null
34 val
35 delta
36 null2)
37
38
39
40 (p start
41 (start)
42 -->
43 (remove 1)
44 (make primer ^role exist ^cnt 1)
45 (make primer ^role exist ^cnt 2)
46 (make primer ^role exist ^cnt 3)
47 (make primer ^role exist ^cnt 4)
48 (make primer ^role exist ^cnt 5)
49 (make primer ^role exist ^cnt 6)
50 (make primer ^role exist ^cnt 7)
51 (make primer ^role exist ^cnt 8)
52 (make primer ^role exist ^cnt 9)
53 (make primer ^role exist ^cnt 10)
54 (make primer ^role exist ^cnt 11)
55 (make primer ^role exist ^cnt 12)
56 (make primer ^role exist ^cnt 13)
57 (make primer ^role exist ^cnt 14)
58 (make primer ^role exist ^cnt 15)
59 (make primer ^role exist ^cnt 16)
60 (make primer ^role exist ^cnt 17)
61 (make primer ^role exist ^cnt 18)
62 (make primer ^role exist ^cnt 19)
63 (make primer ^role exist ^cnt 20)
64 (make primer ^role exist ^cnt 21)
65 (make primer ^role exist ^cnt 22)
66 (make primer ^role exist ^cnt 23)
67 (make primer ^role exist ^cnt 24)
68 (make primer ^role exist ^cnt 25)
69 (make primer ^role exist ^cnt 26)
70 (make primer ^role exist ^cnt 27)
71 (make primer ^role exist ^cnt 28)
72 (make primer ^role exist ^cnt 29)
73 (make primer ^role exist ^cnt 30)
74 (make count ^role exist ^val 1 ^delta 7)
75 (make count ^role exist ^val 2 ^delta 7)
76 (make count ^role exist ^val 3 ^delta 7)
77 (make count ^role exist ^val 4 ^delta 7)
78 (make count ^role exist ^val 5 ^delta 7)
79 (make count ^role exist ^val 6 ^delta 7)
80 (make count ^role exist ^val 7 ^delta 7)
81 (make primer ^role driver ^cnt -1))
82
83
84
85 (p driver
86 (primer ^role driver ^null <x>)
87 (count ^null <x> ^val <val> ^delta <delta>)
88 - (count ^val < <val>)
89 -->
90 (modify 2 ^val (compute <val> + <delta>)))
91
92
93 (p driverCopy
94 (primer ^role driver ^null <x>)
95 (count ^null <x> ^val <val> ^delta <delta>)
96 - (count ^val < <val>)
97 -->
98 (modify 2 ^val (compute <val> + <delta>)))
99
100
101
102 (p cs
103 (primer ^role exist ^cnt <= 2)
104 (primer ^role exist ^cnt <= 2)
105 (primer ^role exist ^cnt <= 2)
106 (primer ^role exist ^cnt <= 1)
107 (primer ^role exist ^cnt <= 1)
108 (primer ^role exist ^cnt <= 1)
109 -->
110 (halt))

  ViewVC Help
Powered by ViewVC 1.1.5