Changeset 13470

Timestamp:

Mar 1, 2010, 4:45:43 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

In MAKE-HEAP-IVECTOR, un-swap the names POINTER and VECTOR.

File:

• trunk/source/level-1/l1-streams.lisp (modified) (1 diff)

trunk/source/level-1/l1-streams.lisp

@@ -245 +245 @@
       (error "~s is not an ivector subtype." element-type))
     (let* ((size-in-octets (ccl::subtag-bytes subtag element-count)))
-      (multiple-value-bind (pointer vector)
+      (multiple-value-bind (vector pointer)
           (ccl::%make-heap-ivector subtag size-in-octets element-count)
-        (values pointer vector size-in-octets)))))
+        (values vector pointer size-in-octets)))))