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)) + )