Skip to content
Snippets Groups Projects
Commit 6fd7c038 authored by Gary King's avatar Gary King
Browse files

move from sourceforge to cl.net; use git archive for version

Modified header to point to asdf's new home; modified the
computation of *asdf-revision* to use git's archive tags
rather than CVS.
parent 588f90e4
No related branches found
No related tags found
No related merge requests found
;;; $Format:%H$
;;; $Format:%d$
;;; This is asdf: Another System Definition Facility. Revision: @@VERSION@@ ;;; This is asdf: Another System Definition Facility. Revision: @@VERSION@@
;;; hash - $Format:%H$
;;; ;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical ;;; <asdf-devel@common-lisp.net>. But note first that the canonical
;;; source for asdf is presently the cCLan CVS repository at ;;; source for asdf is presently on common-lisp.net at
;;; <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/> ;;; <URL:http://common-lisp.net/project/asdf/>
;;; ;;;
;;; If you obtained this copy from anywhere else, and you experience ;;; If you obtained this copy from anywhere else, and you experience
;;; trouble using it, or find bugs, you may want to check at the ;;; trouble using it, or find bugs, you may want to check at the
;;; location above for a more recent version (and for documentation ;;; location above for a more recent version (and for documentation
;;; and test files, if your copy came without them) before reporting ;;; and test files, if your copy came without them) before reporting
;;; bugs. There are usually two "supported" revisions - the CVS HEAD ;;; bugs. There are usually two "supported" revisions - the git HEAD
;;; is the latest development version, whereas the revision tagged ;;; is the latest development version, whereas the revision tagged
;;; RELEASE may be slightly older but is considered `stable' ;;; RELEASE may be slightly older but is considered `stable'
;;; Copyright (c) 2001-2008 Daniel Barlow and contributors ;;; Copyright (c) 2001-2009 Daniel Barlow and contributors
;;; ;;;
;;; Permission is hereby granted, free of charge, to any person obtaining ;;; Permission is hereby granted, free of charge, to any person obtaining
;;; a copy of this software and associated documentation files (the ;;; a copy of this software and associated documentation files (the
...@@ -120,14 +119,17 @@ ...@@ -120,14 +119,17 @@
(in-package #:asdf) (in-package #:asdf)
(defvar *asdf-revision* (let* ((v "@@VERSION@@") (defvar *asdf-revision*
(colon (or (position #\: v) -1)) (let* ((v "$Format:%d$")
(dot (position #\. v))) (to-find "tags/")
(and v colon dot (tags (or (search to-find v :test #'char=) -1)))
(list (parse-integer v :start (1+ colon) (when (and v tags)
:junk-allowed t) (let ((dot (position #\. v :start tags)))
(parse-integer v :start (1+ dot) (when dot
:junk-allowed t))))) (list (parse-integer v :start (+ tags (length to-find))
:junk-allowed t)
(parse-integer v :start (1+ dot)
:junk-allowed t)))))))
(defvar *compile-file-warnings-behaviour* :warn) (defvar *compile-file-warnings-behaviour* :warn)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment