Ignore:
Timestamp:
Feb 28, 2004, 9:19:24 AM (16 years ago)
Author:
gb
Message:

MAKE-ARRAY (and variants) track explicit array displacement (from
Bryan O'Connor).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-aprims.lisp

    r395 r583  
    543543
    544544(defun %make-displaced-array (dimensions displaced-to
    545                                          &optional fill adjustable offset temp-p)
    546   (declare (ignore temp-p))
     545                                         &optional fill adjustable
     546                                         offset explicitp)
    547547  (if offset
    548548    (unless (and (fixnump offset) (>= (the fixnum offset) 0))
     
    564564           (flags 0))
    565565      (declare (fixnum disp-size rank flags vect-subtype real-offset))
     566      (when explicitp
     567        (setq flags (bitset $arh_exp_disp_bit flags)))
    566568      (if (not (fixnump new-size))(error "Bad array dimensions ~s." dimensions))
    567569      (locally (declare (fixnum new-size))
Note: See TracChangeset for help on using the changeset viewer.