Changeset 4571

Timestamp:

10/29/03 18:52:32 (19 years ago)

Author:

piso

Message:

Call STD-FINALIZE-INHERITANCE.

File:

• trunk/j/src/org/armedbear/lisp/define-condition.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/define-condition.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: define-condition.lisp,v 1.2 2003-09-21 15:08:43 piso Exp $
+;;; $Id: define-condition.lisp,v 1.3 2003-10-29 18:52:32 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -20 +20 @@
 (in-package "SYSTEM")
 
+(require 'clos)
+
 (defmacro define-condition (name (&rest parent-types) (&rest slot-specs)
          &body options)
   (let ((parent-types (or parent-types '(condition))))
-    `(%define-condition ',name ',parent-types ',slot-specs ',options)))
+    (setf parent-types (mapcar #'(lambda (sym) (find-class sym)) parent-types))
+    `(progn
+       (std-finalize-inheritance (%define-condition ',name ',parent-types
+                                                    ',slot-specs ',options))
+       ',name)))