[slime-cvs] CVS update: slime/swank-allegro.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv8736

Modified Files:
	swank-allegro.lisp 
Log Message:
(excl:stream-read-char-no-hang): Import it.

(emacs-connected): Add default method.  The method for
no-applicable-method doesn't seem to work.  ACL bug?

Date: Thu Jan 15 13:29:22 2004
Author: heller

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.6 slime/swank-allegro.lisp:1.7
--- slime/swank-allegro.lisp:1.6	Tue Jan 13 13:20:04 2004
+++ slime/swank-allegro.lisp	Thu Jan 15 13:29:22 2004
@@ -7,7 +7,7 @@
 ;;; This code has been placed in the Public Domain.  All warranties
 ;;; are disclaimed.
 ;;;
-;;;   $Id: swank-allegro.lisp,v 1.6 2004/01/13 18:20:04 heller Exp $
+;;;   $Id: swank-allegro.lisp,v 1.7 2004/01/15 18:29:22 heller Exp $
 ;;;
 ;;; This code was written for 
 ;;;   Allegro CL Trial Edition "5.0 [Linux/X86] (8/29/98 10:57)"
@@ -29,6 +29,7 @@
    excl:stream-unread-char
    excl:stream-clear-input
    excl:stream-line-column
+   excl:stream-read-char-no-hang
    ))
 
 (defun without-interrupts* (body)
@@ -50,6 +51,8 @@
 
 (defmethod spawn (fn &key name)
   (mp:process-run-function name fn))
+
+(defmethod emacs-connected ())
 
 ;;;