Add package locks for SBCL
authorStelian Ionescu <sionescu@cddr.org>
Tue, 23 Oct 2012 02:10:19 +0000 (23 11:10 +0900)
committerStelian Ionescu <sionescu@cddr.org>
Tue, 23 Oct 2012 02:10:19 +0000 (23 11:10 +0900)
examples/package.lisp
src/base/asdf.lisp
src/new-cl/conduits.lisp
tests/pkgdcl.lisp

index e154b53..7658c45 100644 (file)
@@ -3,6 +3,8 @@
 
 (defpackage :iolib.examples
   (:use :cl :iolib :bordeaux-threads)
+  #+sb-package-locks
+  (:lock t)
   (:export :run-ex1-client
            :run-ex2-client
            :run-ex3-client
index 03676cd..78d6ef1 100644 (file)
@@ -4,7 +4,9 @@
 ;;;
 
 (defpackage :iolib.asdf
-  (:use :common-lisp))
+  (:use :common-lisp)
+  #+sb-package-locks
+  (:lock t))
 (in-package :iolib.asdf)
 
 (defclass :iolib-muffled-source-file (asdf:cl-source-file) ())
index 5f01fa7..e2b8c0f 100644 (file)
@@ -27,6 +27,8 @@
 
 (cl:defpackage :iolib.internal.conduits
   (:use :common-lisp)
+  #+sb-package-locks
+  (:lock t)
   ;; redefined CL names
   (:shadow #:export #:unexport #:defpackage #:delete-package #:rename-package)
   (:export #:export #:unexport #:defpackage #:delete-package #:rename-package)
@@ -355,7 +357,10 @@ As with extending you probably want to specify (:USE) when cloning."
                 (clone-packages-to-package ',cpcs ',name))))
           (t
           `(progn
-             (cl:defpackage ,name ,@(nreverse dpcs))
+             (cl:defpackage ,name
+                #+sb-package-locks
+                (:lock t)
+                ,@(nreverse dpcs))
              (recompute-conduits-for ',name))))))
 
 (defun delete-package (pack/name)
index 0f5a75d..7284087 100644 (file)
@@ -7,4 +7,6 @@
 
 (defpackage #:iolib-tests
   (:use :5am :iolib.base :iolib :iolib.pathnames)
+  #+sb-package-locks
+  (:lock t)
   (:export #:*echo-address* #:*echo-port*))