Changeset 4596


Ignore:
Timestamp:
11/02/03 00:23:59 (18 years ago)
Author:
piso
Message:

MAKE-CONDITION

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/autoloads.lisp

    r4590 r4596  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: autoloads.lisp,v 1.56 2003-10-31 19:25:39 piso Exp $
     4;;; $Id: autoloads.lisp,v 1.57 2003-11-02 00:23:59 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    104104(autoload-macro 'with-package-iterator)
    105105(autoload-macro 'remf)
    106 (autoload-macro 'define-condition)
     106(autoload-macro '(define-condition make-condition) "define-condition.lisp")
    107107(autoload-macro 'check-type)
    108108(autoload-macro 'deftype)
  • trunk/j/src/org/armedbear/lisp/define-condition.lisp

    r4571 r4596  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: define-condition.lisp,v 1.3 2003-10-29 18:52:32 piso Exp $
     4;;; $Id: define-condition.lisp,v 1.4 2003-11-02 00:22:37 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3030                                                    ',slot-specs ',options))
    3131       ',name)))
     32
     33(defun make-condition (type &rest initargs)
     34  (or (%make-condition type initargs)
     35      (make-instance (find-class type) initargs)))
Note: See TracChangeset for help on using the changeset viewer.