((/hacking/subsumption.lisp::acl2-hacker::ttags-seen-at-defttag (nil nil nil nil (if) nil nil) (nil nil (endp) nil (er if) nil nil) ((wrld hard Error retrieving old ttags-seen.) nil (quote) (let) nil (and recursive-call) nil) ((subsume-ttags-since-defttag (c (assoc-eq name (cddar wrld))) name path last) nil (consp consp cdr) (eq eq) (if) nil nil) ((last wrld) nil (car quote caar cdar quote cadar) (and) nil (recursive-call) nil) ((wrld ttags-seen wrld wrld global-value wrld name path) nil (consp cdr cddar) (member-equal) nil nil nil) ((c path wrld wrld) nil (cdr) nil nil nil nil)) (/hacking/subsumption.lisp::acl2-hacker::ttags-seen-at-current-defttag (nil nil nil (let) nil nil nil) (((wrld (w state))) nil nil nil nil (acl2-hacker::ttags-seen-at-defttag) nil) ((wrld) nil (ttag) (active-book-name global-val) nil nil nil) ((wrld wrld state wrld) nil (quote) nil nil nil nil) ((ttags-seen) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))