Update l0-aprims.lisp

edoneel · May 17, 2020 · f4009ab · f4009ab
1 parent 255bc63
commit f4009ab
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/level-0/l0-aprims.lisp b/level-0/l0-aprims.lisp
@@ -191,7 +191,7 @@ synchronization between threads."
     (report-bad-arg rw 'read-write-lock)))
 
 
-(defun %make-semaphore-ptr (&key (count 0))
+(defun %make-semaphore-ptr (count)
   (let* ((p (ff-call (%kernel-import target::kernel-import-new-semaphore)
 	     :signed-fullword count
              :address)))
@@ -205,7 +205,7 @@ synchronization between threads."
 (defun make-semaphore (&key (count 0))
   "Create and return a semaphore, which can be used for synchronization
 between threads."
-  (%istruct 'semaphore (%make-semaphore-ptr :count count)))
+  (%istruct 'semaphore (%make-semaphore-ptr count)))
 
 (defun semaphorep (x)
   (istruct-typep x 'semaphore))