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