Changeset 289


Ignore:
Timestamp:
Jan 13, 2004, 5:10:37 PM (21 years ago)
Author:
Gary Byers
Message:

FILL-POINTER's lament.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-0/l0-array.lisp

    r78 r289  
    145145             (logbitp $arh_fill_bit (the fixnum (%svref array ppc32::vectorH.flags-cell))))
    146146      (%svref array ppc32::vectorH.logsize-cell)
    147       (%err-disp $XNOFILLPTR array))))
     147      (report-bad-arg array '(satisfies array-has-fill-pointer-p)))))
    148148
    149149(defun set-fill-pointer (array value)
Note: See TracChangeset for help on using the changeset viewer.