Changeset 14373


Ignore:
Timestamp:
Oct 23, 2010, 10:48:35 PM (9 years ago)
Author:
gb
Message:

Braino in CONCAT-TO-STRING.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/sequences.lisp

    r14119 r14373  
    485485          (list
    486486           (dolist (elt seq)
    487              (setf (schar result out) elt))))))))
     487             (setf (schar result out) elt)
     488             (incf out))))))))
    488489
    489490;This one doesn't choke on circular lists, doesn't cons as much, and is
Note: See TracChangeset for help on using the changeset viewer.