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