Changeset 7674 for branches

Timestamp:

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

Author:

Gary Byers

Message:

Add standard initial bindings for lock-tracking.
Move MAKE-LIST to level-0.

File:

• branches/working-0711/ccl/level-1/l1-aprims.lisp (modified) (2 diffs)

branches/working-0711/ccl/level-1/l1-aprims.lisp

@@ -44 +44 @@
 (def-standard-initial-binding *gensym-counter* 0)
 (def-standard-initial-binding *random-state* (initialize-random-state #xFBF1 9))
+(def-standard-initial-binding *locks-held* ())
+(def-standard-initial-binding *locks-pending* ())
+(def-standard-initial-binding *lock-conses* (make-list 20))
+
+
 
 
@@ -124 +129 @@
 
 
-(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))))
+