Changeset 7451


Ignore:
Timestamp:
Oct 15, 2007, 6:44:48 PM (14 years ago)
Author:
gb
Message:

In %CSTR-POINTER, either do the simple-string case or call
%CSTR-SEGMENT-POINTER to handle the general case.

Don'd do both ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/l0-aprims.lisp

    r6559 r7451  
    7171        (when nul-terminated
    7272          (setf (%get-byte pointer n) 0)))
    73       nil))
    74   (%cstr-segment-pointer string pointer 0 (length string) nul-terminated))
     73      nil)
     74    (%cstr-segment-pointer string pointer 0 (length string) nul-terminated)))
    7575
    7676(defun %cstr-segment-pointer (string pointer start end &optional (nul-terminated t))
Note: See TracChangeset for help on using the changeset viewer.