Index: /trunk/ccl/library/lispequ.lisp
===================================================================
--- /trunk/ccl/library/lispequ.lisp	(revision 576)
+++ /trunk/ccl/library/lispequ.lisp	(revision 577)
@@ -172,4 +172,5 @@
 (defconstant $arh_simple_bit 4)		;not adjustable, no fill-pointer and
 					; not user-visibly displaced -p
+(defconstant $arh_exp_disp_bit 3)	;explicitly-displaced -p
 
 (def-accessors (lexical-environment) %svref