Cleanup

contrib/sly-autodoc.el

@@ -86,6 +86,14 @@
       (cond (multilinep message)
             (t (sly-oneliner (sly-autodoc--canonicalize-whitespace message)))))))
 
+ (defalias 'sly--font-lock-ensure       ; `font-lock-ensure' is not in Emacs 24.3.
+   (if (fboundp 'font-lock-ensure)
+       #'font-lock-ensure
+     (with-no-warnings
+       (lambda (&optional _beg _end)
+         (when font-lock-mode
+           (font-lock-fontify-buffer))))))
+
 (defun sly-autodoc--fontify (string)
   "Fontify STRING as `font-lock-mode' does in Lisp mode."
   (with-current-buffer (get-buffer-create (sly-buffer-name :fontify :hidden t))
@@ -97,7 +105,7 @@
       (lisp-mode-variables t))
     (insert string)
     (let ((font-lock-verbose nil))
-      (font-lock-fontify-buffer))
+      (sly--font-lock-ensure))
     (goto-char (point-min))
     (when (re-search-forward "===> \\(\\(.\\|\n\\)*\\) <===" nil t)
       (let ((highlight (match-string 1)))

contrib/sly-fancy-trace.el

@@ -21,7 +21,7 @@ The result is a string."
          (sly-read-from-minibuffer "(Un)trace: " (prin1-to-string spec)))
         (t
          (sly-dcase spec
-           ((setf n)
+           ((setf _n)
             (sly-read-from-minibuffer "(Un)trace: " (prin1-to-string spec)))
            ((:defun n)
             (sly-read-from-minibuffer "(Un)trace: " (prin1-to-string n)))

contrib/sly-mrepl.el

@@ -528,8 +528,8 @@ REPL.  POP-TO-BUFFER says whether to pop the REPL buffer."
 (cl-defun sly-mrepl--copy-objects-to-repl
     (method-args &key before after (pop-to-buffer t))
   "Recall objects in the REPL history as a new entry.
-METHOD-ARGS are SLYNK-MREPL:COPY-TO-REPL's optional args. If nil
-, consider the globally saved objects that
+METHOD-ARGS are SLYNK-MREPL:COPY-TO-REPL's optional args. If nil,
+consider the globally saved objects that
 SLYNK-MREPL:GLOBALLY-SAVE-OBJECT stored.  Otherwise, it is a
 list (ENTRY-IDX VALUE-IDX).  BEFORE and AFTER as in
 `sly-mrepl--save-and-copy-for-repl' POP-TO-BUFFER as in

contrib/sly-package-fu.el

@@ -84,7 +84,7 @@ use `sly-export-symbol-representation-function'.")
   (sly-eval `(slynk:unexport-symbol-for-emacs ,symbol ,package)))
 
 
-(defun sly-find-possible-package-file (buffer-file-name)
+(defun sly-find-possible-package-file (file-name)
   (cl-labels ((file-name-subdirectory (dirname)
                                       (expand-file-name
                                        (concat (file-name-as-directory (sly-to-lisp-filename dirname))
@@ -95,8 +95,8 @@ use `sly-export-symbol-representation-function'.")
                                (concat dirname package-file-name))))
                        (when (file-readable-p f)
                          (cl-return f))))))
-    (when buffer-file-name
-      (let ((buffer-cwd (file-name-directory buffer-file-name)))
+    (when file-name
+      (let ((buffer-cwd (file-name-directory file-name)))
 	(or (try buffer-cwd)
 	    (try (file-name-subdirectory buffer-cwd))
 	    (try (file-name-subdirectory