Corrected pathname reading test for sbcl (it defaults to :version :newest).

Pascal J. Bourguignon [2012-03-23 16:24]
Corrected pathname reading test for sbcl (it defaults to :version :newest).
Filename
common-lisp/lisp-reader/reader.lisp
diff --git a/common-lisp/lisp-reader/reader.lisp b/common-lisp/lisp-reader/reader.lisp
index 0830ad0..f2e1dcf 100644
--- a/common-lisp/lisp-reader/reader.lisp
+++ b/common-lisp/lisp-reader/reader.lisp
@@ -2260,7 +2260,9 @@ RETURN: A list of all the macro and dispatch-macro characters in the readtable.
   nil)
  ((read-from-string "#P\"/tmp/a.c\"")
   (#.(make-pathname :directory '(:absolute "tmp")
-                     :name "a" :type "c" :version  #+ecl :newest #-ecl  nil
+                     :name "a"
+                     :type "c"
+                     :version #+(or ecl sbcl) :newest #-(or ecl sbcl) nil
                      :case :local) 12)
   nil))
ViewGit