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

[Luke Gorrie]

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

Modified Files:
	swank-allegro.lisp 
Log Message:
*** empty log message ***
Date: Sat Jul  3 17:36:14 2004
Author: lgorrie

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.44 slime/swank-allegro.lisp:1.45
--- slime/swank-allegro.lisp:1.44	Sat Jul  3 17:34:55 2004
+++ slime/swank-allegro.lisp	Sat Jul  3 17:36:14 2004
@@ -321,7 +321,7 @@
                              (let ((*swank-thread* t))
                                (funcall fn)))))
 
-#+(version>= 6.2)
+#+(version>= 6)
 (excl:def-fwrapper make-process/inherit (&key &allow-other-keys)
   "Advice for MP:MAKE-PROCESS.
 New threads that have a Swank thread for an ancestor will inherit
@@ -336,7 +336,7 @@
     process))
 
 (defun install-advice ()
-  #+(version>= 6.2)
+  #+(version>= 6)
   (excl:fwrap 'mp:make-process 'make-process/inherit 'make-process/inherit))
 
 (defvar *id-lock* (mp:make-process-lock :name "id lock"))