0.8.14.5: Join the foreign legion!

[sbcl.git] / src / code / condition.lisp

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 7d3f7a7..1ade61d 100644 (file)
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -775,12 +775,8 @@
 ;;; regression tests cheerfully passed because they assumed that
 ;;; unFBOUNDPness meant they were running on an system which didn't
 ;;; support the extension.)
-(define-condition unsupported-operator (cell-error) ()
-  (:report
-   (lambda (condition stream)
-     (format stream
-            "unsupported on this platform (OS, CPU, whatever): ~S"
-            (cell-error-name condition)))))
+(define-condition unsupported-operator (simple-error) ())
+
 \f
 ;;; (:ansi-cl :function remove)
 ;;; (:ansi-cl :section (a b c))