[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv11059

Modified Files:
	ChangeLog slime.el slime-autoloads.el 
Log Message:
Fix typos: "contribs" -> "contrib".

* slime-autoloads.el (slime-setup-contribs): 
* slime.el (slime-setup):


--- /project/slime/cvsroot/slime/ChangeLog	2008/02/22 14:11:52	1.1297
+++ /project/slime/cvsroot/slime/ChangeLog	2008/02/22 14:24:52	1.1298
@@ -1,5 +1,12 @@
 2008-02-22  Mark Harig <idirectscm at aim.com>
 
+	Fix typos: "contribs" -> "contrib".
+
+	* slime-autoloads.el (slime-setup-contribs): 
+	* slime.el (slime-setup):
+
+2008-02-22  Mark Harig <idirectscm at aim.com>
+
 	Fixes for CLISP 2.44.
 
 	* swank-clisp.lisp (sldb-backtrace, %parse-stack-values):
--- /project/slime/cvsroot/slime/slime.el	2008/02/22 14:10:36	1.909
+++ /project/slime/cvsroot/slime/slime.el	2008/02/22 14:24:52	1.910
@@ -72,10 +72,7 @@
   (when (member 'lisp-mode slime-lisp-modes)
     (add-hook 'lisp-mode-hook 'slime-lisp-mode-hook))
   (when contribs
-    (pushnew (file-name-as-directory
-              (expand-file-name (concat slime-path "contribs")))
-             load-path
-             :test 'string=)
+    (add-to-list 'load-path (expand-file-name "contrib" slime-path))
     (dolist (c contribs)
       (require c)
       (let ((init (intern (format "%s-init" c))))
--- /project/slime/cvsroot/slime/slime-autoloads.el	2008/02/04 20:35:11	1.4
+++ /project/slime/cvsroot/slime/slime-autoloads.el	2008/02/22 14:24:52	1.5
@@ -40,10 +40,7 @@
 
 (defun slime-setup-contribs () 
   (when slime-setup-contribs
-    (pushnew (file-name-as-directory
-              (expand-file-name (concat slime-path "contribs")))
-             load-path
-             :test 'string=)    
+    (add-to-list 'load-path (expand-file-name "contrib" slime-path))
     (dolist (c slime-setup-contribs)
       (require c)
       (let ((init (intern (format "%s-init" c))))