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