Allegro: fix call to MAKE-LOCK
authorStelian Ionescu <sionescu@cddr.org>
Mon, 26 Mar 2012 18:51:43 +0000 (20:51 +0200)
committerStelian Ionescu <sionescu@cddr.org>
Mon, 26 Mar 2012 18:51:43 +0000 (20:51 +0200)
src/impl-allegro.lisp

index 9470528..144ee98 100644 (file)
@@ -61,7 +61,7 @@ Distributed under the MIT license (see LICENSE file)
 
 (defvar *thread-results* (make-hash-table :weak-keys t))
 
-(defvar *thread-join-lock* (make-lock :name "Bordeaux threads join lock"))
+(defvar *thread-join-lock* (make-lock "Bordeaux threads join lock"))
 
 (defun %make-thread (function name)
   (mp:process-run-function