Blob Blame History Raw
diff --git a/swank-loader.lisp b/swank-loader.lisp
index 7bb81da..7bc0a94 100644
--- a/swank-loader.lisp
+++ b/swank-loader.lisp
@@ -136,16 +136,7 @@ operating system, and hardware architecture."
 (defun string-starts-with (string prefix)
   (string-equal string prefix :end1 (min (length string) (length prefix))))
 
-(defun slime-version-string ()
-  "Return a string identifying the SLIME version.
-Return nil if nothing appropriate is available."
-  (with-open-file (s (merge-pathnames "slime.el" *source-directory*)
-                     :if-does-not-exist nil)
-    (loop with prefix = ";; Version: "
-          for line = (read-line s nil :eof)
-          until (eq line :eof)
-          when (string-starts-with line prefix)
-            return (subseq line (length prefix)))))
+(defun slime-version-string () "2.19")
 
 (defun default-fasl-dir ()
   (merge-pathnames