Skip to content
Snippets Groups Projects
Commit 296f59c2 authored by rtoy's avatar rtoy
Browse files

Trac #29: make-condition doesn't accept class objects

o In MAKE-CONDITION, add case for PCL::CONDITION-CLASS to support
  class objects.
parent 23831498
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -554,6 +554,10 @@
thing)) thing))
(class (typecase thing (class (typecase thing
(condition-class thing) (condition-class thing)
(pcl::condition-class
;; Punt to CLOS
(return-from make-condition
(apply #'make-instance thing args)))
(class (class
(error 'simple-type-error (error 'simple-type-error
:datum thing :datum thing
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment