/[gcl]/gcl/cmpnew/gcl_cmptag.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmptag.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.2.1 by camm, Sun Sep 14 02:30:33 2003 UTC revision 1.1.2.2 by camm, Wed Nov 12 15:21:25 2003 UTC
# Line 296  Line 296 
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)

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26