X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=ecd3766482899e7d36971fd99402cf6d3bb75508;hb=7c5138fcbdb302abc563a2060493f2f0304ae902;hp=618db154ef352c7663adf64b302542657ac833c6;hpb=1f0efb731e8427080690f8ecaf9a56fc287a9d88;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 618db15..ecd3766 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -233,8 +233,7 @@
   "Make an instance of a condition object using the specified initargs."
   ;; Note: ANSI specifies no exceptional situations in this function.
   ;; signalling simple-type-error would not be wrong.
-  (let* ((thing (if (symbolp thing)
-		    (find-classoid thing)
+  (let* ((thing (or (and (symbolp thing) (find-classoid thing nil))
 		    thing))
 	 (class (typecase thing
 		  (condition-classoid thing)
@@ -937,6 +936,12 @@ symbol that caused the violation is accessed by the function
 SB-EXT:PACKAGE-LOCKED-ERROR-SYMBOL."))
 
 ) ; progn
+
+(define-condition undefined-alien-error (error) ()
+  (:report
+   (lambda (condition stream)
+     (declare (ignore condition))
+     (format stream "Attempt to access an undefined alien value."))))
 
 ;;;; various other (not specified by ANSI) CONDITIONs
 ;;;;