Changeset 10453


Ignore:
Timestamp:
Aug 12, 2008, 11:51:44 PM (11 years ago)
Author:
gb
Message:

Split off %MAKE-LOCK from MAKE-LOCK, so that we can ... make lisp
lock objects that encapsulate locks allocated in the kernel (without
going through the system-lock/gcable-pointer stuff.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-aprims.lisp

    r10160 r10453  
    133133  (make-lock nil))
    134134
     135(defun %make-lock (pointer name)
     136  (gvector :lock pointer 'recursive-lock 0 name nil nil))
     137
    135138(defun make-lock (&optional name)
    136139  "Create and return a lock object, which can be used for synchronization
    137140between threads."
    138   (gvector :lock (%make-recursive-lock-ptr) 'recursive-lock 0 name nil nil))
     141  (%make-lock (%make-recursive-lock-ptr) name))
    139142
    140143(defun lock-name (lock)
Note: See TracChangeset for help on using the changeset viewer.