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)