Changeset 401

Timestamp:

Jan 25, 2004, 2:11:52 PM (21 years ago)

Author:

Gary Byers

Message:

MAKE-ARRAY earlier.

File:

• trunk/ccl/level-1/sysutils.lisp (modified) (1 diff)

trunk/ccl/level-1/sysutils.lisp

@@ -414 +414 @@
 
 
-(defun make-array (dims &key (element-type t element-type-p)
-                        displaced-to
-                        displaced-index-offset
-                        adjustable
-                        fill-pointer
-                        (initial-element nil initial-element-p)
-                        (initial-contents nil initial-contents-p))
-  (when (and initial-element-p initial-contents-p)
-        (error "Cannot specify both ~S and ~S" :initial-element-p :initial-contents-p))
-  (make-array-1 dims element-type element-type-p
-                displaced-to
-                displaced-index-offset
-                adjustable
-                fill-pointer
-                initial-element initial-element-p
-                initial-contents initial-contents-p
-                nil))
+