#15 (series:series 'b 'c) insert extra junk

closed-fixed
nobody
None
5
2007-07-31
2007-02-22
Anonymous
No

To reproduce:
CL-USER> (series:subseries (series:series 'b 'c) 0 10)
#Z(B C B C B C B C B C)

This is series-2.2.9 on sbcl 1.0.x.

Michael Weber <michaelw@foldr.org>

Tentative patch:
--- s-code.lisp 15 Nov 2005 16:07:57 +0100 1.99
+++ s-code.lisp 22 Feb 2007 19:14:30 +0100
@@ -7829,7 +7829,7 @@
(cond ((null expr-list)
(fragl ((expr)) ((expr t)) () () () () () () :args))
(t (cl:let ((full-expr-list
- (optif `(list ,expr ,@ expr-list)
+ (optif `(,expr ,@ expr-list)
(cons expr (copy-list expr-list)))))
(fragl ((full-expr-list)) ((items t))
((items t)

Discussion

  • Raymond Toy

    Raymond Toy - 2007-07-31

    Logged In: YES
    user_id=28849
    Originator: NO

    Don't you mean that the output is #z(list b c list b c ...)?

    In any case, this particular bug is fixed in s-code.lisp, rev 1.102.

    Closing bug as fixed.

     
  • Raymond Toy

    Raymond Toy - 2007-07-31
    • status: open --> closed-fixed
     

Log in to post a comment.