r5328: Auto commit for Debian build

diff --git a/puri.asd b/puri.asd
index 193f98db936a5ed6a78a171ec42b8645fa74c329..07253f201fd390a850a371dd677f7c02aa02f8d4 100644 (file)
--- a/puri.asd
+++ b/puri.asd
@@ -25,5 +25,6 @@
     ((:file "tests")))
 
 (defmethod perform ((o test-op) (c (eql (find-system 'puri-tests))))
     ((:file "tests")))
 
 (defmethod perform ((o test-op) (c (eql (find-system 'puri-tests))))

-  (or (funcall (intern (symbol-name '#:do-tests) (find-package :rt)))
+  (or (funcall (intern (symbol-name '#:do-tests)
+                      (find-package :puri-tests)))

       (error "test-op failed")))
       (error "test-op failed")))

diff --git a/tests.lisp b/tests.lisp
index 0a4f2d9ccd5d309459fa0070603532f6bd7509f5..8696767ff9c6e0d65a8363682829f8b2ad335cef 100644 (file)
--- a/tests.lisp
+++ b/tests.lisp
@@ -20,7 +20,7 @@
 ;; Original version from ACL 6.1:
 ;; t-uri.cl,v 1.3.6.3.2.1 2001/08/09 17:42:43 layer
 ;;
 ;; Original version from ACL 6.1:
 ;; t-uri.cl,v 1.3.6.3.2.1 2001/08/09 17:42:43 layer
 ;;

-;; $Id: tests.lisp,v 1.2 2003/07/18 23:06:11 kevin Exp $
+;; $Id: tests.lisp,v 1.3 2003/07/18 23:11:37 kevin Exp $

 
 
 (defpackage #:puri-tests (:use #:puri #:cl #:util.test))
 
 
 (defpackage #:puri-tests (:use #:puri #:cl #:util.test))


@@ -408,6 +408,10 @@
     `(progn ,@(nreverse res)))
   )
 
     `(progn ,@(nreverse res)))
   )
 

-(eval
- `(with-tests (:name "puri")
-   ,@*tests*))
+(defun do-tests ()
+  (eval
+   `(with-tests (:name "puri")
+     ,*tests*))
+  t)
+
+