From: Yaroslav K. <kav...@je...> - 2005-11-14 13:10:26
|
Source: http://groups.google.ru/group/comp.lang.lisp/browse_frm/thread/205f96b4992f2637/27ef75de4a8f154c#27ef75de4a8f154c [1]> #2A(("first" #1="second" "third") #2=("null" #1# "zero") #2#) *** - LENGTH: #<READ-LABEL 2> is not a SEQUENCE Christophe Rhodes say: > That looks like a bug in whatever implementation you're using -- the > error checking appears to have come before the read substitution, > where it should come after. This a error? Or not supported opportunity? Thanks! -- WBR, Yaroslav Kavenchuk. |
From: Sam S. <sd...@gn...> - 2005-11-14 17:04:37
|
> * Yaroslav Kavenchuk <xnirapuhx@wragl.ol> [2005-11-14 15:11:33 +0200]: > > Source: > http://groups.google.ru/group/comp.lang.lisp/browse_frm/thread/205f96b4992f2637/27ef75de4a8f154c#27ef75de4a8f154c > > [1]> #2A(("first" #1="second" "third") > #2=("null" #1# "zero") > #2#) > > *** - LENGTH: #<READ-LABEL 2> is not a SEQUENCE > > > Christophe Rhodes say: >> That looks like a bug in whatever implementation you're using -- the >> error checking appears to have come before the read substitution, >> where it should come after. > > This a error? Or not supported opportunity? thanks for the bug report. please try the appended patch. -- Sam Steingold (http://www.podval.org/~sds) running w2k http://www.savegushkatif.org http://www.dhimmi.com/ http://www.camera.org http://www.memri.org/ http://www.iris.org.il Oh Lord, give me the source code of the Universe and a good debugger! --- io.d 28 Oct 2005 16:07:18 -0400 1.291 +++ io.d 14 Nov 2005 12:00:50 -0500 @@ -3467,6 +3467,7 @@ # distinguish #(...) vectors from #1A(...) vectors. dynamic_bind(S(reading_array),T); var object contents = read_recursive_no_dot(stream_); + contents = make_references(contents); /* disentangle references */ dynamic_unbind(S(reading_array)); pushSTACK(contents); pushSTACK(contents); } |