Changeset 14016

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:

• branches/arm/level-0/l0-aprims.lisp (modified) (1 diff)

branches/arm/level-0/l0-aprims.lisp

@@ -102 +102 @@
     (string thing)
     (symbol (symbol-name thing))
-    (character (make-string 1 :initial-element thing))))
+    (character
+     (let* ((s (make-string 1)))
+       (setf (schar s 0) thing)
+       s))))