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

[Helmut Eller]

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

Modified Files:
	swank-backend.lisp 
Log Message:
(import-swank-mop-symbols): Better error message for the assertion.
Date: Wed Nov 24 20:57:10 2004
Author: heller

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.75 slime/swank-backend.lisp:1.76
--- slime/swank-backend.lisp:1.75	Fri Nov 19 20:05:25 2004
+++ slime/swank-backend.lisp	Wed Nov 24 20:57:10 2004
@@ -107,15 +107,15 @@
   (check-type documentation string "a documentation string")
   (flet ((gen-default-impl ()
            `(defmethod ,name ,args , at default-body)))
-     `(progn (defgeneric ,name ,args (:documentation ,documentation))
-             (pushnew ',name *interface-functions*)
-             ,(if (null default-body)
-                `(pushnew ',name *unimplemented-interfaces*)
-                (gen-default-impl))
-             ;; see <http://www.franz.com/support/documentation/6.2/doc/pages/variables/compiler/s_cltl1-compile-file-toplevel-compatibility-p_s.htm>
-             (eval-when (:compile-toplevel :load-toplevel :execute)
-               (export ',name :swank-backend))
-             ',name)))
+    `(progn (defgeneric ,name ,args (:documentation ,documentation))
+            (pushnew ',name *interface-functions*)
+            ,(if (null default-body)
+                 `(pushnew ',name *unimplemented-interfaces*)
+                 (gen-default-impl))
+            ;; see <http://www.franz.com/support/documentation/6.2/doc/pages/variables/compiler/s_cltl1-compile-file-toplevel-compatibility-p_s.htm>
+            (eval-when (:compile-toplevel :load-toplevel :execute)
+              (export ',name :swank-backend))
+            ',name)))
 
 (defmacro defimplementation (name args &body body)
   `(progn (defmethod ,name ,args , at body)
@@ -145,7 +145,7 @@
   (do-symbols (s :swank-mop)
     (unless (member s except :test #'string=)
       (let ((real-symbol (find-symbol (string s) package)))
-        (assert real-symbol)
+        (assert real-symbol () "Symbol ~A not found in package ~A" s package)
         (unintern s :swank-mop)
         (import real-symbol :swank-mop)
         (export real-symbol :swank-mop)))))