‘XCL Compiler output for source file {DSK}export>lispcore>sources>CLTL2>CMLSETF.;1 Source file created Friday, 22 October 1993, 15:11:52. FASL file created Wednesday, 3 November 1993, 15:08:42. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒLISP˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•Œ CMLSETFCOMS˜•Œ FILEDATES˜•ŒCMLSETF˜“˜“˜•Œ FUNCTIONS˜ŒGET-SETF-METHOD˜ŒGET-SIMPLE-SETF-METHOD˜ŒGET-SETF-METHOD-MULTIPLE-VALUE˜ŒDEFUN-SETF-METHOD˜“˜•Œ DEFINE-TYPES˜•ŒSETFS˜“™˜ŒDEFSETF˜ŒDEFINE-MODIFY-MACRO˜ŒDEFINE-SETF-METHOD˜“˜•ŒCOMS˜“˜•Œ*˜•Œ;;˜Œ"Support for defstruct and friends ˜“™˜ŒDEFINE-SHARED-SETF-MACRO˜ŒDEFINE-SHARED-SETF˜ŒGET-SHARED-SETF-METHOD˜“™˜ŒSETF˜Œ SETF-ERROR˜“™˜ŒPSETF˜ŒSHIFTF˜ŒROTATEF˜ŒPOP˜ŒREMF˜“™$™%˜ŒCA little suppost stuff to make writing the undoable versions easier˜“™˜ŒSHIFTF-INTERNAL˜ŒROTATEF-INTERNAL˜“™$™%˜Œ/A little support macro to make ROTATEF prettier˜“™˜ŒMV-LET*˜“™˜ŒINCF˜ŒDECF˜“™˜ŒMAYBE-MAKE-BINDING-FORM˜ŒCOUNT-OCCURRENCES˜Œ SETF-NAME-P˜’ŒDEFUN-SETF-NAME˜‘˜ŒXEROX-COMMON-LISP˜’ŒSET-DEFUN-SETF™F˜“™˜ŒPUSH˜ŒPUSHNEW˜“3™˜ŒCAR˜ŒCDR˜ŒCAAAAR˜ŒCAAADR˜ŒCAAAR˜ŒCAADAR˜ŒCAADDR˜ŒCAADR˜ŒCAAR˜ŒCADAAR˜ŒCADADR˜ŒCADAR˜ŒCADDAR˜ŒCADDDR˜ŒCADDR˜ŒCADR˜ŒCDAAAR˜ŒCDAADR˜ŒCDAAR˜ŒCDADAR˜ŒCDADDR˜ŒCDADR˜ŒCDAR˜ŒCDDAAR˜ŒCDDADR˜ŒCDDAR˜ŒCDDDAR˜ŒCDDDDR˜ŒCDDDR˜ŒCDDR˜ŒFIRST˜ŒSECOND˜ŒTHIRD˜ŒFOURTH˜ŒFIFTH˜ŒSIXTH˜ŒSEVENTH˜ŒEIGHTH˜ŒNINTH˜ŒTENTH˜ŒREST˜ŒNTHCDR˜ŒNTH˜ŒGETF˜ŒAPPLY˜ŒLDB˜Œ MASK-FIELD˜ŒCHAR-BIT˜ŒTHE˜Œ FDEFINITION˜“™#˜“™$˜•Œ;˜Œ,Some IL setfs, for no especially good reason˜“™˜•ŒGETHASH˜“™˜•Œ%SET-IL-GETHASH˜“˜•ŒPROP˜•ŒPROPTYPE˜ŒSETF-METHOD-EXPANDER˜Œ SETF-INVERSE˜ŒSHARED-SETF-INVERSE˜“™‚ˆ˜“˜•ŒFILETYPE˜•ŒMAKEFILE-ENVIRONMENT™˜“˜•ŒDECLARE:˜•Œ DONTEVAL@LOAD˜•ŒDOEVAL@COMPILE˜•ŒDONTCOPY˜•Œ COMPILERVARS˜“˜•ŒADDVARS˜“˜•ŒNLAMA˜“˜•ŒNLAML˜“˜•ŒLAMA ˜“˜”˜Œ14-Feb-92 13:26:45•Œ/{DSK}local>lde>lispcore>sources>CMLSETF.;4œ™˜–‚1h¸@d3@ð²hhXhg@Hh@$@‘i€h¢±ÿ@A Xœ@AlHA @ÁÉg'Y’I°@ÁÉg'Z‘J‹@ÁÉg'X—@H @ÁÉg'X—@H @ÁÉg'Y‘I‹@ÁÉg'X²M@AlH YºI[¼K]¾M__¿O_¿N kÿ¯o ¿Nh¾JLNOO$@A YºI[—J@ð‘h‚i€h—JA @A @ ™ ™˜“˜“˜ŒFORM˜Œ &OPTIONAL˜Œ ENVIRONMENT ‚+™.‚$™‚™‚˜•Œ\MVLIST‚þ˜Œ MACROEXPAND-1‚昌WARN‚Ù˜ŒLENGTH‚·™‚ª‚Œ™*v™?™1˜•ŒLOCAL-MACRO-FUNCTION ˜•ŒGENSYM‚¨˜•ŒSETF-METHOD-EXPANDER‚˜™‚Š‚‚™‚Œl˜•ŒSETFN\˜•Œ SETF-INVERSEK™‚‹˜ŒSETQ‚ᘌYSETF method contains more than one store variable. Only top of the elements was accepted.œ™˜–‚§¸h¹hºh»h¼h½@¾h_¿h_¿h_¿N£O°PN_‘i€h™Ogð†O “O°OJº_I¹O_¿O˜OO&_¿ˆOh__¿N¾°®»AKHh  ¼@K ½I YJ ZHhLM$™ ™˜“˜“˜ŒFORM˜Œ SETF-INVERSE‚˜˜ŒNREVERSE‚‘™‚º‚Š™‚«‚€™‚«z˜ŒAPPENDK™‚¯<˜Œ CONSTANTP™‚¯3˜ŒQUOTEœ™˜–‚ìh¸@d3@ð²hhXhg@Hh@$@‘i€h¢±º@A Xœ@AlHA @ÁÉg'Y’I°@ÁÉg'Z‘J‹@ÁÉg'X—@H @ÁÉg'X—@H @ÁÉg'Y‘I‹@ÁÉg'X–@AlH@A YºI[—J@ð‘h‚i€h—JA @A @ ™™˜“˜“˜ŒFORM™‚¦˜Œ ENVIRONMENT ‚æ™.‚ß™‚×™‚¾™‚ª‚¹™‚«‚Œ™*v™?™1™‚® ™‚¯‚¨™‚°‚˜™‚Š‚‚™‚Œl™‚±\™‚²K™‚‹™‚³œ™˜–‚€¸@¹hºh»h¼I¢J° I½Mh¼J”KL&»„Lh[ºI¹°ß¹Iºh»h¼h½J¢K°J½K”LM&¼„Mh\»Jº°èZ@Hhggg@hhHJ@J$™™˜“˜“˜ŒFORM˜Œ ENVIRONMENT˜ŒGENSYM™‚Èf™-a˜ŒFUNCTION\˜ŒFUNCALL˜–‚"ggo ¿oRgg c¿oSgg c¿o ¿g X¦h¿g` ³0g`gggl2gl2  ¿Q¸gQ‘H†gHc¿ggg ¿ggg ¿ggg ¿ggg ¿ggg ˜•Œ FILEPKGTYPES˜•ŒPRETTYDEFMACROS˜•Œ PRETTYTYPELST˜ŒXCL:DEF-DEFINE-TYPE IL:SETFS™˜“€ ‚™‚™‚ò™‚Ý™‚È™‚˜ŒPUTHASH‚˜˜ŒMAKE-HASH-TABLEn™‚ƒV˜ŒBOUNDPK˜ŒPROCLAIM>˜ŒADJOIN&™‚Õ˜•ŒSET-DOCUMENTATION!‚˜•ŒNILL‚˜•ŒFILEPKGCONTENTS‚ ™‚˜’Œ%DEFINE-TYPE-FILEGETDEF™F‚ý˜•Œ FILEGETDEF‚ø™‚혒Œ%DEFINE-TYPE-PUTDEF™F‚蘕ŒPUTDEF‚㙂ؘ’Œ%DEFINE-TYPE-DELDEF™F‚Ó˜•ŒDELDEF‚Ι‚Ø’Œ%DEFINE-TYPE-GETDEF™F‚¾˜•ŒGETDEF‚¹™‚¯™‚¥™‚˜Œ REHASH-SIZE‚‰˜ŒSIZE‚„˜ŒEQUAL˜ŒTESTz˜’Œ*DEFINITION-HASH-TABLE*™Fu™i™‚åd™^˜•ŒCHANGEDSETFSLSTQ™‚æ9™‚ã4™‚ä!™‚㙂䙙F˜“˜’ŒGLOBAL™F™‚æ.˜“™‚晘ŒCommon Lisp SETF definitions˜“™˜’ŒX™F˜“˜•ŒP™$˜“˜’Œ%DEFINE-TYPE-FILE-DEFINITIONS™F˜“™‚½™˜“™‚½™‚ë ™‚阖Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒXCL:DEFDEFINER DEFSETF™˜“€A™™ :™0™)˜Œ DEFINED-BY ™™‚ö™ ™˜Œ DEFINER-FOR™œ˜Œdefinition-expander-DEFSETF˜–‚<@X¹HZ»A¼J¢±"J]‘h€i^‘N…M‘i€h²J²J]‘h€i^‘N‰M‘i„h‚h€h¢±J½J^__¿O_¿N__¿OŸoo ¿IohI _¿IohI _¿IohI _¿MOOILgO  __ ¿O_"_$¿ggogggOhhgggOhgoOoOohggogOhgIO hOhhhhhggIhgOhhhO$²%gggIhoO$hh€hJd3@ð²`K½K¾ggoggIhgMhhhN²$gggIhoNhh€hoI oI ™‚ù™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ‚6˜ŒERROR‚*™‚þ‚È™‚ª‚Ø•ŒPARSE-DEFMACRO‚¬˜’ŒPACK™F‚§˜ŒSYMBOL-PACKAGE‚•™‚‚™‚~™‚y™‚i˜ŒCERROR‚™‚½‚˜Œ DOCUMENTATION‚þ™-‚Ꙃ½‚ᙂ½‚ܘŒSET-SETF-INVERSE‚Ò˜Œ EVAL-WHEN‚͘ŒPROGN‚¡™‚½‚œ™‚‚—™-‚€™‚½‚w™‚½‚r˜ŒSET-SETF-METHOD-EXPANDER‚N˜ŒBLOCK‚D˜ŒLIST‚:˜ŒDUMMIES‚5˜ŒVALUES‚˜ŒLET*‚ ˜Œ ACCESS-FORM‚˜ŒLAMBDA‚™‚É‚ö™‚½‚ñ˜ŒSYMBOL-FUNCTION‚ì™-‚♂‚Ý™‚‚»˜Œ ENVIRONMENT‚0˜ŒNo body for DEFSETF of ~A‚$˜ŒIll-formed DEFSETF for ~S.‚˜“˜“™‚½™-‚ט“˜ŒLOAD˜ŒCOMPILE˜ŒEVAL‚ª˜“˜“™‚½™-‚?˜“™N™‚ ‚+˜“˜“™‚¯‚#˜“˜“˜ŒCONS˜“™M™‚ ™‚ ‚˜“™‚ ˜“˜ŒMAPCAR˜“™‚ɘ“™‚˜“˜ŒX˜“™‚¯˜“™N™‚ ‚瘓™‚™‚™‚‚ž˜Œ-setf-expander‚‡˜Œ -setf-envp˜Œ -setf-formd˜Œ