X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fvop.lisp;h=4b0366072bd02cdba01255e6fc859f11676779bb;hb=c2ac5ba3964165ee2d21ccd4c6bf8bdc48e1a165;hp=cfcb0f4aa31659daa8888ad326de0025560f0d2a;hpb=d604a358d8e5eb5587989e0a4f1d31dbe6ac5ffe;p=sbcl.git

diff --git a/src/compiler/vop.lisp b/src/compiler/vop.lisp
index cfcb0f4..4b03660 100644
--- a/src/compiler/vop.lisp
+++ b/src/compiler/vop.lisp
@@ -327,7 +327,9 @@
   (arguments nil :type list)
   ;; a function type specifier representing the arguments and results
   ;; of this function
-  (type 'function :type (or list (member function))))
+  (type 'function :type (or list (member function)))
+  ;; xref information for the XEP
+  (xref nil :type (or null simple-vector)))
 
 ;;; An IR2-PHYSENV is used to annotate non-LET LAMBDAs with their
 ;;; passing locations. It is stored in the PHYSENV-INFO.