Changeset 10321


Ignore:
Timestamp:
11/02/05 01:13:48 (16 years ago)
Author:
piso
Message:

MAKE-CONDITION

File:
1 edited

Legend:

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

    r10318 r10321  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.188 2005-11-01 17:50:50 piso Exp $
     4;;; $Id: clos.lisp,v 1.189 2005-11-02 01:13:48 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    21592159
    21602160(defun make-condition (type &rest initargs)
    2161   (or (%make-condition type initargs)
    2162       (apply #'make-instance (find-class type) initargs)))
     2161  (let ((class (if (symbolp type) (find-class type) type)))
     2162    (apply #'make-instance class initargs)))
    21632163
    21642164;; Adapted from SBCL.
Note: See TracChangeset for help on using the changeset viewer.