Changeset 14016


Ignore:
Timestamp:
Jul 22, 2010, 12:40:41 PM (9 years ago)
Author:
gb
Message:

In STRING, don't do vector initialization to set a single element in
the (presumably uncommon) CHARACTER case.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-0/l0-aprims.lisp

    r13067 r14016  
    102102    (string thing)
    103103    (symbol (symbol-name thing))
    104     (character (make-string 1 :initial-element thing))))
     104    (character
     105     (let* ((s (make-string 1)))
     106       (setf (schar s 0) thing)
     107       s))))
    105108
    106109
Note: See TracChangeset for help on using the changeset viewer.