From 45de8524223e78a5c086043e9a22cc70a91c455b Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 23 Apr 1990 09:39:24 +0000 Subject: [PATCH] Moved CONDITION defstruct to struct. --- code/error.lisp | 5 ----- 1 file changed, 5 deletions(-) diff --git a/code/error.lisp b/code/error.lisp index 45c0181c4..910578246 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* -- GitLab