Changeset 5973


Ignore:
Timestamp:
02/25/04 18:38:44 (17 years ago)
Author:
piso
Message:

ADJUST-ARRAY: added INITIAL-CONTENTS-P parameter.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/arrays.lisp

    r5690 r5973  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: arrays.lisp,v 1.14 2004-02-04 15:14:56 piso Exp $
     4;;; $Id: arrays.lisp,v 1.15 2004-02-25 18:38:44 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3636                           (element-type (array-element-type array))
    3737                           (initial-element nil initial-element-p)
    38                            initial-contents fill-pointer
     38                           (initial-contents nil initial-contents-p)
     39                           fill-pointer
    3940                           displaced-to displaced-index-offset)
    4041  (%adjust-array array new-dimensions element-type
    41                  initial-element initial-element-p initial-contents
     42                 initial-element initial-element-p
     43                 initial-contents initial-contents-p
    4244                 fill-pointer displaced-to displaced-index-offset))
    4345
Note: See TracChangeset for help on using the changeset viewer.