message

[sbcl.git] / src / code / interr.lisp

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index d14bdc0..b3ea6a1 100644 (file)
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -456,5 +456,8 @@
             "Control stack guard page temporarily disabled: proceed with caution~%")
      (error 'control-stack-exhausted))))
 
-(defun undefined-alien-error ()
-  (error 'undefined-alien-error))
+(defun undefined-alien-variable-error ()
+  (error 'undefined-alien-variable-error))
+
+(defun undefined-alien-function-error ()
+  (error 'undefined-alien-function-error))