From f4009abb905670c6627ce4c9c4da9c8aac72a542 Mon Sep 17 00:00:00 2001 From: Jon Godbout Date: Sun, 17 May 2020 18:23:48 -0400 Subject: [PATCH] Update l0-aprims.lisp --- level-0/l0-aprims.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/level-0/l0-aprims.lisp b/level-0/l0-aprims.lisp index 11e424489..0c361e870 100644 --- 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))