[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el: Require some packages, e.g. apropos, at compile time
to suppress some "undefined function" warnings.

--- /project/slime/cvsroot/slime/ChangeLog	2008/10/19 20:03:34	1.1566
+++ /project/slime/cvsroot/slime/ChangeLog	2008/10/21 20:37:51	1.1567
@@ -1,3 +1,8 @@
+2008-10-20  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el: Require some packages, apropos, at compile time to
+	suppress some "undefined function" warnings.
+
 2008-10-19  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (frame-locals-and-catch-tags): New function.
--- /project/slime/cvsroot/slime/slime.el	2008/10/19 20:03:34	1.1050
+++ /project/slime/cvsroot/slime/slime.el	2008/10/21 20:37:51	1.1051
@@ -64,6 +64,20 @@
 (when (featurep 'xemacs)
   (require 'overlay))
 (require 'easymenu)
+(eval-when-compile
+  (require 'arc-mode)
+  (require 'apropos)
+  (require 'outline)
+  (require 'etags))
+
+(eval-and-compile 
+  (defvar slime-path
+    (let ((path (or (locate-library "slime") load-file-name)))
+      (and path (file-name-directory path)))
+    "Directory containing the Slime package.
+This is used to load the supporting Common Lisp library, Swank.
+The default value is automatically computed from the location of the
+Emacs Lisp package."))
 
 (defvar slime-lisp-modes '(lisp-mode))
 
@@ -85,15 +99,6 @@
   (set (make-local-variable 'lisp-indent-function)
        'common-lisp-indent-function))
 
-(eval-and-compile 
-  (defvar slime-path
-    (let ((path (or (locate-library "slime") load-file-name)))
-      (and path (file-name-directory path)))
-    "Directory containing the Slime package.
-This is used to load the supporting Common Lisp library, Swank.
-The default value is automatically computed from the location of the
-Emacs Lisp package."))
-
 (eval-and-compile
   (defun slime-changelog-date ()
     "Return the datestring of the latest entry in the ChangeLog file.
@@ -4549,7 +4554,6 @@
                                  (file-name-directory guessed-target))
                                (file-name-nondirectory target-filename)))))))
 
-
 (defun slime-goto-location-buffer (buffer)
   (flet ((file-truename-safe (filename) (and filename (file-truename filename))))
     (destructure-case buffer
@@ -5958,8 +5962,6 @@
       (set-syntax-table lisp-mode-syntax-table)
       (goto-char (point-min)))))
 
-(eval-when-compile (require 'apropos))
-
 (defvar slime-apropos-label-properties
   (progn
     (require 'apropos)