Skip to content
Snippets Groups Projects
Commit 45de8524 authored by ram's avatar ram
Browse files

Moved CONDITION defstruct to struct.

parent 17e727f5
No related branches found
No related tags found
No related merge requests found
......@@ -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*
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment