Changeset 4634
- Timestamp:
- 11/03/03 18:50:04 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/define-condition.lisp
r4596 r4634 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: define-condition.lisp,v 1. 4 2003-11-02 00:22:37piso Exp $4 ;;; $Id: define-condition.lisp,v 1.5 2003-11-03 18:50:04 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 25 25 &body options) 26 26 (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) 31 28 ',name))) 32 29 33 30 (defun make-condition (type &rest initargs) 34 31 (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.