Subject: [22.1.92]: Barf in cvs-mode-tree

From: "Marshall\, Simon" <[email-masked]>
Date: Fri, 28 Mar 2008 15:01:47 -0000

Guys,

I hit the below truncated barf when doing "+" (cvs-mode-tree) on an item in the *cvs* buffer generated from "Tools | PCL-CVS | Examine Directory".  If I temporarily set max-specpdl-size to (* 1000 1000), then cvs-mode-tree completes successfully, showing all 235 tags correctly.  Reproducible with emacs -Q.

Maybe this particular function needs to be more forgiving?  It must be doing a lot of binding...

Simon.

Debugger entered--Lisp error: (error "Variable binding depth exceeds max-specpdl-size")
  cvs-map(#[(v p) "‡" [v] 1] nil (nil))
  apply(cvs-map #[(v p) "‡" [v] 1] (nil (nil)))
  cvs-map(#[(v p) "‡" [v] 1] nil (nil nil))
  apply(cvs-map #[(v p) "‡" [v] 1] (nil (nil nil)))
  cvs-map(#[(v p) "‡" [v] 1] nil (nil nil nil))
  apply(cvs-map #[(v p) "‡" [v] 1] (nil (nil nil nil)))
  cvs-map(#[(v p) "‡" [v] 1] (2) (2 nil nil nil))
  apply(cvs-map #[(v p) "‡" [v] 1] ((2) (2 nil nil nil)))
  cvs-map(#[(v p) "‡" [v] 1] (4 2) (4 2 nil nil nil))
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p6c" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p6b" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p6a" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5u" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p6" 0 11 ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5n" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5m" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5l" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5k" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5j" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5i" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5h" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5g" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5f" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5e" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5d" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5c" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5b" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5a" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p5" 0 11 ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p4c" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p4a" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p2_1" 0 1...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p4" 0 11 ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p2c" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p2b" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p2a" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("MAINT_5_4p2" 0 11 ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("REL_5_4" 0 7 ...) ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 2) #("PROJ_PP_POSTMERGE"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1 2) #("PROJ_PAR_PROC" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_PREMERGE" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_MERGEPOINT...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_MERGEPOINT...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_MERGEPOINT...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_MERGEPOINT...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_MERGEPOINT...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_MERGEPOINT...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_MERGEPOINT...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_MERGEPOINT...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_MERGEPOINT...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_MERGEPOINT...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_BASELINE2"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_BASELINE1"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (4 1) #("PROJ_PP_PRE_BASELI...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2 6) #("PROJ_SML_REPOS" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2 4) #("MAINT_5_3p7" 0 1...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2 2) #("MAINT_5_3" 0 9 ....
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p11h" 0 1...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p9e" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p9" 0 11 ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("PROJ_SML_REPOS_MER...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("PROJ_SML_REPOS_MER...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p8a" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p7ar" 0 1...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p7an" 0 1...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p7ak" 0 1...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p7t" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p7s" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p7p" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p7l" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p7i" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p7c" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p7b" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p7a" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p6" 0 11 ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p5" 0 11 ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p4d" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p4c" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p4b" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p4a" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p4" 0 11 ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p3b" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p3a" 0 12...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p3" 0 11 ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("MAINT_5_3p2" 0 11 ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 2) #("REL_5_3" 0 7 ...) ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1 2) #("MAINT_5_2p2_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p7" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p6c" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p6b" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p6a" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p6" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p5e" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p5a" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p5" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p4" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p3e" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p3c" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p3b" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p3a" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p3" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p2e" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p2" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1 1) #("MAINT_5_2p2_20...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1 1) #("MAINT_5_2" 0 9 ....
  cvs-tree-tags-insert(([cl-struct-cvs-tag (3 1) #("REL_5_2" 0 7 ...) ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1 4) #("MAINT_5_1p7a...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1 2) #("MAINT_5_1p7x...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p8d" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7by"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p8a" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p8" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7br"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7bo"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7bh"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ay"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac_...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7au"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7at"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7aq"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ao"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ap"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7an"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ai"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ac"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7ab"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7x" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7t" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7o" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7n" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7l" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7j" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7g" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7f" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7d" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7c" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7b" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7a" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p7" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p6" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p4u2"...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p4w" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p4u" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p4j" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p4" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p3c" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p3" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1 1) #("MAINT_5_1p0" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1 1) #("MAINT_5_1" 0 9 ....
  cvs-tree-tags-insert(([cl-struct-cvs-tag (2 1) #("REL_5_1" 0 7 ...) ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (1 1 1 1) #("MAINT_5_0p4w" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (1 1 1 1) #("MAINT_5_0p4h" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (1 1 1 1) #("MAINT_5_0p4f" ...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (1 1 1 1) #("MAINT_5_0p2" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (1 1 1 1) #("MAINT_5_0p0" 0...
  cvs-tree-tags-insert(([cl-struct-cvs-tag (1 1 1) #("MAINT_5_0" 0 9 ....
  cvs-tree-tags-insert(([cl-struct-cvs-tag (1 1) #("REL_5_0" 0 7 ...) ...
  cvs-status-cvstrees()
  (progn (cvs-parse-process (quote t) nil (quote ...)) (cvs-status-cvs...
  eval((progn (cvs-parse-process (quote t) nil (quote ...)) (cvs-statu...
  cvs-sentinel(#<process cvs> "finished\n") 

 "Misys" is the trade name for Misys plc (registered in England and Wales). Registration Number: 01360027. Registered office: Burleigh House, Chapel Oak, Salford Priors, Evesham WR11 8SP. For a list of Misys group operating companies please go to http://www.misys.com/html/about_us/group_operating_companies/. This email and any attachments have been scanned for known viruses using multiple scanners. 
 
We believe that this email and any attachments are virus free, however the recipient must take full responsibility for virus checking. This email message is intended for the named recipient only. It may be privileged and/or confidential. If you are not the named recipient of this email please notify us immediately and do not copy it or use it for any purpose, nor disclose its contents to any other person. This email does not constitute the commencement of legal relations between you and Misys plc. Please refer to the executed contract between you and the relevant member of the Misys group for the identity of the contracting party with which you are dealing.