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

Undefined conditions should signal type-error, not simple-error.

From a bug reported by Bruno Haible, cmucl-imp, 2004-10-12:

	(error 'undefined-condition-class)
parent a0bf5cbc
No related branches found
No related tags found
No related merge requests found
......@@ -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/class.lisp,v 1.57 2003/08/05 14:04:53 gerd Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.58 2004/10/12 16:53:53 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -394,7 +394,11 @@
(let ((res (class-cell-class (find-class-cell name))))
(if (or res (not errorp))
res
(error "Class not yet defined:~% ~S" name))))
(error 'simple-type-error
:datum name
:expected-type t ; Not really
:format-control "Class not yet defined:~% ~S"
:format-arguments (list name)))))
;;;
(defun (setf find-class) (new-value name &optional (errorp t) environment)
(declare (type (or null class) new-value) (ignore errorp environment))
......
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