From d65a497cd71008cf32993c16d480a6337205aa77 Mon Sep 17 00:00:00 2001 From: "Chun Tian (binghe)" Date: Mon, 19 Mar 2018 09:47:02 +0100 Subject: [PATCH] Fixed loading in CMUCL 21b (two lock class symbols are not external in MP package) --- src/impl-cmucl.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/impl-cmucl.lisp b/src/impl-cmucl.lisp index edb2615..d3a6de2 100644 --- a/src/impl-cmucl.lisp +++ b/src/impl-cmucl.lisp @@ -40,15 +40,15 @@ Distributed under the MIT license (see LICENSE file) ;;; Resource contention: locks and recursive locks -(deftype lock () 'mp:error-check-lock) +(deftype lock () 'mp::error-check-lock) -(deftype recursive-lock () 'mp:recursive-lock) +(deftype recursive-lock () 'mp::recursive-lock) (defun lock-p (object) - (typep object 'mp:error-check-lock)) + (typep object 'mp::error-check-lock)) (defun recursive-lock-p (object) - (typep object 'mp:recursive-lock)) + (typep object 'mp::recursive-lock)) (defun make-lock (&optional name) (mp:make-lock (or name "Anonymous lock") -- 2.11.4.GIT