X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-condition.lisp;h=cd8580c7dd9deba8fcc1fad062f96f72650f171d;hb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;hp=5c2f82145badbc2ee7b4bb35356081c4f851ce16;hpb=0220b66ca721bc9515ebf2dedab69407850ff518;p=sbcl.git diff --git a/src/code/cross-condition.lisp b/src/code/cross-condition.lisp index 5c2f821..cd8580c 100644 --- a/src/code/cross-condition.lisp +++ b/src/code/cross-condition.lisp @@ -45,17 +45,17 @@ (:report (lambda (condition stream) (format stream - "~@< ~? ~:@_~?~:>" - (simple-condition-format-control condition) - (simple-condition-format-arguments condition) - "~@" + (simple-condition-format-control condition) + (simple-condition-format-arguments condition) + "~@.~:@>" - ())))) + ())))) ;;; These are should never be instantiated before the real definitions ;;; come in.