hưs2D p,COMPILE-DATADLISPM,Lisp Machine OnegFdFDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITEpB MITpB QFASL-SOURCE-FILE-UNIQUE-ID1DplFSMAKE-FASLOAD-PATHNAMEDpB+QUOTElOZDB:pB lUNSPECIFICDB:DhomeamsllsyspatchDB:system-100-4DB:lispDB:B>pB lPATCH-FILEpB lTpB BASEF pB ,PACKAGEpB USERpB lREADTABLEpB lZLOZ: /tree/sys2/adviseN^plSIPATCH-SOURCE-FILE-NAMESTRINGpB_,ADVISE-FIND-SLOTˀ2$F"BcF@CUNCOMPILEpB_lENCAPSULATION-BODYFDEFINITIONpB BEFOREpB AFTERpB AROUNDÀFERRORThe argument ~2@*~A was ~1@*~S, which is not ~3@*~A.DpCLIMEMBERBoBqBsÀCLASSpB_,TYPE-PRETTY-NAMEDDpB ,MACROS-EXPANDEDDÀECASEDpB(,ARG-MAPDDpB_FUNCTION-SPECDBzDpB(lLOCAL-MAPDDpB_BODYE@@E t8|E t8| E t8| @E DDED@GOBcNILNBaOZ: /tree/sys/qmiscNBaCARRAY-POPˀ9F$BFA@INHIBIT-SCHEDULING-FLAG%%Q-CDR-CODECDR-NILpSYSTEMl%%ARRAY-TYPE-FIELDARRAY-TYPESBt~S OverpoppedCART-Q-LISTDDB~DLOCFSETFFILL-POINTERWHENCWITHOUT-INTERRUPTSDBDDÀARRAYDBDDpB_INDEXDCARRAY-TYPEDpB_VALDÁDOCUMENTATIONReturns the last used element of ARRAY, and decrements the fill pointer.For an ART-Q-LIST array, the cdr codes are updated so that the overlayed listno longer contains the element removed. Signals an error if ARRAY is empty(has fill-pointer 0)Uses GLOBAL:AREF, so will pop fixnums out of strings.EVE@`Z@ D DE|[J[A@E8 E DŀE@EJ[BE@E@!AE t 8@EXDDE@EZ[;BOBBNBa1DpB_,FASL-RECORD-FILE-MACROS-EXPANDEDDB:DDBXDBhDBxDBgDBDDBk