From f958539aafff6125683da3bd45bc25d25e8e9dce Mon Sep 17 00:00:00 2001 From: Daniel Barlow <> Date: Thu, 10 Jul 2003 22:39:27 +0000 Subject: [PATCH] Various fixes MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit - Export SYSTEM-* accessors, per Stig Sandø request - Change the CONPONENT-PROPERTY alist to use a #'EQUAL test, per request ditto - Export *ASDF-REVISION* - Export *SYSTEM-DEFINITION-SEARCH-FUNCTIONS*, per request from Christian Ohler --- asdf.lisp | 23 +++++++++++++++-------- test/run-tests.sh | 4 ++-- 2 files changed, 17 insertions(+), 10 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index e204c377..77761af3 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 5789f754..0c4f87e1 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 ] -- GitLab