Changeset 4634


Ignore:
Timestamp:
11/03/03 18:50:04 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/define-condition.lisp

    r4596 r4634  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: define-condition.lisp,v 1.4 2003-11-02 00:22:37 piso Exp $
     4;;; $Id: define-condition.lisp,v 1.5 2003-11-03 18:50:04 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2525         &body options)
    2626  (let ((parent-types (or parent-types '(condition))))
    27     (setf parent-types (mapcar #'(lambda (sym) (find-class sym)) parent-types))
    28     `(progn
    29        (std-finalize-inheritance (%define-condition ',name ',parent-types
    30                                                     ',slot-specs ',options))
     27    `(progn (defclass ,name ,parent-types ,slot-specs ,@options)
    3128       ',name)))
    3229
    3330(defun make-condition (type &rest initargs)
    3431  (or (%make-condition type initargs)
    35       (make-instance (find-class type) initargs)))
     32      (apply #'make-instance (find-class type) initargs)))
Note: See TracChangeset for help on using the changeset viewer.