support for deprecating special variables

[sbcl.git] / src / compiler / globaldb.lisp

diff --git a/src/compiler/globaldb.lisp b/src/compiler/globaldb.lisp
index a0d4872..aa9f8b8 100644 (file)
--- a/src/compiler/globaldb.lisp
+++ b/src/compiler/globaldb.lisp
@@ -1000,6 +1000,12 @@
   :type-spec boolean
   :default nil)
 
+(define-info-type
+  :class :variable
+  :type :deprecated
+  :type-spec t
+  :default nil)
+
 ;;; the declared type for this variable
 (define-info-type
   :class :variable