‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>CLOS>CURRENT>clos-env-internal.lisp;1 Source file created Monday, 30 September 1991, 23:52:21. FASL file created Friday, 4 December 2020, 19:57:54. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜ŒPACKAGE˜ŒXCL˜Œ READTABLE˜ŒXCL˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•ŒCLOS-ENV-INTERNALCOMS˜•Œ FILEDATES˜•ŒCLOS-ENV-INTERNAL˜“˜“˜•Œ*˜•Œ;;;˜Œ'***************************************˜“™™˜Œ< Copyright (c) 1987 Xerox Corporation. All rights reserved.˜“™™˜Œ˜“™™˜Œ‚æUse and copying of this software and preparation of derivative works based upon this software are permitted. Any distribution of this software or derivative works must comply with all applicable United States export control laws.˜“™™˜Œ ˜“™™˜Œ‚œThis software is made available AS IS, and Xerox Corporation makes no warranty about the software, its performance or its conformity to any specification.˜“™™˜Œ ˜“™™˜Œ{Any person obtaining a copy of this software is requested to send their name and post office or electronic mail address to:˜“™™˜Œ CommonLoops Coordinator˜“™™˜Œ' Xerox Artifical Intelligence Systems˜“™™˜Œ 2400 Hanover St.˜“™™˜Œ Palo Alto, CA 94303˜“™™˜Œ?(or send Arpanet mail to CommonLoops-Coordinator.pa@Xerox.arpa)˜“™™˜Œ˜“™™˜ŒF Suggestions, comments and requests for improvements are also welcome.˜“™™˜ŒJ *************************************************************************˜“™™˜Œ˜“˜•ŒDECLARE:˜•ŒDONTCOPY˜“˜•ŒPROP˜•ŒMAKEFILE-ENVIRONMENT™˜“™˜•Œ;˜ŒWe're off to hack the system...˜“™:˜•Œ EVAL@COMPILE™;˜“˜•ŒFILES˜’ŒABC˜‘˜ŒCLOS˜“™˜•Œ;;˜Œ&The Deltas and The East and The Freeze˜“ ˜•Œ FUNCTIONS˜’Œ STACK-EQL˜‘˜ŒXEROX-COMMON-LISP˜’ŒSTACK-POINTER-FRAME™O˜’ŒSTACK-FRAME-VALID-P™O˜’ŒSTACK-FRAME-FN-HEADER™O˜’ŒSTACK-FRAME-PC™O˜’ŒFNHEADER-DEBUGGING-INFO™O˜’ŒSTACK-FRAME-NAME™O˜’ŒCOMPILED-CLOSURE-FNHEADER™O˜’ŒCOMPILED-CLOSURE-ENV™O ˜“˜”˜Œ28-Aug-87 18:42:36•Œ"{PHYLUM}CLOS-ENV-INTERNAL.;1œ™P˜–@A—@ÈAÈ:hh™P™˜“˜“˜ŒX˜ŒY˜–ggo ˜ŒDEFUN STACK-EQL™˜“€˜•ŒSET-DOCUMENTATION˜ŒFUNCTION™P ˜Œ$Test two stack pointers for equalityœ™Q˜–@È™Q™˜“˜“˜Œ STACK-POINTERœ™R˜– @jð‘hi™R™˜“˜“˜ŒFRAMEœ™S˜–k@ÑÉ™S™˜“˜“˜ŒFRAMEœ™T˜–k@ÑÈ™T™˜“˜“˜ŒFRAMEœ™U˜–,@ȸ@ȹjIÿ’lƒIlÖ¹lIÔºHlJÖÕlÿ•@JÐÉh™U™˜“˜“˜ŒFNHEADERœ™V˜–jk@ÑÊ`ð•k@ÑÉ„k@ÑÉÉ™V™˜“˜“˜ŒFRAMEœ™W˜– @É™W™˜“˜“˜ŒCLOSURE˜•ŒCOMPILED-CLOSUREœ™X˜– @É™X™˜“˜“˜ŒCLOSURE™‚…˜– o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™˜•Œ COPYRIGHT˜“˜ŒXerox Corporation‚Ú‚“ÿÿ