[mcclim-cvs] CVS update: mcclim/Apps/Listener/cmu-hacks.lisp

[Andy Hefner]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory common-lisp.net:/tmp/cvs-serv1772

Modified Files:
	cmu-hacks.lisp 
Log Message:
Apply package lock patch from Paolo Amoroso.

Date: Sun Mar  6 21:23:13 2005
Author: ahefner

Index: mcclim/Apps/Listener/cmu-hacks.lisp
diff -u mcclim/Apps/Listener/cmu-hacks.lisp:1.4 mcclim/Apps/Listener/cmu-hacks.lisp:1.5
--- mcclim/Apps/Listener/cmu-hacks.lisp:1.4	Sun Aug  1 07:39:41 2004
+++ mcclim/Apps/Listener/cmu-hacks.lisp	Sun Mar  6 21:23:13 2005
@@ -2,6 +2,11 @@
 
 (in-package :climi)
 
+#+cmu19a
+(progn (setf (ext:package-definition-lock (find-package "DEBUG")) nil)
+       (setf (ext:package-definition-lock (find-package "COMMON-LISP")) nil)
+       (setf (ext:package-definition-lock (find-package "EXT")) nil))
+
 ;; a patch
 (defmethod stream-listen ((stream standard-extended-input-stream))
   (with-encapsulating-stream (estream stream)