X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=a29c02b5d8b90252c650d13291886ceb81cede1e;hb=079ef9dad558ca07cb8178ef428bf738112174fa;hp=5cae133926ef2f8ee6f223982f43d479f52d10d1;hpb=b86f43bae31f775d834c724e21f0f573b968f695;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 5cae133..a29c02b 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -956,11 +956,20 @@ SB-EXT:PACKAGE-LOCKED-ERROR-SYMBOL."))
 
 ) ; progn
 
-(define-condition undefined-alien-error (error) ()
+(define-condition undefined-alien-error (error) ())
+
+(define-condition undefined-alien-variable-error (undefined-alien-error) ()
+  (:report
+   (lambda (condition stream)
+     (declare (ignore condition))
+     (format stream "Attempt to access an undefined alien variable."))))
+
+(define-condition undefined-alien-function-error (undefined-alien-error) ()
   (:report
    (lambda (condition stream)
      (declare (ignore condition))
-     (format stream "Attempt to access an undefined alien value."))))
+     (format stream "Attempt to call an undefined alien function."))))
+
 
 ;;;; various other (not specified by ANSI) CONDITIONs
 ;;;;