# HG changeset patch
# User m.pearce <m.pearce@gold.ac.uk>
# Date 1161793797 -3600
# Node ID cb470aecc3b0b933c1ef933039f4c0122d6d6cd1
# Parent  db28a877b2b956d23ed3c9438a34795ec8efecc6
conditions.lisp: add missing right parens.

darcs-hash:20061025162957-aa3d6-be1d3f4c9ae5bf80c090d612f0ce22f3e652d3b0.gz

diff -r db28a877b2b9 -r cb470aecc3b0 conditions.lisp
--- a/conditions.lisp	Wed Oct 25 17:24:28 2006 +0100
+++ b/conditions.lisp	Wed Oct 25 17:29:57 2006 +0100
@@ -16,7 +16,7 @@
   (:report (lambda (condition stream)
 	     (format stream "The consequence of performing ~A on and object of type ~A is undefined"
 		     (undefined-action-operation condition)
-		     (undefined-action-datatype condition)))
+		     (undefined-action-datatype condition)))))
 
 (define-condition insufficient-information (condition)
   ;; It should be possible to construct genuinely minimal musical
@@ -29,6 +29,6 @@
   (:report (lambda (condition stream)
 	     (format stream "The ~A object does not contain enough information to perform ~A"
 		     (insufficient-information-datatype condition)
-		     (insufficient-information-operation condition)))
+		     (insufficient-information-operation condition)))))