Changeset 7674


Ignore:
Timestamp:
Nov 19, 2007, 6:08:48 AM (14 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-aprims.lisp

    r7624 r7674  
    4444(def-standard-initial-binding *gensym-counter* 0)
    4545(def-standard-initial-binding *random-state* (initialize-random-state #xFBF1 9))
     46(def-standard-initial-binding *locks-held* ())
     47(def-standard-initial-binding *locks-pending* ())
     48(def-standard-initial-binding *lock-conses* (make-list 20))
     49
     50
    4651
    4752
     
    124129
    125130
    126 (defun make-list (size &key initial-element)
    127   "Constructs a list with size elements each set to value"
    128   (unless (and (typep size 'fixnum)
    129                (>= (the fixnum size) 0))
    130     (report-bad-arg size '(and fixnum unsigned-byte)))
    131   (locally (declare (fixnum size))
    132     (do* ((result '() (cons initial-element result)))
    133         ((zerop size) result)
    134       (decf size))))
     131
    135132
    136133
Note: See TracChangeset for help on using the changeset viewer.