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

[Helmut Eller]

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

Modified Files:
	swank-allegro.lisp 
Log Message:
(lisp-implementation-type-name): Implement it.
Date: Thu Feb 26 02:16:17 2004
Author: heller

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.14 slime/swank-allegro.lisp:1.15
--- slime/swank-allegro.lisp:1.14	Sun Feb  8 14:19:42 2004
+++ slime/swank-allegro.lisp	Thu Feb 26 02:16:16 2004
@@ -55,6 +55,9 @@
 (defimplementation getpid ()
   (excl::getpid))
 
+(defimplementation lisp-implementation-type-name ()
+  "allegro")
+
 ;;;; Misc
 
 (defimplementation arglist-string (fname)