
DEFVAR("*AFTER-GBC-HOOK*",sSAafter_gbc_hookA,SI,((object)&Cnil_body)  ,"")
DEFVAR("*IGNORE-MAXIMUM-PAGES*",sSAignore_maximum_pagesA,SI,((object)&Ct_body)  ,"")
DEFUN("ALLOCATED",object,fSallocated,SI
   ,2,2,0 ,OO,OO,OO,OO,"")
DEFUN("RESET-NUMBER-USED",object,fSreset_number_used,SI,0,1,0 ,OO,OO,OO,OO,"")
DEFUN("STATICP",object,fSstaticp,SI,1,1,0 ,OO,OO,OO,OO,"Tell if the string or vector is static")
DEFUNO("ALLOCATE",object,fSallocate,SI
   ,2,3,0 ,OO,IO,OO,OO,siLallocate,"")
DEFUN("ALLOCATE-SGC",object,fSallocate_sgc,SI
   ,4,4,0 ,OO,II,II,OO,"")
DEFUN("ALLOCATE-GROWTH",object,fSallocate_growth,SI,5,5,0 ,OO,II,II,OO,"")
DEFUNO("ALLOCATE-CONTIGUOUS-PAGES",object,fSallocate_contiguous_pages,SI
   ,1,2,0 ,OI,OO,OO,OO,siLalloc_contpage,"")
DEFUNO("ALLOCATED-CONTIGUOUS-PAGES",object,fSallocated_contiguous_pages,SI
   ,0,0,0 ,OO,OO,OO,OO,siLncbpage,"")
DEFUNO("MAXIMUM-CONTIGUOUS-PAGES",object,fSmaximum_contiguous_pages,SI
   ,0,0,0 ,OO,OO,OO,OO,siLmaxcbpage,"")
DEFUNO("ALLOCATE-RELOCATABLE-PAGES",object,fSallocate_relocatable_pages,SI
   ,1,2,0 ,OI,OO,OO,OO,siLalloc_relpage,"")
DEFUNO("ALLOCATED-RELOCATABLE-PAGES",object,fSallocated_relocatable_pages,SI
   ,0,0,0 ,OO,OO,OO,OO,siLnrbpage,"")
DEFUNO("GET-HOLE-SIZE",object,fSget_hole_size,SI
   ,0,0,0 ,OO,OO,OO,OO,siLget_hole_size,"")
DEFUNO("SET-HOLE-SIZE",object,fSset_hole_size,SI
   ,1,2,0 ,OI,IO,OO,OO,siLset_hole_size,"")