1182 |
(setq attribution attrib |
(setq attribution attrib |
1183 |
attriblist nil)) |
attriblist nil)) |
1184 |
((listp attrib) |
((listp attrib) |
1185 |
(setq attribution (eval attrib) |
(setq attribution (eval attrib)) |
1186 |
attriblist nil)) |
(if (stringp attribution) |
1187 |
|
(setq attriblist nil) |
1188 |
|
(setq attribution nil |
1189 |
|
attriblist (cdr attriblist)))) |
1190 |
(t (error "%s did not evaluate to a string or list!" |
(t (error "%s did not evaluate to a string or list!" |
1191 |
"sc-attrib-selection-list")) |
"sc-attrib-selection-list")) |
1192 |
))) |
))) |