[22.1.92]: Barf in cvs-mode-tree

[Marshall, Simon]

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.