diff --git a/asdf.lisp b/asdf.lisp index e204c377aa1d0fb1c403f8839cc1af3d72dd2ac0..77761af345bf0056014af14f2d2bfe7f2eed1bbe 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,4 +1,4 @@ -;;; This is asdf: Another System Definition Facility. $Revision: 1.75 $ +;;; This is asdf: Another System Definition Facility. $Revision: 1.76 $ ;;; ;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; <cclan-list@lists.sf.net>. But note first that the canonical @@ -72,13 +72,21 @@ #:component-depends-on + #:system-description + #:system-long-description + #:system-author + #:system-maintainer + #:system-license + #:operation-on-warnings #:operation-on-failure ;#:*component-parent-pathname* + #:*system-definition-search-functions* #:*central-registry* ; variables #:*compile-file-warnings-behaviour* #:*compile-file-failure-behaviour* + #:*asdf-revision* #:operation-error #:compile-failed #:compile-warned #:compile-error #:system-definition-error @@ -94,7 +102,7 @@ (in-package #:asdf) -(defvar *asdf-revision* (let* ((v "$Revision: 1.75 $") +(defvar *asdf-revision* (let* ((v "$Revision: 1.76 $") (colon (or (position #\: v) -1)) (dot (position #\. v))) (and v colon dot @@ -251,22 +259,21 @@ and NIL NAME and TYPE components" (defgeneric component-property (component property)) (defmethod component-property ((c component) property) - (cdr (assoc property (slot-value c 'properties)))) + (cdr (assoc property (slot-value c 'properties) :test #'equal))) (defgeneric (setf component-property) (new-value component property)) (defmethod (setf component-property) (new-value (c component) property) - (let ((a (assoc property (slot-value c 'properties)))) + (let ((a (assoc property (slot-value c 'properties) :test #'equal))) (if a (setf (cdr a) new-value) (setf (slot-value c 'properties) (acons property new-value (slot-value c 'properties)))))) - - (defclass system (module) ((description :accessor system-description :initarg :description) - (long-description :accessor long-description :initarg :long-description) + (long-description + :accessor system-long-description :initarg :long-description) (author :accessor system-author :initarg :author) (maintainer :accessor system-maintainer :initarg :maintainer) (licence :accessor system-licence :initarg :licence))) @@ -841,7 +848,7 @@ system.")) :pathname (or ,pathname (pathname-sans-name+type - (resolve-symlinks *load-truename*)) + (resolve-symlinks *load-truename*)) *default-pathname-defaults*) ',component-options)))))) diff --git a/test/run-tests.sh b/test/run-tests.sh index 5789f754954b869bb68ca00c3f699e1e7f854963..0c4f87e176217fa2461bce529e8d123571151410 100644 --- a/test/run-tests.sh +++ b/test/run-tests.sh @@ -25,12 +25,12 @@ set -e if type sbcl then - do_tests "sbcl --userinit /dev/null --noprogrammer" fasl + do_tests "sbcl --userinit /dev/null --sysinit /dev/null --noprogrammer" fasl fi if [ -x /usr/bin/lisp ] then - do_tests "/usr/bin/lisp -batch" x86f + do_tests "/usr/bin/lisp -batch -noinit" x86f fi if [ -x /usr/bin/clisp ]