From 296f59c2758643b09fed6ff4ab2fd557b1dff5bf Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Wed, 21 Jan 2009 18:15:45 +0000 Subject: [PATCH] Trac #29: make-condition doesn't accept class objects o In MAKE-CONDITION, add case for PCL::CONDITION-CLASS to support class objects. --- code/error.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/code/error.lisp b/code/error.lisp index e3d29357c..3ca174208 100644 --- a/code/error.lisp +++ b/code/error.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.86 2008/11/12 15:04:23 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.87 2009/01/21 18:15:45 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -554,6 +554,10 @@ thing)) (class (typecase thing (condition-class thing) + (pcl::condition-class + ;; Punt to CLOS + (return-from make-condition + (apply #'make-instance thing args))) (class (error 'simple-type-error :datum thing -- GitLab