Changeset 860

Timestamp:

Aug 30, 2004, 2:22:30 PM (20 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/ccl/level-0/l0-aprims.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-aprims.lisp

@@ -82 +82 @@
   (multiple-value-bind (vector offset) (array-data-and-offset s)
     (unless (typep vector 'simple-base-string) (report-bad-arg s 'base-string))
-    (values vector offset (the fixnum (+ (the fixnum offset) (the fixnum (length s)))))))
+    (values vector offset (length s))))
 
 (defun make-gcable-macptr (flags)