vc-dir broken (today's cvs)

[Neal Becker]

vc-dir in hg-controlled dir gives:

Debugger entered--Lisp error: (wrong-type-argument
listp "doc/CDS_Interface_Control_Document_[1].doc")
 
vc-default-status-printer(RCS "doc/CDS_Interface_Control_Document_[1].doc")
  apply(vc-default-status-printer
RCS "doc/CDS_Interface_Control_Document_[1].doc")
  vc-call-backend(RCS
status-printer "doc/CDS_Interface_Control_Document_[1].doc")
  vc-generic-status-printer(("doc/CDS_Interface_Control_Document_[1].doc"
unregistered nil nil nil nil))
  #[(G39601 data) " J   !��c�" [G39601 data "\n"] 2](--ewoc--user-pp--
("doc/CDS_Interface_Control_Document_[1].doc" unregistered nil nil nil
nil))
  apply(#[(G39601 data) " J     !��c�" [G39601 data "\n"]
2] --ewoc--user-pp-- ("doc/CDS_Interface_Control_Document_[1].doc"
unregistered nil nil nil nil))
  (lambda (&rest --cl-rest--) (apply #[... " J  !��c�" [G39601 data "\n"]
2] (quote --ewoc--user-pp--) --cl-rest--)
(("doc/CDS_Interface_Control_Document_[1].doc" unregistered nil nil nil
nil))
  ewoc--refresh-node((lambda (&rest --cl-rest--) (apply #[... " J       !��c�"
[G39601 data "\n"] 2] (quote --ewoc--user-pp--) --cl-rest--)) [[[[#0 #2 ""
#<marker at 85 in *vc-dir*>] #1 DL-LIST #<marker at 86 in *vc-dir*>] #0
#("VC backend : Hg\nWorking dir: ~/eos/\nExtra      : Add backend specific
headers here\n" 0 13 ... 13 16 ... 16 29 ... 29 36 ...) #<marker at 1 in
*vc-dir*>] [#0 [#1 [#2 #0 #("VC backend : Hg\nWorking dir:
~/eos/\nExtra      : Add backend specific headers here\n" 0 13 ... 13
16 ... 16 29 ... 29 36 ...) #<marker at 1 in *vc-dir*>] DL-LIST #<marker at
86 in *vc-dir*>] "" #<marker at 85 in *vc-dir*>]
("doc/CDS_Interface_Control_Document_[1].doc" unregistered nil nil nil nil)
#<marker at 85 in *vc-dir*>] [[[[#0 #2 #("VC backend : Hg\nWorking dir:
~/eos/\nExtra      : Add backend specific headers here\n" 0 13 ... 13
16 ... 16 29 ... 29 36 ...) #<marker at 1 in *vc-dir*>] #1 ... #<marker at
85 in *vc-dir*>] #0 "" #<marker at 85 in *vc-dir*>] [#0 [#1 [#2 #0 ""
#<marker at 85 in *vc-dir*>] ... #<marker at 85 in *vc-dir*>] #("VC
backend : Hg\nWorking dir: ~/eos/\nExtra      : Add backend specific
headers here\n" 0 13 ... 13 16 ... 16 29 ... 29 36 ...) #<marker at 1 in
*vc-dir*>] DL-LIST #<marker at 86 in *vc-dir*>])
  ewoc--insert-new-node([[[[#0 #2 DL-LIST #<marker at 86 in *vc-dir*>] #1
#("VC backend : Hg\nWorking dir: ~/eos/\nExtra      : Add backend specific
headers here\n" 0 13 ... 13 16 ... 16 29 ... 29 36 ...) #<marker at 1 in
*vc-dir*>] #0 ("doc/CDS_Interface_Control_Document_[1].doc" unregistered
nil nil nil nil) #<marker at 85 in *vc-dir*>] [#0 [#1 [#2 #0 ... #<marker
at 85 in *vc-dir*>] #("VC backend : Hg\nWorking dir: ~/eos/\nExtra      :
Add backend specific headers here\n" 0 13 ... 13 16 ... 16 29 ... 29
36 ...) #<marker at 1 in *vc-dir*>] DL-LIST #<marker at 86 in *vc-dir*>] ""
#<marker at 85 in *vc-dir*>] ("doc/CDS_Interface_Control_Document_[1].doc"
unregistered nil nil nil nil) (lambda (&rest --cl-rest--) (apply #[... "
J       !��c�" [G39601 data "\n"] 2] (quote --ewoc--user-pp--) --cl-rest--))
[[[[#0 #2 #("VC backend : Hg\nWorking dir: ~/eos/\nExtra      : Add backend
specific headers here\n" 0 13 ... 13 16 ... 16 29 ... 29 36 ...) #<marker
at 1 in *vc-dir*>] #1 ... #<marker at 85 in *vc-dir*>] #0 "" #<marker at 85
in *vc-dir*>] [#0 [#1 [#2 #0 "" #<marker at 85 in *vc-dir*>] ... #<marker
at 85 in *vc-dir*>] #("VC backend : Hg\nWorking dir: ~/eos/\nExtra      :
Add backend specific headers here\n" 0 13 ... 13 16 ... 16 29 ... 29
36 ...) #<marker at 1 in *vc-dir*>] DL-LIST #<marker at 86 in *vc-dir*>])
  ewoc-enter-before([cl-struct-ewoc #<buffer *vc-dir*> (lambda
(&rest --cl-rest--) (apply #[... " J    !��c�" [G39601 data "\n"]
2] ... --cl-rest--)) [[[[#1 #3 ... #<marker at 85 in *vc-dir*>] #2 ""
#<marker at 85 in *vc-dir*>] #1 DL-LIST #<marker at 86 in *vc-dir*>] [#1
[#2 [#3 #1 DL-LIST #<marker at 86 in *vc-dir*>] "" #<marker at 85 in
*vc-dir*>] ... #<marker at 85 in *vc-dir*>] #("VC backend : Hg\nWorking
dir: ~/eos/\nExtra      : Add backend specific headers here\n" 0 13 ... 13
16 ... 16 29 ... 29 36 ...) #<marker at 1 in *vc-dir*>] [[[[#1 #3 DL-LIST
#<marker at 86 in *vc-dir*>] #2 #("VC backend : Hg\nWorking dir:
~/eos/\nExtra      : Add backend specific headers here\n" 0 13 ... 13
16 ... 16 29 ... 29 36 ...) #<marker at 1 in *vc-dir*>] #1 ... #<marker at
85 in *vc-dir*>] [#1 [#2 [#3 #1 ... #<marker at 85 in *vc-dir*>] #("VC
backend : Hg\nWorking dir: ~/eos/\nExtra      : Add backend specific
headers here\n" 0 13 ... 13 16 ... 16 29 ... 29 36 ...) #<marker at 1 in
*vc-dir*>] DL-LIST #<marker at 86 in *vc-dir*>] "" #<marker at 85 in
*vc-dir*>] [[[[#1 #3 #("VC backend : Hg\nWorking dir: ~/eos/\nExtra      :
Add backend specific headers here\n" 0 13 ... 13 16 ... 16 29 ... 29
36 ...) #<marker at 1 in *vc-dir*>] #2 ... #<marker at 85 in *vc-dir*>]
#1 "" #<marker at 85 in *vc-dir*>] [#1 [#2 [#3 #1 "" #<marker at 85 in
*vc-dir*>] ... #<marker at 85 in *vc-dir*>] #("VC backend : Hg\nWorking
dir: ~/eos/\nExtra      : Add backend specific headers here\n" 0 13 ... 13
16 ... 16 29 ... 29 36 ...) #<marker at 1 in *vc-dir*>] DL-LIST #<marker at
86 in *vc-dir*>] nil (lambda (&rest --cl-rest--) (apply #[... " J       !��c�"
[G39601 data "\n"] 2] ... --cl-rest--))] [[[[#0 #2 DL-LIST #<marker at 86
in *vc-dir*>] #1 #("VC backend : Hg\nWorking dir: ~/eos/\nExtra      : Add
backend specific headers here\n" 0 13 ... 13 16 ... 16 29 ... 29 36 ...)
#<marker at 1 in *vc-dir*>] #0
("doc/CDS_Interface_Control_Document_[1].doc" unregistered nil nil nil nil)
#<marker at 85 in *vc-dir*>] [#0 [#1 [#2 #0 ... #<marker at 85 in
*vc-dir*>] #("VC backend : Hg\nWorking dir: ~/eos/\nExtra      : Add
backend specific headers here\n" 0 13 ... 13 16 ... 16 29 ... 29 36 ...)
#<marker at 1 in *vc-dir*>] DL-LIST #<marker at 86 in *vc-dir*>] ""
#<marker at 85 in *vc-dir*>] ("doc/CDS_Interface_Control_Document_[1].doc"
unregistered nil nil nil nil))
  ewoc-enter-last([cl-struct-ewoc #<buffer *vc-dir*> (lambda
(&rest --cl-rest--) (apply #[... " J    !��c�" [G39601 data "\n"]
2] ... --cl-rest--)) [[[[#1 #3 ... #<marker at 85 in *vc-dir*>] #2 ""
#<marker at 85 in *vc-dir*>] #1 DL-LIST #<marker at 86 in *vc-dir*>] [#1
[#2 [#3 #1 DL-LIST #<marker at 86 in *vc-dir*>] "" #<marker at 85 in
*vc-dir*>] ... #<marker at 85 in *vc-dir*>] #("VC backend : Hg\nWorking
dir: ~/eos/\nExtra      : Add backend specific headers here\n" 0 13 ... 13
16 ... 16 29 ... 29 36 ...) #<marker at 1 in *vc-dir*>] [[[[#1 #3 DL-LIST
#<marker at 86 in *vc-dir*>] #2 #("VC backend : Hg\nWorking dir:
~/eos/\nExtra      : Add backend specific headers here\n" 0 13 ... 13
16 ... 16 29 ... 29 36 ...) #<marker at 1 in *vc-dir*>] #1 ... #<marker at
85 in *vc-dir*>] [#1 [#2 [#3 #1 ... #<marker at 85 in *vc-dir*>] #("VC
backend : Hg\nWorking dir: ~/eos/\nExtra      : Add backend specific
headers here\n" 0 13 ... 13 16 ... 16 29 ... 29 36 ...) #<marker at 1 in
*vc-dir*>] DL-LIST #<marker at 86 in *vc-dir*>] "" #<marker at 85 in
*vc-dir*>] [[[[#1 #3 #("VC backend : Hg\nWorking dir: ~/eos/\nExtra      :
Add backend specific headers here\n" 0 13 ... 13 16 ... 16 29 ... 29
36 ...) #<marker at 1 in *vc-dir*>] #2 ... #<marker at 85 in *vc-dir*>]
#1 "" #<marker at 85 in *vc-dir*>] [#1 [#2 [#3 #1 "" #<marker at 85 in
*vc-dir*>] ... #<marker at 85 in *vc-dir*>] #("VC backend : Hg\nWorking
dir: ~/eos/\nExtra      : Add backend specific headers here\n" 0 13 ... 13
16 ... 16 29 ... 29 36 ...) #<marker at 1 in *vc-dir*>] DL-LIST #<marker at
86 in *vc-dir*>] nil (lambda (&rest --cl-rest--) (apply #[... " J       !��c�"
[G39601 data "\n"] 2] ... --cl-rest--))]
("doc/CDS_Interface_Control_Document_[1].doc" unregistered nil nil nil
nil))
  vc-dir-update((("util/hCreateEos.plg" unregistered nil)) #<buffer
*vc-dir*>)
  #[(G39602 entries &optional more-to-come) "r Jq��    J\"�\n?�'