Loading Makefile +1 −0 Original line number Diff line number Diff line Loading @@ -61,6 +61,7 @@ mrproper: clean test-upgrade: if [ -f /usr/lib/sbcl/sbcl-dist.core ] ; then \ SBCL="/usr/bin/sbcl --core /usr/lib/sbcl/sbcl-dist.core" ; fi ; \ mkdir -p tmp/ ; \ for tag in 1.37 1.97 1.369 `git tag -l '2.0??'` ; do \ echo "Testing upgrade from ASDF $${tag}" ; \ git show $${tag}:asdf.lisp > tmp/asdf-$${tag}.lisp ; \ Loading asdf.asd +1 −1 Original line number Diff line number Diff line Loading @@ -12,7 +12,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." :version "2.014.14" ;; to be automatically updated by bin/bump-revision :version "2.014.15" ;; to be automatically updated by bin/bump-revision :depends-on () :components ((:file "asdf") Loading asdf.lisp +82 −40 Original line number Diff line number Diff line ;; -*- mode: common-lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- ;;; This is ASDF 2.014.14: Another System Definition Facility. ;;; -*- mode: common-lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- ;;; This is ASDF 2.014.15: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. Loading Loading @@ -49,6 +49,9 @@ (cl:in-package #-genera :common-lisp-user #+genera :future-common-lisp-user) #-(or abcl allegro clisp clozure cmu cormanlisp ecl gcl genera lispworks mcl sbcl scl xcl) (error "ASDF is not supported on your implementation. Please help us with it.") #+gcl (defpackage :asdf (:use :cl)) ;; GCL treats defpackage magically and needs this (eval-when (:compile-toplevel :load-toplevel :execute) Loading Loading @@ -101,7 +104,7 @@ ;; "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.014.14") (asdf-version "2.014.15") (existing-asdf (fboundp 'find-system)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) Loading Loading @@ -149,7 +152,7 @@ (remove-symbol (symbol package) (let ((sym (find-sym symbol package))) (when sym (unexport sym package) #-cormanlisp (unexport sym package) (unintern sym package) sym))) (ensure-unintern (package symbols) Loading Loading @@ -399,6 +402,41 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when (when (boundp 'excl:*warn-on-nested-reader-conditionals*) (setf excl:*warn-on-nested-reader-conditionals* nil))) ;;;; ------------------------------------------------------------------------- ;;;; Resolve forward references (declaim (ftype (function (t) t) format-arguments format-control error-name error-pathname error-condition duplicate-names-name error-component error-operation module-components module-components-by-name circular-dependency-components condition-arguments condition-form condition-format condition-location coerce-name) #-cormanlisp (ftype (function (t t) t) (setf module-components-by-name))) ;;;; ------------------------------------------------------------------------- ;;;; Compatibility with Corman Lisp #+cormanlisp (progn (deftype logical-pathname () nil) (defun make-broadcast-stream () *error-output*) (defun file-namestring (p) (setf p (pathname p)) (format nil "~@[~A~]~@[.~A~]" (pathname-name p) (pathname-type p))) (defparameter *count* 3) (defun dbg (&rest x) (format *error-output* "~S~%" x))) #+cormanlisp (defun maybe-break () (decf *count*) (unless (plusp *count*) (setf *count* 3) (break))) ;;;; ------------------------------------------------------------------------- ;;;; General Purpose Utilities Loading Loading @@ -544,10 +582,10 @@ any of the characters in the sequence SEPARATOR. If MAX is specified, then no more than max(1,MAX) components will be returned, starting the separation from the end, e.g. when called with arguments \"a.b.c.d.e\" :max 3 :separator \".\" it will return (\"a.b.c\" \"d\" \"e\")." (block nil (catch nil (let ((list nil) (words 0) (end (length string))) (flet ((separatorp (char) (find char separator)) (done () (return (cons (subseq string 0 end) list)))) (done () (throw nil (cons (subseq string 0 end) list)))) (loop :for start = (if (and max (>= words (1- max))) (done) Loading Loading @@ -631,6 +669,16 @@ pathnames." #+allegro (sys:getenv x) #+clozure (ccl:getenv x) #+(or cmu scl) (cdr (assoc x ext:*environment-list* :test #'string=)) #+cormanlisp (let* ((buffer (ct:malloc 1)) (cname (ct:lisp-string-to-c-string x)) (needed-size (win:getenvironmentvariable cname buffer 0)) (buffer1 (ct:malloc (1+ needed-size)))) (prog1 (if (zerop (win:getenvironmentvariable cname buffer1 needed-size)) nil (ct:c-string-to-lisp-string buffer1)) (ct:free buffer) (ct:free buffer1))) #+ecl (si:getenv x) #+gcl (system:getenv x) #+genera nil Loading @@ -640,8 +688,8 @@ pathnames." (unless (ccl:%null-ptr-p value) (ccl:%get-cstring value)))) #+sbcl (sb-ext:posix-getenv x) #-(or abcl allegro clisp clozure cmu ecl gcl genera lispworks mcl sbcl scl xcl) (error "getenv not available on your implementation")) #-(or abcl allegro clisp clozure cmu cormanlisp ecl gcl genera lispworks mcl sbcl scl xcl) (error "~S is not supported on your implementation" 'getenv)) (defun* directory-pathname-p (pathname) "Does PATHNAME represent a directory? Loading Loading @@ -751,7 +799,7 @@ with given pathname and if it exists return its truename." (null nil) (string (probe-file* (parse-namestring p))) (pathname (unless (wild-pathname-p p) #.(or #+(or allegro clozure cmu ecl sbcl scl) '(probe-file p) #.(or #+(or allegro clozure cmu cormanlisp ecl sbcl scl) '(probe-file p) #+clisp (aif (find-symbol (string '#:probe-pathname) :ext) `(ignore-errors (,it p))) '(ignore-errors (truename p))))))) Loading Loading @@ -809,10 +857,11 @@ with given pathname and if it exists return its truename." (defun* lispize-pathname (input-file) (make-pathname :type "lisp" :defaults input-file)) (defparameter *wild* #-cormanlisp :wild #+cormanlisp "*") (defparameter *wild-file* (make-pathname :name :wild :type :wild :version :wild :directory nil)) (make-pathname :name *wild* :type *wild* :version *wild* :directory nil)) (defparameter *wild-directory* (make-pathname :directory '(:relative :wild) :name nil :type nil :version nil)) (make-pathname :directory `(:relative ,*wild*) :name nil :type nil :version nil)) (defparameter *wild-inferiors* (make-pathname :directory '(:relative :wild-inferiors) :name nil :type nil :version nil)) (defparameter *wild-path* Loading Loading @@ -906,6 +955,9 @@ another pathname in a degenerate way.")) (defgeneric* (setf component-property) (new-value component property)) (eval-when (:compile-toplevel :load-toplevel :execute) (defgeneric* (setf module-components-by-name) (new-value module))) (defgeneric* version-satisfies (component version)) (defgeneric* find-component (base path) Loading Loading @@ -1009,19 +1061,6 @@ processed in order by OPERATE.")) ;; order to fix all conditions that build on it. -- rgr, 28-Jul-02.] #+cmu (:report print-object)) (declaim (ftype (function (t) t) format-arguments format-control error-name error-pathname error-condition duplicate-names-name error-component error-operation module-components module-components-by-name circular-dependency-components condition-arguments condition-form condition-format condition-location coerce-name) (ftype (function (t t) t) (setf module-components-by-name))) (define-condition formatted-system-definition-error (system-definition-error) ((format-control :initarg :format-control :reader format-control) (format-arguments :initarg :format-arguments :reader format-arguments)) Loading Loading @@ -1456,7 +1495,7 @@ Going forward, we recommend new users should be using the source-registry. ;; and we can survive and we will continue the planning ;; as if the file were very old. ;; (or should we treat the case in a different, special way?) (or (and pathname (probe-file* pathname) (file-write-date pathname)) (or (and pathname (probe-file* pathname) (ignore-errors (file-write-date pathname))) (progn (when (and pathname *asdf-verbose*) (warn (compatfmt "~@<Missing FILE-WRITE-DATE for ~S, treating it as zero.~@:>") Loading Loading @@ -1499,7 +1538,8 @@ Going forward, we recommend new users should be using the source-registry. (setf pathname (ensure-pathname-absolute pathname)) (when found-system (%set-system-source-file pathname found-system))) (when (and previous (not (equal (system-source-file previous) pathname))) (when (and previous (not (#-cormanlisp equal #+cormanlisp equalp (system-source-file previous) pathname))) (%set-system-source-file pathname previous) (setf previous-time nil)) (when (and found-system (not previous)) Loading Loading @@ -2470,7 +2510,9 @@ details." (find-symbol* type *package*) (find-symbol* type :asdf)) :for class = (and symbol (find-class symbol nil)) :when (and class (subtypep class 'component)) :when (and class (#-cormanlisp subtypep #+cormanlisp cl::subclassp class (find-class 'component))) :return class) (and (eq type :file) (or (module-default-component-class parent) Loading Loading @@ -2787,14 +2829,13 @@ located." (defparameter *architecture-features* '((:amd64 :x86-64 :x86_64 :x8664-target) (:x86 :i386 :i486 :i586 :i686 :pentium3 :pentium4 :pc386 :iapx386 :x8632-target) :hppa64 :hppa (:ppc64 :ppc64-target) (:ppc32 :ppc32-target :ppc :powerpc) :sparc64 (:sparc32 :sparc) :hppa64 :hppa (:ppc64 :ppc64-target) (:ppc32 :ppc32-target :ppc :powerpc) :sparc64 (:sparc32 :sparc) (:arm :arm-target) (:java :java-1.4 :java-1.5 :java-1.6 :java-1.7) :mipsel :mipseb :mips :alpha :imach)) (defun* lisp-version-string () Loading Loading @@ -3400,6 +3441,7 @@ effectively disabling the output translation facility." (defun* apply-output-translations (path) (etypecase path #+cormanlisp (t (truenamize path)) (logical-pathname path) ((or pathname string) Loading Loading @@ -3633,7 +3675,7 @@ with a different configuration, so the configuration would be re-read then." (values)) (defparameter *wild-asd* (make-pathname :directory nil :name :wild :type "asd" :version :newest)) (make-pathname :directory nil :name *wild* :type "asd" :version :newest)) (defun directory-asd-files (directory) (ignore-errors Loading doc/index.html +16 −8 Original line number Diff line number Diff line Loading @@ -79,20 +79,28 @@ To get the greatest and latest, you can: </p> <ul> <li>download just the source for <li>download just the latest <em>release</em> source for <!--<a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git;a=blob_plain;tag=RELEASE;f=asdf.lisp">asdf.lisp</a>,--> <a href="http://common-lisp.net/project/asdf/asdf.lisp">asdf.lisp</a>, <a href="http://common-lisp.net/project/asdf/asdf.lisp">asdf.lisp</a>; </li> <li>download the <li>download the latest <em>release</em> <!--<a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git;tag=RELEASE;a=snapshot;sf=tgz">tarball</a>,--> <a href="http://common-lisp.net/project/asdf/asdf.tar.gz">tarball</a> to get all bells and whistles, to get all bells and whistles; </li> <li>pull the latest from our git repository (<a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git">browse</a>) <li>download just the latest <em>development</em> source from our git repository: <a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git;a=blob_plain;f=asdf.lisp;hb=HEAD">asdf.lisp</a> </li> <li>pull the latest <em>development</em> tree from our git repository <pre>git clone git://common-lisp.net/projects/asdf/asdf.git</pre> (Note that our "master" branch is for current development; get our "release" branch for the latest stable release.) (note that our "master" branch is for current development; get our "release" branch for the latest stable release.); </li> <li>browse the latest <em>development</em> tree from our git repository: <a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git">gitweb</a> </li> <li>download the tarball of a past release: <a href="http://common-lisp.net/project/asdf/archives/">archives</a> </li></ul> <a id="bugs"> Loading test/test-tmp.lsp +2 −2 Original line number Diff line number Diff line Loading @@ -5,6 +5,6 @@ (defparameter *test-tmp-cl* t) (eval-when (:compile-toplevel :execute) (format t "compiling test-tmp.cl~%")) (format t "compiling test-tmp.lsp~%")) (eval-when (:load-toplevel :execute) (format t "loading test-tmp.cl~%")) (format t "loading test-tmp.lsp~%")) Loading
Makefile +1 −0 Original line number Diff line number Diff line Loading @@ -61,6 +61,7 @@ mrproper: clean test-upgrade: if [ -f /usr/lib/sbcl/sbcl-dist.core ] ; then \ SBCL="/usr/bin/sbcl --core /usr/lib/sbcl/sbcl-dist.core" ; fi ; \ mkdir -p tmp/ ; \ for tag in 1.37 1.97 1.369 `git tag -l '2.0??'` ; do \ echo "Testing upgrade from ASDF $${tag}" ; \ git show $${tag}:asdf.lisp > tmp/asdf-$${tag}.lisp ; \ Loading
asdf.asd +1 −1 Original line number Diff line number Diff line Loading @@ -12,7 +12,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." :version "2.014.14" ;; to be automatically updated by bin/bump-revision :version "2.014.15" ;; to be automatically updated by bin/bump-revision :depends-on () :components ((:file "asdf") Loading
asdf.lisp +82 −40 Original line number Diff line number Diff line ;; -*- mode: common-lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- ;;; This is ASDF 2.014.14: Another System Definition Facility. ;;; -*- mode: common-lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- ;;; This is ASDF 2.014.15: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. Loading Loading @@ -49,6 +49,9 @@ (cl:in-package #-genera :common-lisp-user #+genera :future-common-lisp-user) #-(or abcl allegro clisp clozure cmu cormanlisp ecl gcl genera lispworks mcl sbcl scl xcl) (error "ASDF is not supported on your implementation. Please help us with it.") #+gcl (defpackage :asdf (:use :cl)) ;; GCL treats defpackage magically and needs this (eval-when (:compile-toplevel :load-toplevel :execute) Loading Loading @@ -101,7 +104,7 @@ ;; "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.014.14") (asdf-version "2.014.15") (existing-asdf (fboundp 'find-system)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) Loading Loading @@ -149,7 +152,7 @@ (remove-symbol (symbol package) (let ((sym (find-sym symbol package))) (when sym (unexport sym package) #-cormanlisp (unexport sym package) (unintern sym package) sym))) (ensure-unintern (package symbols) Loading Loading @@ -399,6 +402,41 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when (when (boundp 'excl:*warn-on-nested-reader-conditionals*) (setf excl:*warn-on-nested-reader-conditionals* nil))) ;;;; ------------------------------------------------------------------------- ;;;; Resolve forward references (declaim (ftype (function (t) t) format-arguments format-control error-name error-pathname error-condition duplicate-names-name error-component error-operation module-components module-components-by-name circular-dependency-components condition-arguments condition-form condition-format condition-location coerce-name) #-cormanlisp (ftype (function (t t) t) (setf module-components-by-name))) ;;;; ------------------------------------------------------------------------- ;;;; Compatibility with Corman Lisp #+cormanlisp (progn (deftype logical-pathname () nil) (defun make-broadcast-stream () *error-output*) (defun file-namestring (p) (setf p (pathname p)) (format nil "~@[~A~]~@[.~A~]" (pathname-name p) (pathname-type p))) (defparameter *count* 3) (defun dbg (&rest x) (format *error-output* "~S~%" x))) #+cormanlisp (defun maybe-break () (decf *count*) (unless (plusp *count*) (setf *count* 3) (break))) ;;;; ------------------------------------------------------------------------- ;;;; General Purpose Utilities Loading Loading @@ -544,10 +582,10 @@ any of the characters in the sequence SEPARATOR. If MAX is specified, then no more than max(1,MAX) components will be returned, starting the separation from the end, e.g. when called with arguments \"a.b.c.d.e\" :max 3 :separator \".\" it will return (\"a.b.c\" \"d\" \"e\")." (block nil (catch nil (let ((list nil) (words 0) (end (length string))) (flet ((separatorp (char) (find char separator)) (done () (return (cons (subseq string 0 end) list)))) (done () (throw nil (cons (subseq string 0 end) list)))) (loop :for start = (if (and max (>= words (1- max))) (done) Loading Loading @@ -631,6 +669,16 @@ pathnames." #+allegro (sys:getenv x) #+clozure (ccl:getenv x) #+(or cmu scl) (cdr (assoc x ext:*environment-list* :test #'string=)) #+cormanlisp (let* ((buffer (ct:malloc 1)) (cname (ct:lisp-string-to-c-string x)) (needed-size (win:getenvironmentvariable cname buffer 0)) (buffer1 (ct:malloc (1+ needed-size)))) (prog1 (if (zerop (win:getenvironmentvariable cname buffer1 needed-size)) nil (ct:c-string-to-lisp-string buffer1)) (ct:free buffer) (ct:free buffer1))) #+ecl (si:getenv x) #+gcl (system:getenv x) #+genera nil Loading @@ -640,8 +688,8 @@ pathnames." (unless (ccl:%null-ptr-p value) (ccl:%get-cstring value)))) #+sbcl (sb-ext:posix-getenv x) #-(or abcl allegro clisp clozure cmu ecl gcl genera lispworks mcl sbcl scl xcl) (error "getenv not available on your implementation")) #-(or abcl allegro clisp clozure cmu cormanlisp ecl gcl genera lispworks mcl sbcl scl xcl) (error "~S is not supported on your implementation" 'getenv)) (defun* directory-pathname-p (pathname) "Does PATHNAME represent a directory? Loading Loading @@ -751,7 +799,7 @@ with given pathname and if it exists return its truename." (null nil) (string (probe-file* (parse-namestring p))) (pathname (unless (wild-pathname-p p) #.(or #+(or allegro clozure cmu ecl sbcl scl) '(probe-file p) #.(or #+(or allegro clozure cmu cormanlisp ecl sbcl scl) '(probe-file p) #+clisp (aif (find-symbol (string '#:probe-pathname) :ext) `(ignore-errors (,it p))) '(ignore-errors (truename p))))))) Loading Loading @@ -809,10 +857,11 @@ with given pathname and if it exists return its truename." (defun* lispize-pathname (input-file) (make-pathname :type "lisp" :defaults input-file)) (defparameter *wild* #-cormanlisp :wild #+cormanlisp "*") (defparameter *wild-file* (make-pathname :name :wild :type :wild :version :wild :directory nil)) (make-pathname :name *wild* :type *wild* :version *wild* :directory nil)) (defparameter *wild-directory* (make-pathname :directory '(:relative :wild) :name nil :type nil :version nil)) (make-pathname :directory `(:relative ,*wild*) :name nil :type nil :version nil)) (defparameter *wild-inferiors* (make-pathname :directory '(:relative :wild-inferiors) :name nil :type nil :version nil)) (defparameter *wild-path* Loading Loading @@ -906,6 +955,9 @@ another pathname in a degenerate way.")) (defgeneric* (setf component-property) (new-value component property)) (eval-when (:compile-toplevel :load-toplevel :execute) (defgeneric* (setf module-components-by-name) (new-value module))) (defgeneric* version-satisfies (component version)) (defgeneric* find-component (base path) Loading Loading @@ -1009,19 +1061,6 @@ processed in order by OPERATE.")) ;; order to fix all conditions that build on it. -- rgr, 28-Jul-02.] #+cmu (:report print-object)) (declaim (ftype (function (t) t) format-arguments format-control error-name error-pathname error-condition duplicate-names-name error-component error-operation module-components module-components-by-name circular-dependency-components condition-arguments condition-form condition-format condition-location coerce-name) (ftype (function (t t) t) (setf module-components-by-name))) (define-condition formatted-system-definition-error (system-definition-error) ((format-control :initarg :format-control :reader format-control) (format-arguments :initarg :format-arguments :reader format-arguments)) Loading Loading @@ -1456,7 +1495,7 @@ Going forward, we recommend new users should be using the source-registry. ;; and we can survive and we will continue the planning ;; as if the file were very old. ;; (or should we treat the case in a different, special way?) (or (and pathname (probe-file* pathname) (file-write-date pathname)) (or (and pathname (probe-file* pathname) (ignore-errors (file-write-date pathname))) (progn (when (and pathname *asdf-verbose*) (warn (compatfmt "~@<Missing FILE-WRITE-DATE for ~S, treating it as zero.~@:>") Loading Loading @@ -1499,7 +1538,8 @@ Going forward, we recommend new users should be using the source-registry. (setf pathname (ensure-pathname-absolute pathname)) (when found-system (%set-system-source-file pathname found-system))) (when (and previous (not (equal (system-source-file previous) pathname))) (when (and previous (not (#-cormanlisp equal #+cormanlisp equalp (system-source-file previous) pathname))) (%set-system-source-file pathname previous) (setf previous-time nil)) (when (and found-system (not previous)) Loading Loading @@ -2470,7 +2510,9 @@ details." (find-symbol* type *package*) (find-symbol* type :asdf)) :for class = (and symbol (find-class symbol nil)) :when (and class (subtypep class 'component)) :when (and class (#-cormanlisp subtypep #+cormanlisp cl::subclassp class (find-class 'component))) :return class) (and (eq type :file) (or (module-default-component-class parent) Loading Loading @@ -2787,14 +2829,13 @@ located." (defparameter *architecture-features* '((:amd64 :x86-64 :x86_64 :x8664-target) (:x86 :i386 :i486 :i586 :i686 :pentium3 :pentium4 :pc386 :iapx386 :x8632-target) :hppa64 :hppa (:ppc64 :ppc64-target) (:ppc32 :ppc32-target :ppc :powerpc) :sparc64 (:sparc32 :sparc) :hppa64 :hppa (:ppc64 :ppc64-target) (:ppc32 :ppc32-target :ppc :powerpc) :sparc64 (:sparc32 :sparc) (:arm :arm-target) (:java :java-1.4 :java-1.5 :java-1.6 :java-1.7) :mipsel :mipseb :mips :alpha :imach)) (defun* lisp-version-string () Loading Loading @@ -3400,6 +3441,7 @@ effectively disabling the output translation facility." (defun* apply-output-translations (path) (etypecase path #+cormanlisp (t (truenamize path)) (logical-pathname path) ((or pathname string) Loading Loading @@ -3633,7 +3675,7 @@ with a different configuration, so the configuration would be re-read then." (values)) (defparameter *wild-asd* (make-pathname :directory nil :name :wild :type "asd" :version :newest)) (make-pathname :directory nil :name *wild* :type "asd" :version :newest)) (defun directory-asd-files (directory) (ignore-errors Loading
doc/index.html +16 −8 Original line number Diff line number Diff line Loading @@ -79,20 +79,28 @@ To get the greatest and latest, you can: </p> <ul> <li>download just the source for <li>download just the latest <em>release</em> source for <!--<a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git;a=blob_plain;tag=RELEASE;f=asdf.lisp">asdf.lisp</a>,--> <a href="http://common-lisp.net/project/asdf/asdf.lisp">asdf.lisp</a>, <a href="http://common-lisp.net/project/asdf/asdf.lisp">asdf.lisp</a>; </li> <li>download the <li>download the latest <em>release</em> <!--<a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git;tag=RELEASE;a=snapshot;sf=tgz">tarball</a>,--> <a href="http://common-lisp.net/project/asdf/asdf.tar.gz">tarball</a> to get all bells and whistles, to get all bells and whistles; </li> <li>pull the latest from our git repository (<a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git">browse</a>) <li>download just the latest <em>development</em> source from our git repository: <a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git;a=blob_plain;f=asdf.lisp;hb=HEAD">asdf.lisp</a> </li> <li>pull the latest <em>development</em> tree from our git repository <pre>git clone git://common-lisp.net/projects/asdf/asdf.git</pre> (Note that our "master" branch is for current development; get our "release" branch for the latest stable release.) (note that our "master" branch is for current development; get our "release" branch for the latest stable release.); </li> <li>browse the latest <em>development</em> tree from our git repository: <a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git">gitweb</a> </li> <li>download the tarball of a past release: <a href="http://common-lisp.net/project/asdf/archives/">archives</a> </li></ul> <a id="bugs"> Loading
test/test-tmp.lsp +2 −2 Original line number Diff line number Diff line Loading @@ -5,6 +5,6 @@ (defparameter *test-tmp-cl* t) (eval-when (:compile-toplevel :execute) (format t "compiling test-tmp.cl~%")) (format t "compiling test-tmp.lsp~%")) (eval-when (:load-toplevel :execute) (format t "loading test-tmp.cl~%")) (format t "loading test-tmp.lsp~%"))