'<PCODE "HASH">

<PACKAGE "HASH"> 

<ENTRY HASH> 

<NEWTYPE HASH WORD> 

<SETG HASH  %<RSUBR!- '[ %<PCODE!- "HASH" 0> HASH #DECL ("VALUE" HASH ANY) ANY 
WRONG-TYPE!-ERRORS HASH %<TYPE-W HASH WORD> T MACRO %<RGLOC 
FAST-MACROER!-IFMACRO!-FMACRO!-PACKAGE T> %<RGLOC APPLY T> %<RGLOC 
FAST-MACRO!-IFMACRO!-FMACRO!-PACKAGE T> "DONE" %<TYPE-W 
NORMAL-MACRO!-IFMACRO!-FMACRO!-PACKAGE LIST> EXPAND]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,HASH PGLUE ![1073741760!]>> 


<ENDPACKAGE>