CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory alpha-cl-net:/tmp/cvs-serv16659

Modified Files:
	ChangeLog slime.el swank.lisp 
Log Message:
* slime.el (slime-delete-package): New command.
* swank.lisp (swank-delete-package): The corresponding Swank part.

--- /project/slime/cvsroot/slime/ChangeLog	2013/11/10 07:56:20	1.2410
+++ /project/slime/cvsroot/slime/ChangeLog	2013/11/10 08:11:44	1.2411
@@ -1,5 +1,10 @@
 2013-11-10  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-delete-package): New command.
+	* swank.lisp (swank-delete-package): The corresponding Swank part.
+
+2013-11-10  Helmut Eller  <heller at common-lisp.net>
+
 	* swank.lisp (swank-profile-package): New wrapper for
 	profile-package that does some input validation.
 	* slime.el (slime-profile-package): Use it.
--- /project/slime/cvsroot/slime/slime.el	2013/11/10 07:56:20	1.1431
+++ /project/slime/cvsroot/slime/slime.el	2013/11/10 08:11:44	1.1432
@@ -4421,6 +4421,13 @@
   (slime-eval-async `(swank:unintern-symbol ,symbol-name ,package)
                     (lambda (result) (message "%s" result))))
 
+(defun slime-delete-package (package-name)
+  "Delete the package with name PACKAGE-NAME."
+  (interactive (list (slime-read-package-name "Delete package: "
+                                              (slime-current-package))))
+  (slime-eval-async `(cl:delete-package
+                      (swank::guess-package ,package-name))))
+
 (defun slime-load-file (filename)
   "Load the Lisp file FILENAME."
   (interactive (list 
--- /project/slime/cvsroot/slime/swank.lisp	2013/11/10 07:56:21	1.804
+++ /project/slime/cvsroot/slime/swank.lisp	2013/11/10 08:11:44	1.805
@@ -2869,7 +2869,7 @@
 (defslimefun unintern-symbol (name package)
   (let ((pkg (guess-package package)))
     (cond ((not pkg) (format nil "No such package: ~s" package))
-          (t 
+          (t
            (multiple-value-bind (sym found) (parse-symbol name pkg)
              (case found
                ((nil) (format nil "~s not in package ~s" name package))
@@ -2877,6 +2877,12 @@
                 (unintern sym pkg)
                 (format nil "Uninterned symbol: ~s" sym))))))))
 
+(defslimefun swank-delete-package (package-name)
+  (let ((pkg (or (guess-package package-name)
+                 (error "No such package: ~s" package-name))))
+    (delete-package pkg)
+    nil))
+
 
 ;;;; Profiling