[slime-cvs] CVS slime

[CVS User mkoeppe]

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

Modified Files:
	swank-backend.lisp 
Log Message:
(definterface): Fix typo in error message.


--- /project/slime/cvsroot/slime/swank-backend.lisp	2009/06/28 19:15:08	1.177
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2009/07/11 18:25:15	1.178
@@ -149,7 +149,7 @@
          (let ((f (or (get ',name 'implementation)
                       (get ',name 'default))))
            (cond (f (apply f ,@(args-as-list args)))
-                 (t (error "~S not implementated" ',name)))))
+                 (t (error "~S not implemented" ',name)))))
        (pushnew ',name *interface-functions*)
        ,(if (null default-body)
             `(pushnew ',name *unimplemented-interfaces*)