diff --git a/code/error.lisp b/code/error.lisp
index 45c0181c4b27b3d3c4002bc3d8982b5b932151b3..91057824674b5ea2a6bf8fbb5c6c8010afa1fea1 100644
--- a/code/error.lisp
+++ b/code/error.lisp
@@ -312,11 +312,6 @@ The previous version is uglier, but it sets up unique run-time tags.
 
 ;;;; Conditions.
 
-(defstruct (condition (:constructor |constructor for condition|)
-                      (:predicate nil)
-                      (:print-function condition-print))
-  )
-
 (defun condition-print (condition stream depth)
   (declare (ignore depth))
   (if *print-escape*