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

[Gilbert Baumann]

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

Modified Files:
	cmu-hacks.lisp 
Log Message:
- added more DEFGENERICs
- fiddled with a few IGNORE declarations
- with CMUCL, macros no longer attempt to declare special variables 
  IGNORABLE

Date: Thu Dec  1 12:10:57 2005
Author: gbaumann

Index: mcclim/Apps/Listener/cmu-hacks.lisp
diff -u mcclim/Apps/Listener/cmu-hacks.lisp:1.5 mcclim/Apps/Listener/cmu-hacks.lisp:1.6
--- mcclim/Apps/Listener/cmu-hacks.lisp:1.5	Sun Mar  6 21:23:13 2005
+++ mcclim/Apps/Listener/cmu-hacks.lisp	Thu Dec  1 12:10:57 2005
@@ -41,6 +41,11 @@
 
 (in-package "DEBUG")
 
+(#+CMU19C
+ ext:without-package-locks
+ #-CMU19C
+ progn
+
 (defun internal-debug ()
   (let ((*in-the-debugger* t)
 	(*read-suppress* nil))
@@ -85,9 +90,15 @@
 (defparameter *debug-prompt* #'debug-prompt
   "This is a function of no arguments that prints the debugger prompt
    on *debug-io*.")
+)
 
 (in-package "LISP")
 
+(#+CMU19C
+ ext:without-package-locks
+ #-CMU19C
+ progn
+
 (defun get-stream-command (stream)
   "This takes a stream and waits for text or a command to appear on it.  If
    text appears before a command, this returns nil, and otherwise it returns
@@ -99,3 +110,4 @@
 	  (t
 	   ;; This waits for input and returns nil when it arrives.
 	   (unread-char (read-char stream) stream)))))
+)