X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fcondition.lisp;h=ab6e942b39ae16df2536166badd67f3fa25e12a2;hb=7acdf15e27993655c9249f79d36fe2117843dbdf;hp=08f2f99a562d58dad4649d6f5125c76cffe42b11;hpb=02313fc9ceecedacefc2e2a13c5c67a2ca9a57e8;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 08f2f99..ab6e942 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -1738,5 +1738,14 @@ not exists.")
 condition, stepping into the current form. Signals a CONTROL-ERROR is
 the restart does not exist."))
 
-(/show0 "condition.lisp end of file")
+;;; Compiler macro magic
+
+(define-condition compiler-macro-keyword-problem ()
+  ((argument :initarg :argument :reader compiler-macro-keyword-argument))
+  (:report (lambda (condition stream)
+             (format stream "~@<Argument ~S in keyword position is not ~
+                             a self-evaluating symbol, preventing compiler-macro ~
+                             expansion.~@:>"
+                     (compiler-macro-keyword-argument condition)))))
 
+(/show0 "condition.lisp end of file")