296 |
;;decl, not just the coerced one. This needs another slot in |
;;decl, not just the coerced one. This needs another slot in |
297 |
;;info. |
;;info. |
298 |
(or (member t body) (setq body (append body (list t)))) |
(or (member t body) (setq body (append body (list t)))) |
299 |
|
;; Remove duplicate tags in C switch statement -- CM 20031112 |
300 |
|
(setq body |
301 |
|
(let (tags new-body) |
302 |
|
(dolist (b body) |
303 |
|
(cond ((or (symbolp b) (integerp b)) |
304 |
|
(unless (member b tags) |
305 |
|
(push b tags) |
306 |
|
(push b new-body))) |
307 |
|
(t |
308 |
|
(push b new-body)))) |
309 |
|
(nreverse new-body))) |
310 |
(setq body |
(setq body |
311 |
(mapcar |
(mapcar |
312 |
#'(lambda (x) |
#'(lambda (x) |