[Openmcl-cvs-notifications] r15098 - /trunk/source/tools/asdf.lisp

[rme at clozure.com]

Author: rme
Date: Tue Nov 29 13:00:50 2011
New Revision: 15098

Log:
Patch bundled ASDF to call ccl:target-fasl-version instead of
referencing ccl::fasl-version (which is now gone).

Modified:
    trunk/source/tools/asdf.lisp

Modified: trunk/source/tools/asdf.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/tools/asdf.lisp (original)
+++ trunk/source/tools/asdf.lisp Tue Nov 29 13:00:50 2011
@@ -2882,7 +2882,7 @@
      (format nil "~d.~d-f~d" ; shorten for windows
 	     ccl::*openmcl-major-version*
 	     ccl::*openmcl-minor-version*
-	     (logand ccl::fasl-version #xFF))
+	     (logand (ccl:target-fasl-version) #xFF))
      #+cmu (substitute #\- #\/ s)
      #+ecl (format nil "~A~@[-~A~]" s
 		   (let ((vcs-id (ext:lisp-implementation-vcs-id)))