Changeset 4634

Timestamp:

11/03/03 18:50:04 (18 years ago)

Author:

piso

Message:

Work in progress.

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.4 2003-11-02 00:22:37 piso Exp $
+;;; $Id: define-condition.lisp,v 1.5 2003-11-03 18:50:04 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -25 +25 @@
          &body options)
   (let ((parent-types (or parent-types '(condition))))
-    (setf parent-types (mapcar #'(lambda (sym) (find-class sym)) parent-types))
-    `(progn
-       (std-finalize-inheritance (%define-condition ',name ',parent-types
-                                                    ',slot-specs ',options))
+    `(progn (defclass ,name ,parent-types ,slot-specs ,@options)
        ',name)))
 
 (defun make-condition (type &rest initargs)
   (or (%make-condition type initargs)
-      (make-instance (find-class type) initargs)))
+      (apply #'make-instance (find-class type) initargs)))