2.019.2: avoid forward reference, add a comment, in ccl-fasl-version helper. 2.019.2
authorFrancois-Rene Rideau <tunes@google.com>
Wed, 30 Nov 2011 16:07:55 +0000 (11:07 -0500)
committerFrancois-Rene Rideau <tunes@google.com>
Wed, 30 Nov 2011 16:07:55 +0000 (11:07 -0500)
asdf.asd
asdf.lisp

index f22ed79..dc8fdd0 100644 (file)
--- a/asdf.asd
+++ b/asdf.asd
@@ -14,7 +14,7 @@
   :licence "MIT"
   :description "Another System Definition Facility"
   :long-description "ASDF builds Common Lisp software organized into defined systems."
-  :version "2.019.1" ;; to be automatically updated by bin/bump-revision
+  :version "2.019.2" ;; to be automatically updated by bin/bump-revision
   :depends-on ()
   :components
   ((:file "asdf")
index 45a05ab..c39339f 100644 (file)
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1,5 +1,5 @@
 ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
-;;; This is ASDF 2.019.1: Another System Definition Facility.
+;;; This is ASDF 2.019.2: Another System Definition Facility.
 ;;;
 ;;; Feedback, bug reports, and patches are all welcome:
 ;;; please mail to <asdf-devel@common-lisp.net>.
          ;; "2.345.6" would be a development version in the official upstream
          ;; "2.345.0.7" would be your seventh local modification of official release 2.345
          ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6
-         (asdf-version "2.019.1")
+         (asdf-version "2.019.2")
          (existing-asdf (find-class 'component nil))
          (existing-version *asdf-version*)
          (already-there (equal asdf-version existing-version)))
@@ -3085,6 +3085,15 @@ located."
      ;; we may have to segregate the code still by architecture.
      (:java :java :java-1.4 :java-1.5 :java-1.6 :java-1.7))))
 
+#+clozure
+(defun* ccl-fasl-version ()
+  ;; the fasl version is target-dependent from CCL 1.8 on.
+  (or (and (fboundp 'ccl::target-fasl-version)
+           (funcall 'ccl::target-fasl-version))
+      (and (boundp 'ccl::fasl-version)
+           (symbol-value 'ccl::fasl-version))
+      (error "Can't determine fasl version.")))
+
 (defun lisp-version-string ()
   (let ((s (lisp-implementation-version)))
     (car ; as opposed to OR, this idiom prevents some unreachable code warning
@@ -3119,14 +3128,6 @@ located."
       #+mcl (subseq s 8) ; strip the leading "Version "
       s))))
 
-#+clozure
-(defun* ccl-fasl-version ()
-   (or (and (fboundp 'ccl::target-fasl-version)
-            (funcall 'ccl::target-fasl-version))
-       (and (boundp 'ccl::fasl-version)
-            (symbol-value 'ccl::fasl-version))
-       (error "Can't determine fasl version.")))
-
 (defun* implementation-identifier ()
   (substitute-if
    #\_ #'(lambda (x) (find x " /:;&^\\|?<>(){}[]$#`'\""))