Changeset 860


Ignore:
Timestamp:
Aug 30, 2004, 9:22:30 PM (16 years ago)
Author:
gb
Message:

DEREFERENCE-BASE-STRING: third return value is just the length (not length
+ displacement).

File:
1 edited

Legend:

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

    r570 r860  
    8282  (multiple-value-bind (vector offset) (array-data-and-offset s)
    8383    (unless (typep vector 'simple-base-string) (report-bad-arg s 'base-string))
    84     (values vector offset (the fixnum (+ (the fixnum offset) (the fixnum (length s)))))))
     84    (values vector offset (length s))))
    8585
    8686(defun make-gcable-macptr (flags)
Note: See TracChangeset for help on using the changeset viewer.