diff --git a/code/struct.lisp b/code/struct.lisp
index d01cf6db161a51433bc2d69dd71c3e3edad24e84..9488ab77222de939cdcfdd199eb28f6c53d2f91a 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))
+  )