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