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*