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

[Luke Gorrie]

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

Modified Files:
	swank-allegro.lisp 
Log Message:
Changed reader conditionals to use fwrappers for #+(version>= 6.2).

Date: Sat Jul  3 17:34:56 2004
Author: lgorrie

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.43 slime/swank-allegro.lisp:1.44
--- slime/swank-allegro.lisp:1.43	Sat Jul  3 17:21:09 2004
+++ slime/swank-allegro.lisp	Sat Jul  3 17:34:55 2004
@@ -321,7 +321,7 @@
                              (let ((*swank-thread* t))
                                (funcall fn)))))
 
-#+allegro-v6.2
+#+(version>= 6.2)
 (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 ()
-  #+allegro-v6.2
+  #+(version>= 6.2)
   (excl:fwrap 'mp:make-process 'make-process/inherit 'make-process/inherit))
 
 (defvar *id-lock* (mp:make-process-lock :name "id lock"))