Changeset 9435


Ignore:
Timestamp:
May 9, 2008, 10:22:02 AM (11 years ago)
Author:
gb
Message:

%EXTEND-VECTOR stuff.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/level-0/l0-array.lisp

    r9117 r9435  
    1717(in-package "CCL")
    1818
    19 (defun make-string (size &key (initial-element () initial-element-p) (element-type 'character element-type-p))
    20   "Given a character count and an optional fill character, makes and returns
    21    a new string COUNT long filled with the fill character."
    22   (when (and initial-element-p (not (typep initial-element 'character)))
    23     (report-bad-arg initial-element 'character))
    24   (when (and element-type-p
    25              (not (or (member element-type '(character base-char standard-char))
    26                       (subtypep element-type 'character))))
    27     (error ":element-type ~S is not a subtype of CHARACTER" element-type))
    28   (if initial-element-p
    29       (make-string size :element-type 'base-char :initial-element initial-element)
    30       (make-string size :element-type 'base-char)))
     19
    3120
    3221
Note: See TracChangeset for help on using the changeset viewer.