Changeset 7690 for branches/working-0710


Ignore:
Timestamp:
Nov 20, 2007, 3:04:28 PM (12 years ago)
Author:
gb
Message:

Standard initial bindings for CCL::*LOCKS-HELD*, *LOCKS-PENDING*,
*LOCK-CONSES*. MAKE-LIST moved to level-0.

File:
1 edited

Legend:

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

    r7513 r7690  
    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))
    4649
    4750
     
    124127
    125128
    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))))
     129
    135130
    136131
Note: See TracChangeset for help on using the changeset viewer.