Interlisp.medley/internal/test/LANGUAGE/AUTO/7-2-DEFSETF.TEST

;; Functions To Be Tested: defsetf
;;
;; Source:        Steele's book    Section 8.2: Macro definition        
;;			  			    Page: 102 - 105
;;
;; Created By:    Henry Cate III
;;
;; Còeation Date: December 2, 1986
;;
;; Last Update:   
;;
;; Filed As:      {eris}<lispcore>cml>test>8-1-defsetf.test
;;
;;
;; Syntax:                (defsetf access-fn {update-fn [doc-string] |
;;						lambda-list (store-variable) 
;;						{declaration | doc-string}* {form}*)
;;
;; Function Description:  defines how to setf a g



































































































































































‘XCL Compiler output for source file {CORE}HACK.;1
Source file created Tuesday, 19 April 1988, 16:44:35.
FASL file created Tuesday, 19 April 1988, 16:58:55.
ÿ<EFBFBD>–
oc¿o	˜’Œ*TEST-FILE-NAME*˜‘˜ŒXCL-USER˜Œ2 top-level forms
˜<>ŒFUNÃUION˜“
€
˜<>Œ
IN-PACKAGE˜ŒXCL-TEST
˜Œ7-1-2-FMAKUNBOUND<00>–‚
ªoºh»J
¹n¿¼JW
go
¿go
¿go
¿go
¿go
¿o¾h_¿N‘N€Ž
_¿OŽ	¿N¾°îoo
»g‚
h¹_¿Ogð—G<E28094>O®ï«ªß§Üù¯é¯W­ªªß{ÚHßUUÕüUU½ªª¾ªª´ýDUUUŦE¨Õ°Uµ^è¯CÓ
go
¿g	gð»g‚
h¹_¿Ogð‘K<E28098>OÑh‡OJ

‘°Woo¿ic¿oºh»J
¹n
°¼JW
	go
¿g²$l	lÿ²g	¿išg	‘h€i€h€h€h»g‚
h¹_¿Ogð‘K<E28098>OÑh‡OJ

’h°Wog¿ic‘hi	˜•Œ*CONDITION-HANDLER-BINDINGS*™	™	˜’Œ*CATCH-RETURN-PC*˜‘˜ŒSYSTEM
˜’Œ*CATCH-RETURN-TO*™
™	˜<>Œ*ERROR-OUTPUT*˜’Œ*ANY-ERRORS*™
˜Œ3 top-level forms
™˜“
€‚
ž˜<C5BE>ŒFORMAT‚
›˜’ŒCURRENT-FILE-NAME™
‚
‹˜’ŒCONDITION-CASE-ERROR™‚
Z˜<5A>ŒFBOUNDP‚
Q˜<51>Œ