r10882: fix delimited-to-string and parse-uri to correspond to franz' code

[puri.git] / puri.asd

diff --git a/puri.asd b/puri.asd
index af10e80103474342a4cb71e4f35ac71c2a24e4f5..0e4ea9c52f9de44dd7f2b414e2629d4c5eea2800 100644 (file)
--- a/puri.asd
+++ b/puri.asd
@@ -28,3 +28,6 @@
   (or (funcall (intern (symbol-name '#:do-tests)
                       (find-package :puri-tests)))
       (error "test-op failed")))
+
+(defmethod operation-done-p ((o test-op) (c (eql (find-system 'puri-tests))))
+  (values nil))