[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
Fix last change.

* slime.el (define-slime-contrib): Fix names.
Remove provide; makes no sense to call provide before file is
completely loaded.

--- /project/slime/cvsroot/slime/ChangeLog	2010/05/28 13:37:50	1.2104
+++ /project/slime/cvsroot/slime/ChangeLog	2010/05/28 13:55:30	1.2105
@@ -1,5 +1,13 @@
 2010-05-28  Helmut Eller  <heller at common-lisp.net>
 
+	Fix last change.
+
+	* slime.el (define-slime-contrib): Fix names.
+	Remove provide; makes no sense to call provide before file is
+	completely loaded.
+
+2010-05-28  Helmut Eller  <heller at common-lisp.net>
+
 	* slime.el (define-slime-contrib): Use destructuring-bind.
 
 2010-05-28  Helmut Eller  <heller at common-lisp.net>
--- /project/slime/cvsroot/slime/slime.el	2010/05/28 13:37:51	1.1325
+++ /project/slime/cvsroot/slime/slime.el	2010/05/28 13:55:30	1.1326
@@ -6875,18 +6875,17 @@
                             license)
       (loop for (key . value) in clauses append `(,key ,value))
     `(progn
-       ,(when gnu-only-p
+       ,(when gnu-emacs-only
           `(eval-and-compile
              (assert (not (featurep 'xemacs)) ()
                      ,(concat (symbol-name name)
                               " does not work with XEmacs."))))
-       ,@(mapcar #'(lambda (d) `(require ',d)) slime-deps)
+       ,@(mapcar (lambda (d) `(require ',d)) slime-dependencies)
        (defun ,(intern (concat (symbol-name name) "-init")) ()
-         ,@(mapcar #'(lambda (d) `(slime-require ',d)) swank-deps)
-         , at load-forms)
+         ,@(mapcar (lambda (d) `(slime-require ',d)) swank-dependencies)
+         , at on-load)
        (defun ,(intern (concat (symbol-name name) "-unload")) ()
-         , at unload-forms)
-       (provide ',name))))
+         , at on-unload))))
 
 (put 'define-slime-contrib 'lisp-indent-function 1)
 (put 'slime-indulge-pretty-colors 'define-slime-contrib t)