X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Finterr.lisp;h=b230d79bb7434f8986d1d39bdd03b294e5cd1860;hb=7cca1cabd213d38218a40e973b06ca11c8546396;hp=0d6ceeb81fd5df3a51821787c6454db4b3af27d5;hpb=bf27595fb567015495b7131707cc85af361567fe;p=sbcl.git diff --git a/src/code/interr.lisp b/src/code/interr.lisp index 0d6ceeb..b230d79 100644 --- a/src/code/interr.lisp +++ b/src/code/interr.lisp @@ -456,5 +456,11 @@ "Control stack guard page temporarily disabled: proceed with caution~%") (error 'control-stack-exhausted)))) +(defun undefined-alien-variable-error () + (error 'undefined-alien-variable-error)) +(defun undefined-alien-function-error () + (error 'undefined-alien-function-error)) +(defun memory-fault-error () + (error 'memory-fault-error)) \ No newline at end of file