Update l0-aprims.lisp

edoneel · May 11, 2020 · 255bc63 · 255bc63
1 parent 4eac21c
commit 255bc63
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/level-0/l0-aprims.lisp b/level-0/l0-aprims.lisp
@@ -194,7 +194,7 @@ synchronization between threads."
 (defun %make-semaphore-ptr (&key (count 0))
   (let* ((p (ff-call (%kernel-import target::kernel-import-new-semaphore)
 	     :signed-fullword count
-	       :address)))
+             :address)))
     (if (%null-ptr-p p)
       (error "Can't create semaphore.")
       (record-system-lock