Changeset 7676 for branches

Timestamp:

Nov 18, 2007, 10:10:41 PM (17 years ago)

Author:

Gary Byers

Message:

MAKE-LIST moved here.

File:

• branches/working-0711/ccl/level-0/l0-aprims.lisp (modified) (1 diff)

branches/working-0711/ccl/level-0/l0-aprims.lisp

@@ -180 +180 @@
 (setf (type-predicate 'semaphore) 'semaphorep)
 
+(defun make-list (size &key initial-element)
+  "Constructs a list with size elements each set to value"
+  (unless (and (typep size 'fixnum)
+               (>= (the fixnum size) 0))
+    (report-bad-arg size '(and fixnum unsigned-byte)))
+  (locally (declare (fixnum size))
+    (do* ((result '() (cons initial-element result)))
+        ((zerop size) result)
+      (decf size))))
+
 ; end