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))))) +)