From cfa50ffd1359bc700d4ae9778bdfeaaf51214318 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Tue, 21 Jan 2014 15:09:56 -0600
Subject: [PATCH] Fixed bug in error signaling.

---
 action.lisp | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/action.lisp b/action.lisp
index df1823cd..efcb6487 100644
--- a/action.lisp
+++ b/action.lisp
@@ -222,10 +222,11 @@ OPERATION objects."))
             :return t
             :finally (return nil))
     (error 'operation-definition-error
+           :format-control
            "No dependency propagating scheme specified for operation ~a.~
 This is likely because the OPERATION subclass of this object has not been ~
 updated for ASDF 3."
-           obj)))
+           :format-arguments (list obj))))
 
 (defmethod initialize-instance :before ((obj non-propagating-operation) &key)
   (when
@@ -235,8 +236,12 @@ updated for ASDF 3."
             :return t
             :finally (return nil))
     (error 'operation-definition-error
+           :format-control
            "Inconsistent class: ~a No class should have both NON-PROPAGATING-OPERATION and a propagating 
-operation class as superclasses." (class-name (class-of obj)))))
+operation class as superclasses."
+           :format-arguments
+           (list
+            (class-name (class-of obj))))))
 
 ;;;---------------------------------------------------------------------------
 ;;; End of OPERATION class checking
-- 
GitLab