Ignore:
Timestamp:
Feb 18, 2008, 8:15:30 AM (12 years ago)
Author:
gb
Message:

%SET-CSTRING defined in terms of %CSTR-POINTER.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-utils.lisp

    r7670 r8509  
    10351035
    10361036(defun %set-cstring (ptr string)
    1037   (let* ((len (length string)))
    1038     (cond ((typep string 'simple-string)
    1039            (%copy-ivector-to-ptr string 0 ptr 0 len))
    1040           ((typep string 'string)
    1041                   (multiple-value-bind (data offset)
    1042                       (array-data-and-offset string)
    1043                     (%copy-ivector-to-ptr data offset ptr 0 len)))
    1044           (t (report-bad-arg string 'string)))
    1045     (setf (%get-byte ptr len) 0)
    1046     string))
     1037  (%cstr-pointer string ptr)
     1038  string)
    10471039
    10481040(defsetf %get-cstring %set-cstring)
Note: See TracChangeset for help on using the changeset viewer.