From 17e727f58a0b09675e13a8aa5591886f47c2ef10 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 23 Apr 1990 09:38:54 +0000
Subject: [PATCH] Moved CONDITION defstruct here from error.

---
 code/struct.lisp | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/code/struct.lisp b/code/struct.lisp
index d01cf6db1..9488ab772 100644
--- a/code/struct.lisp
+++ b/code/struct.lisp
@@ -119,3 +119,13 @@
   to		; Symbol holding alist or vector from integers to keywords.
   kind		; Kind of from mapping, :vector or :alist.
   offset)	; Offset to add to value for :vector from mapping.
+
+
+;;; Condition structures:
+
+(in-package "CONDITIONS")
+
+(defstruct (condition (:constructor |constructor for condition|)
+                      (:predicate nil)
+                      (:print-function condition-print))
+  )
-- 
GitLab