Changeset 401


Ignore:
Timestamp:
Jan 25, 2004, 10:11:52 PM (16 years ago)
Author:
gb
Message:

MAKE-ARRAY earlier.

File:
1 edited

Legend:

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

    r320 r401  
    414414
    415415
    416 (defun make-array (dims &key (element-type t element-type-p)
    417                         displaced-to
    418                         displaced-index-offset
    419                         adjustable
    420                         fill-pointer
    421                         (initial-element nil initial-element-p)
    422                         (initial-contents nil initial-contents-p))
    423   (when (and initial-element-p initial-contents-p)
    424         (error "Cannot specify both ~S and ~S" :initial-element-p :initial-contents-p))
    425   (make-array-1 dims element-type element-type-p
    426                 displaced-to
    427                 displaced-index-offset
    428                 adjustable
    429                 fill-pointer
    430                 initial-element initial-element-p
    431                 initial-contents initial-contents-p
    432                 nil))
     416
    433417
    434418
Note: See TracChangeset for help on using the changeset viewer.