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

[Luke Gorrie]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(quit-lisp): Implemented.

Date: Thu Jun 17 08:59:46 2004
Author: lgorrie

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.45 slime/swank-lispworks.lisp:1.46
--- slime/swank-lispworks.lisp:1.45	Thu Jun 17 04:39:27 2004
+++ slime/swank-lispworks.lisp	Thu Jun 17 08:59:46 2004
@@ -514,6 +514,11 @@
     (values (format nil "~A~%   is a ~A" o type)
             (mapcar #'cons names values))))
 
+;;; Miscellaneous
+
+(defimplementation quit-lisp ()
+  (lispworks:quit))
+
 ;;; Multithreading
 
 (defimplementation startup-multiprocessing ()