(scheme-in-list): Add a fallback to create an error tag.
[cedet.git] / tests / cit-uml.cgr
blob322aac02e25a56a478099f5a2a763db292e6aea4
1 ;; Object /home/zappo/cedet/tests/cit-uml
2 ;; EIEIO PERSISTENT OBJECT
3 (cogre-base-graph "/home/zappo/cedet/tests/cit-uml"
4   :file "/home/zappo/cedet/tests/cit-uml.cgr"
5   :name "/home/zappo/cedet/tests/cit-uml"
6   :elements (list 
7    (cogre-class "CIT_Baseclass"
8     :position [27 0]
9     )
10    (cogre-class "CIT_Noodle"
11     :position [9 10]
12     )
13    (cogre-class "CIT_Bacon"
14     :position [29 10]
15     )
16    (cogre-class "CIT_Bread"
17     :position [47 10]
18     )
19    (cogre-class "CIT_Toast"
20     :position [47 20]
21     )
22    (cogre-class "CIT_Elbow"
23     :position [2 20]
24     )
25    (cogre-class "CIT_Spiral"
26     :position [18 20]
27     )
28    (cogre-inherit "Name"
29     :start "CIT_Spiral"
30     :end "CIT_Noodle"
31     )
32    (cogre-inherit "Name1"
33     :start "CIT_Elbow"
34     :end "CIT_Noodle"
35     )
36    (cogre-inherit "Name2"
37     :start "CIT_Bacon"
38     :end "CIT_Baseclass"
39     )
40    (cogre-inherit "Name3"
41     :start "CIT_Noodle"
42     :end "CIT_Baseclass"
43     )
44    (cogre-inherit "Name4"
45     :start "CIT_Bread"
46     :end "CIT_Baseclass"
47     )
48    (cogre-inherit "Name5"
49     :start "CIT_Toast"
50     :end "CIT_Bread"
51     )
52    )
53   )