diff --git a/code/module.lisp b/code/module.lisp index 1ad5936ca6ba99ece4eb250093b6fda9d2976e5e..187abc16621530e8bc0719fd1512d88bf15a727e 100644 --- a/code/module.lisp +++ b/code/module.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/module.lisp,v 1.9 2004/06/20 17:43:28 pmai Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/module.lisp,v 1.10 2005/03/04 17:09:06 rtoy Exp $") ;;; ;;; ********************************************************************** @@ -94,8 +94,7 @@ (let ((*load-verbose* *require-verbose*)) (if pathname (dolist (file (if (consp pathname) pathname (list pathname)) t) - (ext:without-package-locks - (load file))) + (load file)) (unless (some (lambda (p) (funcall p module-name)) *module-provider-functions*) (error "Don't know how to load ~A" module-name)))))