From 603befeb8b589937a2f8e5be420ec31da1797155 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Thu, 15 May 2003 15:43:56 +0000 Subject: [PATCH] * src/pcl/braid.lisp (make-class-predicate): Use without-package-locks. --- pcl/braid.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pcl/braid.lisp b/pcl/braid.lisp index ba7e99e0e..98d63abdf 100644 --- a/pcl/braid.lisp +++ b/pcl/braid.lisp @@ -25,7 +25,7 @@ ;;; ************************************************************************* (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.40 2003/05/13 10:49:01 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.41 2003/05/15 15:43:56 gerd Exp $") ;;; ;;; Bootstrapping the meta-braid. @@ -583,7 +583,7 @@ t) (defun make-class-predicate (class name) - (let* ((gf (ensure-generic-function name)) + (let* ((gf (without-package-locks (ensure-generic-function name))) (mlist (if (eq *boot-state* 'complete) (generic-function-methods gf) (early-gf-methods gf)))) -- GitLab