X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-concurrency%2Fpackage.lisp;h=942ce61a161f86ec2c43bbd93927d790abdb4759;hb=2f9585060d5fe2c525955d80f34123761ded80fe;hp=7e6c6bd421c822769777e7a9b0cee8c568d7866f;hpb=e034d6a8d034a3f8ca755bf89fae850f6387c505;p=sbcl.git

diff --git a/contrib/sb-concurrency/package.lisp b/contrib/sb-concurrency/package.lisp
index 7e6c6bd..942ce61 100644
--- a/contrib/sb-concurrency/package.lisp
+++ b/contrib/sb-concurrency/package.lisp
@@ -1,5 +1,16 @@
+;;;; -*-  Lisp -*-
+;;;;
+;;;; This software is part of the SBCL system. See the README file for
+;;;; more information.
+;;;;
+;;;; This software is derived from the CMU CL system, which was
+;;;; written at Carnegie Mellon University and released into the
+;;;; public domain. The software is in the public domain and is
+;;;; provided with absolutely no warranty. See the COPYING and CREDITS
+;;;; files for more information.
+
 (defpackage :sb-concurrency
-  (:use :cl :sb-thread :sb-int)
+  (:use :cl :sb-thread :sb-int :sb-ext :sb-sys)
   (:export
    ;; MAILBOX
    "LIST-MAILBOX-MESSAGES"
@@ -34,4 +45,15 @@
    "MAKE-GATE"
    "OPEN-GATE"
    "WAIT-ON-GATE"
+
+   ;; FRLOCK
+   "MAKE-FRLOCK"
+   "FRLOCK"
+   "FRLOCK-NAME"
+   "FRLOCK-WRITE"
+   "FRLOCK-READ"
+   "FRLOCK-READ-BEGIN"
+   "FRLOCK-READ-END"
+   "GRAB-FRLOCK-WRITE-LOCK"
+   "RELEASE-FRLOCK-WRITE-LOCK"
    ))
\ No newline at end of file