0.9.0.30: towards callbacks: static-vectors

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

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index f1e6e0d..4b62d88 100644 (file)
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -775,6 +775,8 @@
               <http://sbcl.sourceforge.net/>.~:@>"
             '((fmakunbound 'compile))))))
 
+(define-condition simple-storage-condition (storage-condition simple-condition) ())
+
 ;;; a condition for use in stubs for operations which aren't supported
 ;;; on some platforms
 ;;;