(DEFINE-FILE-INFO §READTABLE "XCL" §PACKAGE "LISP") (il:filecreated "20-Oct-86 17:24:33" ("compiled on " il:{eris}sources>error-runtime.\;8) "19-Oct-86 18:07:50" "COMPILE-FILEd" il:|in| "Xerox Lisp 19-Oct-86 ..." il:|dated| "19-Oct-86 23:28:21") (il:filecreated "20-Oct-86 17:23:29" il:{eris}sources>error-runtime.\;8 34800 il:|changes| il:|to:| (il:vars il:error-runtimecoms) (il:functions il:condition-typep il:condition-subtypep il:condition-type-of) (il:structures error) il:|previous| il:|date:| "17-Oct-86 17:49:26" il:{eris}sources>error-runtime.\;7) (il:rpaqq il:error-runtimecoms ((il:coms (il:* il:|;;;| "Internal functions.") (il:functions il:condition-typep il:condition-subtypep il:condition-type-of il:fake-typep-for-conditions il:fake-subtypep-for-conditions il:fake-type-of-for-conditions) (il:functions il:condition-handler il:condition-reporter il:%print-condition il:%proceed-case-printer il:%proceed-case-default-reporter il:report-condition il:condition-parent) (il:variables il:*condition-handler-bindings* il:*proceed-cases*) (il:functions il:check-type-fail il:ecase-fail il:assert-fail) (il:functions il:make-into-condition il:raise-signal il:default-handle-condition il:default-proceed-reporter il:fix-inheritance-links il:default-proceed-test il:test-proceed-case)) (il:coms (il:* il:|;;;| "Pre-defined condition types.") (il:structures il:condition il:simple-condition il:warning il:simple-warning il:old-break1 il:serious-condition error il:simple-error il:old-interlisp-error il:assertion-failed il:cell-error il:unbound-variable il:undefined-function il:no-proceed-test il:index-bounds-error) (il:coms (il:functions il:pretty-type-name) (il:structures il:type-mismatch)) ( il:structures il:control-error il:illegal-go il:illegal-return il:illegal-throw il:bad-proceed-case) ( il:structures il:call-error il:too-many-arguments il:too-few-arguments il:invalid-argument-list) ( il:structures il:stream-error il:read-error il:end-of-file) (il:structures il:storage-condition il:stack-overflow il:storage-exhausted)) (il:coms (il:* il:|;;;| "Exported symbols. Anything here that's not in CL should be in XCL.") (il:variables *break-on-warnings*) (il:functions il:make-condition il:signal error cerror warn break il:debug) ( il:structures il:proceed-case il:real-proceed-case) (il:functions il:find-proceed-case il:compute-proceed-cases il:invoke-proceed-case) (il:functions il:abort il:proceed il:use-value il:store-value)) (il:coms (il:functions il:simple-format) (il:p (il:movd? (quote il:simple-format) ( quote format)))) (il:declare\: il:dontcopy (il:vars il:should-be-in-package)) (il:prop il:filetype il:error-runtime))) il:|expand-CONDITION-TYPEP| il:d1 (il:l (1 il:$$macro-environment 0 il:$$macro-form)) @!H¹HºgIJhnil (14 il:fake-typep-for-conditions) () (il:setf-macro-function (quote il:condition-typep) (quote il:|expand-CONDITION-TYPEP|)) il:|expand-CONDITION-SUBTYPEP| il:d1 (il:l (1 il:$$macro-environment 0 il:$$macro-form)) @!H¹HºgIJhnil (14 il:fake-subtypep-for-conditions) () (il:setf-macro-function (quote il:condition-subtypep) (quote il:|expand-CONDITION-SUBTYPEP|)) il:|expand-CONDITION-TYPE-OF| il:d1 (il:l (1 il:$$macro-environment 0 il:$$macro-form)) @gHhnil (8 il:fake-type-of-for-conditions) () (il:setf-macro-function (quote il:condition-type-of) (quote il:|expand-CONDITION-TYPE-OF|)) il:fake-typep-for-conditions il:d1 (il:l (1 type 0 il:datum)) @´@lð´@A (17 il:fake-subtypep-for-conditions) nil () il:fake-subtypep-for-conditions il:d1 (il:l (1 il:t2 0 il:t1)) #@‘h€i³@dAð’®iŠg b°êh´ii (32 values 20 il:getprop) (17 il:%condition-parent) () il:fake-type-of-for-conditions il:d1 (il:l (0 il:datum)) @nil nil () il:|expand-CONDITION-HANDLER| il:d1 (il:l (1 il:$$macro-environment 0 il:$$macro-form)) @gHonil (8 il:getprop) ( 13 ((quote il:%condition-handler))) (il:setf-macro-function (quote il:condition-handler) (quote il:|expand-CONDITION-HANDLER|)) il:|expand-CONDITION-REPORTER| il:d1 (il:l (1 il:$$macro-environment 0 il:$$macro-form)) @gHonil (8 il:getprop) ( 13 ((quote il:%condition-reporter))) (il:setf-macro-function (quote il:condition-reporter) (quote il:|expand-CONDITION-REPORTER|)) il:%print-condition il:d1 (il:l (2 il:level 1 stream 0 il:condition) il:f 0 *print-escape*) P²Ao@ @Ò@Ó @A (25 il:report-condition 19 format 11 type-of) nil ( 7 "#") il:%proceed-case-printer il:d1 (il:l (2 il:level 1 stream 0 il:pc) il:f 0 *print-escape*) P–@AB @Al@ (16 il:proceed-case-report 7 il:default-structure-printer) nil () il:%proceed-case-default-reporter il:d1 (il:l (1 stream 0 il:pc)) @Al@ ÁÉgg (20 getf 7 il:proceed-case-name) (17 il:default-proceed-reporter 14 il:%default-proceed-report) () il:report-condition il:d1 (il:l (1 stream 0 il:condition)) @@ !Hg ¹H¨o@ I²A–@AlIº@JlIJ Hg X°Ë(59 il:getprop 51 get-output-stream-string 40 make-string-output-stream 24 break 13 il:getprop 3 il:fake-type-of-for-conditions) (56 il:%condition-parent 10 il:%condition-reporter) ( 20 "No report function found for ~S.") il:|expand-CONDITION-PARENT| il:d1 (il:l (1 il:$$macro-environment 0 il:$$macro-form)) @gHonil (8 il:getprop) ( 13 ((quote il:%condition-parent))) (il:setf-macro-function (quote il:condition-parent) (quote il:|expand-CONDITION-PARENT|)) (proclaim (quote (special il:*condition-handler-bindings*))) (or (boundp (quote il:*condition-handler-bindings*)) (il:setq il:*condition-handler-bindings* nil)) (let* ((il:a0794 (quote il:*condition-handler-bindings*)) (il:a0795 (quote il:variable)) (il:a0796 "Condition handler binding stack")) (progn (cond ((fboundp (quote il:set-documentation)) ( il:set-documentation il:a0794 il:a0795 il:a0796))) il:a0796)) (proclaim (quote (special il:*proceed-cases*))) (or (boundp (quote il:*proceed-cases*)) (il:setq il:*proceed-cases* nil)) (let* ((il:a0797 (quote il:*proceed-cases*)) (il:a0798 (quote il:variable)) (il:a0799 "Active proceed case stack")) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0797 il:a0798 il:a0799))) il:a0799)) il:check-type-faila0001a0002 il:d1 (il:l (0 il:condition) il:f 0 il:proceedable) P´ @g (9 il:fake-typep-for-conditions) (6 il:type-mismatch) () il:check-type-faila0001a0003 il:d1 (il:l (0 il:proceed-case) il:i 1 *standard-output* il:f 0 il:place) ioP (8 format) nil ( 4 "Change the value of ~A") il:check-type-faila0001 il:d1 (il:p 0 il:*proceed-cases* il:f 1 il:proceed-case1143 il:f 2 il:*proceed-cases* il:f 3 il:place il:f 4 il:message il:f 5 il:value il:f 6 il:desired-type) DggggQgjgggg RggSgUgVgT (63 il:\\mvlist 60 error 32 il:make-proceed-case) (55 :message 51 :desired-type 47 :value 43 :name 40 il:type-mismatch 28 il:check-type-faila0001a0003 25 :report 22 il:check-type-faila0001a0002 19 :test 15 :selector 11 :tag 8 il:store-value 5 :name 2 :normal) () il:check-type-faila0004 il:d1 (il:l (1 il:new 0 ignore)) Anil nil () il:check-type-fail il:d1 (il:p 0 il:proceed-case1143 il:i 4 il:message il:i 3 il:desired-type il:i 2 il:value il:i 1 il:place il:i 0 il:proceedable) FhhHg AIºI»Jgð”K gj½¼K°dýMkØ]nñ–hl4 ¿µìML(61 il:\\lisperror 32 values-list 12 il:\\catch-funcall) (36 il:check-type-faila0004 26 :normal 9 il:check-type-faila0001) () il:ecase-faila0001a0002 il:d1 (il:l (0 il:condition) il:f 0 il:proceedable) Pnil nil () il:ecase-faila0001a0003 il:d1 (il:l (0 il:proceed-case) il:i 1 *standard-output* il:f 0 il:place) ioP (8 format) nil ( 4 "Change the value of ~A") il:ecase-faila0001 il:d1 (il:p 0 il:*proceed-cases* il:f 1 il:proceed-case1147 il:f 2 il:*proceed-cases* il:f 3 il:selectors il:f 4 il:place il:f 5 il:value) <ggggQgjgggg RoTUoS  (55 il:\\mvlist 52 error 32 il:make-proceed-case) (28 il:ecase-faila0001a0003 25 :report 22 il:ecase-faila0001a0002 19 :test 15 :selector 11 :tag 8 il:store-value 5 :name 2 :normal) ( 47 "~#[wrong~;not ~S~;neither ~S nor ~S~:;not~@{~#[~; or~] ~S~^,~}~]" 41 "The value of ~S, ~S,~&is ~?.") il:ecase-faila0004 il:d1 (il:l (1 il:v 0 ignore)) Anil nil () il:ecase-fail il:d1 (il:p 0 il:proceed-case1147 il:i 3 il:selectors il:i 2 il:value il:i 1 il:place il:i 0 il:proceedable) FhhHg AIºI»Jgð”K gj½¼K°dýMkØ]nñ–hl4 ¿µìML(61 il:\\lisperror 32 values-list 12 il:\\catch-funcall) (36 il:ecase-faila0004 26 :normal 9 il:ecase-faila0001) () il:assert-faila0001a0002 il:d1 (il:l (1 stream 0 il:datum)) oA (7 write-string) nil ( 3 "Re-test assertion") il:assert-faila0001 il:d1 (il:p 0 il:*proceed-cases* il:f 1 il:proceed-case1151 il:f 2 il:*proceed-cases* il:f 3 string il:f 4 il:args) :ggggQgjghgg RggSgT  (53 il:\\mvlist 50 error 30 il:make-proceed-case) (45 :format-arguments 41 :format-string 38 il:assertion-failed 26 il:assert-faila0001a0002 23 :report 19 :test 15 :selector 11 :tag 8 il:proceed 5 :name 2 :normal) () il:assert-faila0003 il:d1 nil hnil nil () il:assert-fail il:d1 (il:l (0 il:|-args-|) il:p 13 il:proceed-case1151 il:p 2 il:args il:p 1 string) ‡ekaaHl2 OdOó²(¿Oºhh Og [¼K½Lgð²(M a_¿OµOh__¿OkÔ_°½O&_¿°ògj_¿¾M°dýOkØ_nñ–hl4 ¿µêON(125 il:\\lisperror 59 values-list 41 il:\\catch-funcall) (96 il:assert-faila0003 52 :normal 38 il:assert-faila0001) () il:make-into-condition il:d1 (il:l (2 il:args 1 il:desired-type 0 il:datum)) l@dg ‘@!Hdò9¿@g ²&gkº¹@B°dýJkØZnñ–hl4 ¿µìJIo@  ´Ag@gB gHo (105 il:check-type-fail 93 il:make-condition 78 stringp 74 error 59 il:\\lisperror 28 il:fake-subtypep-for-conditions 7 il:fake-typep-for-conditions) (97 il:datum 88 :format-arguments 84 :format-string 33 il:make-condition 25 il:condition 18 il:litatom 4 il:condition) ( 102 (or symbol string) 70 "~S is not a condition type.") il:raise-signal il:d1 (il:l (0 il:c) il:p 4 il:*condition-handler-bindings* il:p 0 il:*condition-handler-bindings* il:f 5 il:*condition-handler-bindings*) *U1Hµ@ @[ºK¹@J ™H@kIHX°Þ(24 il:fake-typep-for-conditions 10 il:default-handle-condition) nil () il:default-handle-condition il:d1 (il:l (0 il:condition)) #@ Hd g Y”@kI¿Hg X°è(30 il:getprop 16 il:getprop 3 il:fake-type-of-for-conditions) (27 il:%condition-parent 13 il:%condition-handler) () il:default-proceed-reporter il:d1 (il:l (1 stream 0 il:pc)) Ao@ (11 format 8 il:proceed-case-name) nil ( 4 "Proceed-type: ~A") il:fix-inheritance-links il:d1 (il:l (1 il:new-parent 0 il:name)) W@g qAdHð¤¿Hµ)A½@Mg ¼MgL ¿@¾A_¿NgO ÁÉg'»Hº@K ¹JgI ¿°¿(82 il:putprop 73 il:dremove 56 il:putprop 40 il:putprop 31 adjoin 28 il:getprop 6 il:getprop) (78 il:%condition-children 64 il:%condition-children 51 il:%condition-parent 36 il:%condition-children 25 il:%condition-children 3 il:%condition-parent) () il:|expand-DEFAULT-PROCEED-TEST| il:d1 (il:l (1 il:$$macro-environment 0 il:$$macro-form)) @gHonil (8 il:getprop) ( 13 ((quote il:%default-proceed-test))) (il:setf-macro-function (quote il:default-proceed-test) (quote il:|expand-DEFAULT-PROCEED-TEST|)) il:test-proceed-casea0001a0002 il:d1 (il:l (1 stream 0 il:datum)) oA (7 write-string) nil ( 3 "Assume proceed case is enabled") il:test-proceed-casea0001 il:d1 (il:p 0 il:*proceed-cases* il:f 1 il:proceed-case1172 il:f 2 il:*proceed-cases* il:f 3 il:pc) 5ggggQgjgggg RoS (48 il:\\mvlist 45 error 32 il:make-proceed-case) (28 il:test-proceed-casea0001a0002 25 :report 22 il:true 19 :test 15 :selector 11 :tag 8 il:proceed 5 :name 2 :normal) ( 41 "Couldn't find test function for ~S.") il:test-proceed-casea0003 il:d1 nil inil nil () il:test-proceed-case il:d1 (il:l (1 il:condition) il:p 6 il:proceed-case1172 il:i 0 il:pc) m`@ X³@ ´@ g µ @ X´AkHhNg YºI»Jgð”K gj½¼K°dýMkØ]nñ–hl4 ¿µìML(100 il:\\lisperror 71 values-list 54 il:\\catch-funcall 34 il:no-proceed-test 31 il:proceed-case-name 25 il:getprop 19 il:proceed-case-name 13 il:proceed-case-name 6 il:proceed-case-test) (75 il:test-proceed-casea0003 65 :normal 51 il:test-proceed-casea0001 22 il:%default-proceed-test) () condition---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:condition) (il:function il:\\defprint.defstruct.default)) il:%make-condition il:d1 (il:l (0 il:|-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°Ýnil (31 :--dummy-slot-- 22 il:condition) () (il:putprop (quote il:condition) (quote il:structure-constructor) (quote il:%make-condition)) (il:putprop (quote il:condition) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:condition) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t)))) (il:putprop (quote il:condition) (quote il:%local-slot-names) (quote (il:--dummy-slot--))) (let* ((il:a0818 (quote il:condition)) (il:a0817 (quote il:%condition-handler)) (il:a0816 nil)) ( il:putprop il:a0818 il:a0817 il:a0816)) il:|CONDITION report method| il:d1 (il:i 1 stream il:i 0 il:datum) oA (7 write-string) nil ( 3 "Condition ~S occurred.") (let* ((il:a0821 (quote il:condition)) (il:a0820 (quote il:%condition-reporter)) (il:a0819 (il:function il:|CONDITION report method|))) (il:putprop il:a0821 il:a0820 il:a0819)) simple-condition-format-arguments il:d1 (il:l (0 il:object)) @nil nil () simple-condition-format-string il:d1 (il:l (0 il:object)) @nil nil () simple-condition---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:simple-condition) (il:function il:\\defprint.defstruct.default)) il:%make-simple-condition il:d1 (il:l (0 il:|-args-|)) xeHkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿gILOhagð•JkØa°ÉJlÔZ°»agð•KkØa°ÆKlÔ[°¸agð•NkØa°ÀNlÔ^°²nil (103 :format-arguments 84 :format-string 65 :--dummy-slot-- 51 il:simple-condition) () (let* ((il:a0822 (quote il:simple-condition)) (il:a0823 (quote (il:condition)))) (il:put il:a0822 ( quote il:%%included-structure) il:a0823)) (il:putprop (quote il:simple-condition) (quote il:structure-constructor) (quote il:%make-simple-condition)) (il:putprop (quote il:simple-condition) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:simple-condition) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:format-string nil :read-only t) (il:format-arguments nil :read-only t)))) (il:putprop (quote il:simple-condition) (quote il:%local-slot-names) (quote (il:format-arguments il:format-string))) (il:fix-inheritance-links (quote il:simple-condition) (quote il:condition)) (let* ((il:a0826 (quote il:simple-condition)) (il:a0825 (quote il:%condition-handler)) (il:a0824 nil)) (il:putprop il:a0826 il:a0825 il:a0824)) il:|SIMPLE-CONDITION report method| il:d1 (il:p 3 il:cnt il:p 2 il:fn il:p 1 il:format-arguments il:p 0 il:format-string il:i 1 *standard-output* il:i 0 il:condition) 2@ @ "gl»ºiHI°dýKkØ[nñ–hl4 ¿µìKJ(41 il:\\lisperror 7 il:simple-condition-format-arguments 3 il:simple-condition-format-string) (13 format) () (let* ((il:a0829 (quote il:simple-condition)) (il:a0828 (quote il:%condition-reporter)) (il:a0827 ( il:function il:|SIMPLE-CONDITION report method|))) (il:putprop il:a0829 il:a0828 il:a0827)) warning---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:warning) (il:function il:\\defprint.defstruct.default)) il:%make-warning il:d1 (il:l (0 il:|-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°Ýnil (31 :--dummy-slot-- 22 il:warning) () (let* ((il:a0830 (quote il:warning)) (il:a0831 (quote (il:condition)))) (il:put il:a0830 (quote il:%%included-structure) il:a0831)) (il:putprop (quote il:warning) (quote il:structure-constructor) (quote il:%make-warning)) (il:putprop (quote il:warning) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:warning) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t)))) (il:putprop (quote il:warning) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote il:warning) (quote il:condition)) (let* ((il:a0834 (quote il:warning)) (il:a0833 (quote il:%condition-handler)) (il:a0832 nil)) ( il:putprop il:a0834 il:a0833 il:a0832)) (let* ((il:a0837 (quote il:warning)) (il:a0836 (quote il:%condition-reporter)) (il:a0835 nil)) ( il:putprop il:a0837 il:a0836 il:a0835)) simple-warning-format-arguments il:d1 (il:l (0 il:object)) @nil nil () simple-warning-format-string il:d1 (il:l (0 il:object)) @nil nil () simple-warning---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:simple-warning) (il:function il:\\defprint.defstruct.default)) il:%make-simple-warning il:d1 (il:l (0 il:|-args-|)) xeHkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿gILOhagð•JkØa°ÉJlÔZ°»agð•KkØa°ÆKlÔ[°¸agð•NkØa°ÀNlÔ^°²nil (103 :format-arguments 84 :format-string 65 :--dummy-slot-- 51 il:simple-warning) () (let* ((il:a0838 (quote il:simple-warning)) (il:a0839 (quote (il:warning)))) (il:put il:a0838 (quote il:%%included-structure) il:a0839)) (il:putprop (quote il:simple-warning) (quote il:structure-constructor) (quote il:%make-simple-warning) ) (il:putprop (quote il:simple-warning) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:simple-warning) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:format-string nil :read-only t) (il:format-arguments nil :read-only t)))) (il:putprop (quote il:simple-warning) (quote il:%local-slot-names) (quote (il:format-arguments il:format-string))) (il:fix-inheritance-links (quote il:simple-warning) (quote il:warning)) (let* ((il:a0842 (quote il:simple-warning)) (il:a0841 (quote il:%condition-handler)) (il:a0840 nil)) ( il:putprop il:a0842 il:a0841 il:a0840)) il:|SIMPLE-WARNING report method| il:d1 (il:p 3 il:cnt il:p 2 il:fn il:p 1 il:format-arguments il:p 0 il:format-string il:i 1 *standard-output* il:i 0 il:condition) 2@ @ "gl»ºiHI°dýKkØ[nñ–hl4 ¿µìKJ(41 il:\\lisperror 7 il:simple-warning-format-arguments 3 il:simple-warning-format-string) (13 format) () (let* ((il:a0845 (quote il:simple-warning)) (il:a0844 (quote il:%condition-reporter)) (il:a0843 ( il:function il:|SIMPLE-WARNING report method|))) (il:putprop il:a0845 il:a0844 il:a0843)) old-break1-list il:d1 (il:l (0 il:object)) @nil nil () old-break1---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:old-break1) (il:function il:\\defprint.defstruct.default)) il:%make-old-break1 il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :list 47 :--dummy-slot-- 36 il:old-break1) () (let* ((il:a0846 (quote il:old-break1)) (il:a0847 (quote (il:condition)))) (il:put il:a0846 (quote il:%%included-structure) il:a0847)) (il:putprop (quote il:old-break1) (quote il:structure-constructor) (quote il:%make-old-break1)) (il:putprop (quote il:old-break1) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:old-break1) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (list nil :read-only t)))) (il:putprop (quote il:old-break1) (quote il:%local-slot-names) (quote (list))) (il:fix-inheritance-links (quote il:old-break1) (quote il:condition)) (let* ((il:a0850 (quote il:old-break1)) (il:a0849 (quote il:%condition-handler)) (il:a0848 nil)) ( il:putprop il:a0850 il:a0849 il:a0848)) il:|OLD-BREAK1 report method| il:d1 (il:p 5 il:mess3 il:p 4 il:mess2 il:p 3 il:a1175 il:p 2 il:mess1 il:p 1 il:a1174 il:p 0 list il:i 1 *standard-output* il:i 0 il:condition) @ QHYºI[¼K½JLM (25 il:errormess1 3 il:old-break1-list) nil () (let* ((il:a0853 (quote il:old-break1)) (il:a0852 (quote il:%condition-reporter)) (il:a0851 (il:function il:|OLD-BREAK1 report method|))) (il:putprop il:a0853 il:a0852 il:a0851)) serious-condition---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:serious-condition) (il:function il:\\defprint.defstruct.default)) il:%make-serious-condition il:d1 (il:l (0 il:|-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°Ýnil (31 :--dummy-slot-- 22 il:serious-condition) () (let* ((il:a0854 (quote il:serious-condition)) (il:a0855 (quote (il:condition)))) (il:put il:a0854 ( quote il:%%included-structure) il:a0855)) (il:putprop (quote il:serious-condition) (quote il:structure-constructor) (quote il:%make-serious-condition)) (il:putprop (quote il:serious-condition) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:serious-condition) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t)))) (il:putprop (quote il:serious-condition) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote il:serious-condition) (quote il:condition)) (let* ((il:a0858 (quote il:serious-condition)) (il:a0857 (quote il:%condition-handler)) (il:a0856 nil) ) (il:putprop il:a0858 il:a0857 il:a0856)) il:|SERIOUS-CONDITION report method| il:d1 (il:i 1 *standard-output* il:i 0 il:condition) io@ (11 format 8 il:fake-type-of-for-conditions) nil ( 4 "Serious condition ~S occurred.") (let* ((il:a0861 (quote il:serious-condition)) (il:a0860 (quote il:%condition-reporter)) (il:a0859 ( il:function il:|SERIOUS-CONDITION report method|))) (il:putprop il:a0861 il:a0860 il:a0859)) error---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote error) (il:function il:\\defprint.defstruct.default)) %make-error il:d1 (il:l (0 il:|-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°Ýnil (31 :--dummy-slot-- 22 error) () (let* ((il:a0862 (quote error)) (il:a0863 (quote (il:serious-condition)))) (il:put il:a0862 (quote il:%%included-structure) il:a0863)) (il:putprop (quote error) (quote il:structure-constructor) (quote %make-error)) (il:putprop (quote error) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote error) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t))) ) (il:putprop (quote error) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote error) (quote il:serious-condition)) (let* ((il:a0866 (quote error)) (il:a0865 (quote il:%condition-handler)) (il:a0864 nil)) (il:putprop il:a0866 il:a0865 il:a0864)) (let* ((il:a0869 (quote error)) (il:a0868 (quote il:%condition-reporter)) (il:a0867 nil)) (il:putprop il:a0869 il:a0868 il:a0867)) simple-error-format-arguments il:d1 (il:l (0 il:object)) @nil nil () simple-error-format-string il:d1 (il:l (0 il:object)) @nil nil () simple-error---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:simple-error) (il:function il:\\defprint.defstruct.default)) il:%make-simple-error il:d1 (il:l (0 il:|-args-|)) xeHkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿gILOhagð•JkØa°ÉJlÔZ°»agð•KkØa°ÆKlÔ[°¸agð•NkØa°ÀNlÔ^°²nil (103 :format-arguments 84 :format-string 65 :--dummy-slot-- 51 il:simple-error) () (let* ((il:a0870 (quote il:simple-error)) (il:a0871 (quote (il:error)))) (il:put il:a0870 (quote il:%%included-structure) il:a0871)) (il:putprop (quote il:simple-error) (quote il:structure-constructor) (quote il:%make-simple-error)) (il:putprop (quote il:simple-error) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:simple-error) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:format-string nil :read-only t) (il:format-arguments nil :read-only t)))) (il:putprop (quote il:simple-error) (quote il:%local-slot-names) (quote (il:format-arguments il:format-string))) (il:fix-inheritance-links (quote il:simple-error) (quote il:error)) (let* ((il:a0874 (quote il:simple-error)) (il:a0873 (quote il:%condition-handler)) (il:a0872 nil)) ( il:putprop il:a0874 il:a0873 il:a0872)) il:|SIMPLE-ERROR report method| il:d1 (il:p 3 il:cnt il:p 2 il:fn il:p 1 il:format-arguments il:p 0 il:format-string il:i 1 *standard-output* il:i 0 il:condition) 2@ @ "gl»ºiHI°dýKkØ[nñ–hl4 ¿µìKJ(41 il:\\lisperror 7 il:simple-error-format-arguments 3 il:simple-error-format-string) (13 format) () (let* ((il:a0877 (quote il:simple-error)) (il:a0876 (quote il:%condition-reporter)) (il:a0875 ( il:function il:|SIMPLE-ERROR report method|))) (il:putprop il:a0877 il:a0876 il:a0875)) old-interlisp-error-message il:d1 (il:l (0 il:object)) @nil nil () old-interlisp-error-number il:d1 (il:l (0 il:object)) @nil nil () old-interlisp-error---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:old-interlisp-error) (il:function il:\\defprint.defstruct.default)) il:%make-old-interlisp-error il:d1 (il:l (0 il:|-args-|)) xeHkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿gILOhagð•JkØa°ÉJlÔZ°»agð•KkØa°ÆKlÔ[°¸agð•NkØa°ÀNlÔ^°²nil (103 :message 84 :number 65 :--dummy-slot-- 51 il:old-interlisp-error) () (let* ((il:a0878 (quote il:old-interlisp-error)) (il:a0879 (quote (il:error)))) (il:put il:a0878 ( quote il:%%included-structure) il:a0879)) (il:putprop (quote il:old-interlisp-error) (quote il:structure-constructor) (quote il:%make-old-interlisp-error)) (il:putprop (quote il:old-interlisp-error) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:old-interlisp-error) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:number nil :read-only t) (il:message nil :read-only t)))) (il:putprop (quote il:old-interlisp-error) (quote il:%local-slot-names) (quote (il:message il:number)) ) (il:fix-inheritance-links (quote il:old-interlisp-error) (quote il:error)) (let* ((il:a0882 (quote il:old-interlisp-error)) (il:a0881 (quote il:%condition-handler)) (il:a0880 nil)) (il:putprop il:a0882 il:a0881 il:a0880)) il:|OLD-INTERLISP-ERROR report method| il:d1 (il:p 4 il:mess2 il:p 3 il:mess1 il:p 2 il:a1176 il:p 1 il:message il:p 0 il:number il:i 1 *standard-output* il:i 0 il:condition) /@ @ Hdlð²¿I!J»J¼KLg Ih (44 il:errorm 36 il:errormess1 7 il:old-interlisp-error-message 3 il:old-interlisp-error-number) (33 il:error) () (let* ((il:a0885 (quote il:old-interlisp-error)) (il:a0884 (quote il:%condition-reporter)) (il:a0883 ( il:function il:|OLD-INTERLISP-ERROR report method|))) (il:putprop il:a0885 il:a0884 il:a0883)) assertion-failed-format-arguments il:d1 (il:l (0 il:object)) @nil nil () assertion-failed-format-string il:d1 (il:l (0 il:object)) @nil nil () assertion-failed---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:assertion-failed) (il:function il:\\defprint.defstruct.default)) il:%make-assertion-failed il:d1 (il:l (0 il:|-args-|)) xeHkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿gILOhagð•JkØa°ÉJlÔZ°»agð•KkØa°ÆKlÔ[°¸agð•NkØa°ÀNlÔ^°²nil (103 :format-arguments 84 :format-string 65 :--dummy-slot-- 51 il:assertion-failed) () (let* ((il:a0886 (quote il:assertion-failed)) (il:a0887 (quote (il:simple-error)))) (il:put il:a0886 ( quote il:%%included-structure) il:a0887)) (il:putprop (quote il:assertion-failed) (quote il:structure-constructor) (quote il:%make-assertion-failed)) (il:putprop (quote il:assertion-failed) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:assertion-failed) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:format-string nil :read-only t) (il:format-arguments nil :read-only t)))) (il:putprop (quote il:assertion-failed) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote il:assertion-failed) (quote il:simple-error)) (let* ((il:a0890 (quote il:assertion-failed)) (il:a0889 (quote il:%condition-handler)) (il:a0888 nil)) (il:putprop il:a0890 il:a0889 il:a0888)) il:|ASSERTION-FAILED report method| il:d1 (il:p 3 il:cnt il:p 2 il:fn il:p 1 il:format-arguments il:p 0 il:format-string il:i 1 *standard-output* il:i 0 il:condition) 8@ @ "gl»ºiHµoI°dýKkØ[nñ–hl4 ¿µìKJ(47 il:\\lisperror 7 il:assertion-failed-format-arguments 3 il:assertion-failed-format-string) (13 format) ( 25 "Assertion failed.") (let* ((il:a0893 (quote il:assertion-failed)) (il:a0892 (quote il:%condition-reporter)) (il:a0891 ( il:function il:|ASSERTION-FAILED report method|))) (il:putprop il:a0893 il:a0892 il:a0891)) cell-error-name il:d1 (il:l (0 il:object)) @nil nil () cell-error---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:cell-error) (il:function il:\\defprint.defstruct.default)) il:%make-cell-error il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :name 47 :--dummy-slot-- 36 il:cell-error) () (let* ((il:a0894 (quote il:cell-error)) (il:a0895 (quote (il:error)))) (il:put il:a0894 (quote il:%%included-structure) il:a0895)) (il:putprop (quote il:cell-error) (quote il:structure-constructor) (quote il:%make-cell-error)) (il:putprop (quote il:cell-error) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:cell-error) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:name nil :read-only t)))) (il:putprop (quote il:cell-error) (quote il:%local-slot-names) (quote (il:name))) (il:fix-inheritance-links (quote il:cell-error) (quote il:error)) (let* ((il:a0898 (quote il:cell-error)) (il:a0897 (quote il:%condition-handler)) (il:a0896 nil)) ( il:putprop il:a0898 il:a0897 il:a0896)) (let* ((il:a0901 (quote il:cell-error)) (il:a0900 (quote il:%condition-reporter)) (il:a0899 nil)) ( il:putprop il:a0901 il:a0900 il:a0899)) unbound-variable-name il:d1 (il:l (0 il:object)) @nil nil () unbound-variable---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:unbound-variable) (il:function il:\\defprint.defstruct.default)) il:%make-unbound-variable il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :name 47 :--dummy-slot-- 36 il:unbound-variable) () (let* ((il:a0902 (quote il:unbound-variable)) (il:a0903 (quote (il:cell-error)))) (il:put il:a0902 ( quote il:%%included-structure) il:a0903)) (il:putprop (quote il:unbound-variable) (quote il:structure-constructor) (quote il:%make-unbound-variable)) (il:putprop (quote il:unbound-variable) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:unbound-variable) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:name nil :read-only t)))) (il:putprop (quote il:unbound-variable) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote il:unbound-variable) (quote il:cell-error)) (let* ((il:a0906 (quote il:unbound-variable)) (il:a0905 (quote il:%condition-handler)) (il:a0904 nil)) (il:putprop il:a0906 il:a0905 il:a0904)) il:|UNBOUND-VARIABLE report method| il:d1 (il:p 0 il:name il:i 1 *standard-output* il:i 0 il:condition) @ ioH (15 format 3 il:unbound-variable-name) nil ( 11 "Unbound variable: ~S.") (let* ((il:a0909 (quote il:unbound-variable)) (il:a0908 (quote il:%condition-reporter)) (il:a0907 ( il:function il:|UNBOUND-VARIABLE report method|))) (il:putprop il:a0909 il:a0908 il:a0907)) undefined-function-name il:d1 (il:l (0 il:object)) @nil nil () undefined-function---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:undefined-function) (il:function il:\\defprint.defstruct.default)) il:%make-undefined-function il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :name 47 :--dummy-slot-- 36 il:undefined-function) () (let* ((il:a0910 (quote il:undefined-function)) (il:a0911 (quote (il:cell-error)))) (il:put il:a0910 ( quote il:%%included-structure) il:a0911)) (il:putprop (quote il:undefined-function) (quote il:structure-constructor) (quote il:%make-undefined-function)) (il:putprop (quote il:undefined-function) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:undefined-function) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:name nil :read-only t)))) (il:putprop (quote il:undefined-function) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote il:undefined-function) (quote il:cell-error)) (let* ((il:a0914 (quote il:undefined-function)) (il:a0913 (quote il:%condition-handler)) (il:a0912 nil )) (il:putprop il:a0914 il:a0913 il:a0912)) il:|UNDEFINED-FUNCTION report method| il:d1 (il:p 0 il:name il:i 1 *standard-output* il:i 0 il:condition) @ ioH (15 format 3 il:undefined-function-name) nil ( 11 "Undefined function: ~S.") (let* ((il:a0917 (quote il:undefined-function)) (il:a0916 (quote il:%condition-reporter)) (il:a0915 ( il:function il:|UNDEFINED-FUNCTION report method|))) (il:putprop il:a0917 il:a0916 il:a0915)) no-proceed-test-name il:d1 (il:l (0 il:object)) @nil nil () no-proceed-test---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:no-proceed-test) (il:function il:\\defprint.defstruct.default)) il:%make-no-proceed-test il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :name 47 :--dummy-slot-- 36 il:no-proceed-test) () (let* ((il:a0918 (quote il:no-proceed-test)) (il:a0919 (quote (il:undefined-function)))) (il:put il:a0918 (quote il:%%included-structure) il:a0919)) (il:putprop (quote il:no-proceed-test) (quote il:structure-constructor) (quote il:%make-no-proceed-test )) (il:putprop (quote il:no-proceed-test) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:no-proceed-test) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:name nil :read-only t)))) (il:putprop (quote il:no-proceed-test) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote il:no-proceed-test) (quote il:undefined-function)) (let* ((il:a0922 (quote il:no-proceed-test)) (il:a0921 (quote il:%condition-handler)) (il:a0920 nil)) (il:putprop il:a0922 il:a0921 il:a0920)) il:|NO-PROCEED-TEST report method| il:d1 (il:p 0 il:name il:i 1 *standard-output* il:i 0 il:condition) @ ioH (15 format 3 il:no-proceed-test-name) nil ( 11 "No test specified for proceed case: ~S.") (let* ((il:a0925 (quote il:no-proceed-test)) (il:a0924 (quote il:%condition-reporter)) (il:a0923 ( il:function il:|NO-PROCEED-TEST report method|))) (il:putprop il:a0925 il:a0924 il:a0923)) index-bounds-error-index il:d1 (il:l (0 il:object)) @nil nil () index-bounds-error-name il:d1 (il:l (0 il:object)) @nil nil () index-bounds-error---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:index-bounds-error) (il:function il:\\defprint.defstruct.default)) il:%make-index-bounds-error il:d1 (il:l (0 il:|-args-|)) xeHkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿gILOhagð•JkØa°ÉJlÔZ°»agð•KkØa°ÆKlÔ[°¸agð•NkØa°ÀNlÔ^°²nil (103 :index 84 :name 65 :--dummy-slot-- 51 il:index-bounds-error) () (let* ((il:a0926 (quote il:index-bounds-error)) (il:a0927 (quote (il:cell-error)))) (il:put il:a0926 ( quote il:%%included-structure) il:a0927)) (il:putprop (quote il:index-bounds-error) (quote il:structure-constructor) (quote il:%make-index-bounds-error)) (il:putprop (quote il:index-bounds-error) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:index-bounds-error) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:name nil :read-only t) (il:index nil :read-only t)))) (il:putprop (quote il:index-bounds-error) (quote il:%local-slot-names) (quote (il:index))) (il:fix-inheritance-links (quote il:index-bounds-error) (quote il:cell-error)) (let* ((il:a0930 (quote il:index-bounds-error)) (il:a0929 (quote il:%condition-handler)) (il:a0928 nil )) (il:putprop il:a0930 il:a0929 il:a0928)) il:|INDEX-BOUNDS-ERROR report method| il:d1 (il:p 1 il:index il:p 0 il:name il:i 1 *standard-output* il:i 0 il:condition) @ @ ioI (19 format 7 il:index-bounds-error-index 3 il:index-bounds-error-name) nil ( 15 "Index out of bounds: ~D.") (let* ((il:a0933 (quote il:index-bounds-error)) (il:a0932 (quote il:%condition-reporter)) (il:a0931 ( il:function il:|INDEX-BOUNDS-ERROR report method|))) (il:putprop il:a0933 il:a0932 il:a0931)) il:pretty-type-name il:d1 (il:l (0 il:typespec)) o@ (7 il:concat) nil ( 3 "a ") type-mismatch-message il:d1 (il:l (0 il:object)) @nil nil () type-mismatch-desired-type il:d1 (il:l (0 il:object)) @nil nil () type-mismatch-value il:d1 (il:l (0 il:object)) @nil nil () type-mismatch-name il:d1 (il:l (0 il:object)) @nil nil () type-mismatch---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:type-mismatch) (il:function il:\\defprint.defstruct.default)) il:%make-type-mismatch il:d1 (il:l (0 il:|-args-|)) ÖeHkJdIó²a¿hÁ Hk»ºKdJó²d¿h¼Hk¾½NdMó²j¿h_¿Hk_¿_¿OdOó²h¿h_¿Hk_¿_¿OdOó²j¿h_¿gILOOOhagð•JkØa°™JlÔZ°‹agð•KkØa°–KlÔ[°ˆagð•NkØa°NlÔ^°‚agð–OkØa°‘OlÔ_±ÿ€agð–OkØa°OlÔ_±ÿ~nil (193 :message 170 :desired-type 151 :value 132 :name 113 :--dummy-slot-- 93 il:type-mismatch) () (let* ((il:a0934 (quote il:type-mismatch)) (il:a0935 (quote (il:cell-error)))) (il:put il:a0934 (quote il:%%included-structure) il:a0935)) (il:putprop (quote il:type-mismatch) (quote il:structure-constructor) (quote il:%make-type-mismatch)) (il:putprop (quote il:type-mismatch) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:type-mismatch) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:name nil :read-only t) (il:value nil :read-only t) (il:desired-type nil :read-only t ) (il:message nil :read-only t)))) (il:putprop (quote il:type-mismatch) (quote il:%local-slot-names) (quote (il:message il:desired-type il:value))) (il:fix-inheritance-links (quote il:type-mismatch) (quote il:cell-error)) (let* ((il:a0938 (quote il:type-mismatch)) (il:a0937 (quote il:%condition-handler)) (il:a0936 nil)) ( il:putprop il:a0938 il:a0937 il:a0936)) il:|TYPE-MISMATCH report method| il:d1 (il:p 3 il:message il:p 2 il:desired-type il:p 1 il:value il:p 0 il:name il:i 1 *standard-output* il:i 0 il:condition) '@ @ @ @ ioHIKµJ (36 format 32 il:pretty-type-name 15 il:type-mismatch-message 11 il:type-mismatch-desired-type 7 il:type-mismatch-value 3 il:type-mismatch-name) nil ( 23 "The value of ~A, ~A, is not ~A.") (let* ((il:a0941 (quote il:type-mismatch)) (il:a0940 (quote il:%condition-reporter)) (il:a0939 ( il:function il:|TYPE-MISMATCH report method|))) (il:putprop il:a0941 il:a0940 il:a0939)) control-error---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:control-error) (il:function il:\\defprint.defstruct.default)) il:%make-control-error il:d1 (il:l (0 il:|-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°Ýnil (31 :--dummy-slot-- 22 il:control-error) () (let* ((il:a0942 (quote il:control-error)) (il:a0943 (quote (il:error)))) (il:put il:a0942 (quote il:%%included-structure) il:a0943)) (il:putprop (quote il:control-error) (quote il:structure-constructor) (quote il:%make-control-error)) (il:putprop (quote il:control-error) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:control-error) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t)))) (il:putprop (quote il:control-error) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote il:control-error) (quote il:error)) (let* ((il:a0946 (quote il:control-error)) (il:a0945 (quote il:%condition-handler)) (il:a0944 nil)) ( il:putprop il:a0946 il:a0945 il:a0944)) (let* ((il:a0949 (quote il:control-error)) (il:a0948 (quote il:%condition-reporter)) (il:a0947 nil)) ( il:putprop il:a0949 il:a0948 il:a0947)) illegal-go-tag il:d1 (il:l (0 il:object)) @nil nil () illegal-go---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:illegal-go) (il:function il:\\defprint.defstruct.default)) il:%make-illegal-go il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :tag 47 :--dummy-slot-- 36 il:illegal-go) () (let* ((il:a0950 (quote il:illegal-go)) (il:a0951 (quote (il:control-error)))) (il:put il:a0950 (quote il:%%included-structure) il:a0951)) (il:putprop (quote il:illegal-go) (quote il:structure-constructor) (quote il:%make-illegal-go)) (il:putprop (quote il:illegal-go) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:illegal-go) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:tag nil :read-only t)))) (il:putprop (quote il:illegal-go) (quote il:%local-slot-names) (quote (il:tag))) (il:fix-inheritance-links (quote il:illegal-go) (quote il:control-error)) (let* ((il:a0954 (quote il:illegal-go)) (il:a0953 (quote il:%condition-handler)) (il:a0952 nil)) ( il:putprop il:a0954 il:a0953 il:a0952)) il:|ILLEGAL-GO report method| il:d1 (il:p 0 il:tag il:i 1 *standard-output* il:i 0 il:condition) @ ioH (15 format 3 il:illegal-go-tag) nil ( 11 "GO to a non-existant tag: ~S.") (let* ((il:a0957 (quote il:illegal-go)) (il:a0956 (quote il:%condition-reporter)) (il:a0955 (il:function il:|ILLEGAL-GO report method|))) (il:putprop il:a0957 il:a0956 il:a0955)) illegal-return-tag il:d1 (il:l (0 il:object)) @nil nil () illegal-return---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:illegal-return) (il:function il:\\defprint.defstruct.default)) il:%make-illegal-return il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :tag 47 :--dummy-slot-- 36 il:illegal-return) () (let* ((il:a0958 (quote il:illegal-return)) (il:a0959 (quote (il:control-error)))) (il:put il:a0958 ( quote il:%%included-structure) il:a0959)) (il:putprop (quote il:illegal-return) (quote il:structure-constructor) (quote il:%make-illegal-return) ) (il:putprop (quote il:illegal-return) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:illegal-return) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:tag nil :read-only t)))) (il:putprop (quote il:illegal-return) (quote il:%local-slot-names) (quote (il:tag))) (il:fix-inheritance-links (quote il:illegal-return) (quote il:control-error)) (let* ((il:a0962 (quote il:illegal-return)) (il:a0961 (quote il:%condition-handler)) (il:a0960 nil)) ( il:putprop il:a0962 il:a0961 il:a0960)) il:|ILLEGAL-RETURN report method| il:d1 (il:p 0 il:tag il:i 1 *standard-output* il:i 0 il:condition) @ ioH (15 format 3 il:illegal-return-tag) nil ( 11 "RETURN to non-existant block: ~S.") (let* ((il:a0965 (quote il:illegal-return)) (il:a0964 (quote il:%condition-reporter)) (il:a0963 ( il:function il:|ILLEGAL-RETURN report method|))) (il:putprop il:a0965 il:a0964 il:a0963)) illegal-throw-tag il:d1 (il:l (0 il:object)) @nil nil () illegal-throw---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:illegal-throw) (il:function il:\\defprint.defstruct.default)) il:%make-illegal-throw il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :tag 47 :--dummy-slot-- 36 il:illegal-throw) () (let* ((il:a0966 (quote il:illegal-throw)) (il:a0967 (quote (il:control-error)))) (il:put il:a0966 ( quote il:%%included-structure) il:a0967)) (il:putprop (quote il:illegal-throw) (quote il:structure-constructor) (quote il:%make-illegal-throw)) (il:putprop (quote il:illegal-throw) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:illegal-throw) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:tag nil :read-only t)))) (il:putprop (quote il:illegal-throw) (quote il:%local-slot-names) (quote (il:tag))) (il:fix-inheritance-links (quote il:illegal-throw) (quote il:control-error)) (let* ((il:a0970 (quote il:illegal-throw)) (il:a0969 (quote il:%condition-handler)) (il:a0968 nil)) ( il:putprop il:a0970 il:a0969 il:a0968)) il:|ILLEGAL-THROW report method| il:d1 (il:p 0 il:tag il:i 1 *standard-output* il:i 0 il:condition) @ ioH (15 format 3 il:illegal-throw-tag) nil ( 11 "Tag for THROW not found: ~S.") (let* ((il:a0973 (quote il:illegal-throw)) (il:a0972 (quote il:%condition-reporter)) (il:a0971 ( il:function il:|ILLEGAL-THROW report method|))) (il:putprop il:a0973 il:a0972 il:a0971)) bad-proceed-case-name il:d1 (il:l (0 il:object)) @nil nil () bad-proceed-case---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:bad-proceed-case) (il:function il:\\defprint.defstruct.default)) il:%make-bad-proceed-case il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :name 47 :--dummy-slot-- 36 il:bad-proceed-case) () (let* ((il:a0974 (quote il:bad-proceed-case)) (il:a0975 (quote (il:control-error)))) (il:put il:a0974 (quote il:%%included-structure) il:a0975)) (il:putprop (quote il:bad-proceed-case) (quote il:structure-constructor) (quote il:%make-bad-proceed-case)) (il:putprop (quote il:bad-proceed-case) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:bad-proceed-case) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:name nil :read-only t)))) (il:putprop (quote il:bad-proceed-case) (quote il:%local-slot-names) (quote (il:name))) (il:fix-inheritance-links (quote il:bad-proceed-case) (quote il:control-error)) (let* ((il:a0978 (quote il:bad-proceed-case)) (il:a0977 (quote il:%condition-handler)) (il:a0976 nil)) (il:putprop il:a0978 il:a0977 il:a0976)) il:|BAD-PROCEED-CASE report method| il:d1 (il:p 0 il:name il:i 1 *standard-output* il:i 0 il:condition) @ ioH (15 format 3 il:bad-proceed-case-name) nil ( 11 "Proceed case ~S is not currently active.") (let* ((il:a0981 (quote il:bad-proceed-case)) (il:a0980 (quote il:%condition-reporter)) (il:a0979 ( il:function il:|BAD-PROCEED-CASE report method|))) (il:putprop il:a0981 il:a0980 il:a0979)) call-error-callee il:d1 (il:l (0 il:object)) @nil nil () call-error---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:call-error) (il:function il:\\defprint.defstruct.default)) il:%make-call-error il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :callee 47 :--dummy-slot-- 36 il:call-error) () (let* ((il:a0982 (quote il:call-error)) (il:a0983 (quote (il:control-error)))) (il:put il:a0982 (quote il:%%included-structure) il:a0983)) (il:putprop (quote il:call-error) (quote il:structure-constructor) (quote il:%make-call-error)) (il:putprop (quote il:call-error) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:call-error) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:callee nil :read-only t)))) (il:putprop (quote il:call-error) (quote il:%local-slot-names) (quote (il:callee))) (il:fix-inheritance-links (quote il:call-error) (quote il:control-error)) (let* ((il:a0986 (quote il:call-error)) (il:a0985 (quote il:%condition-handler)) (il:a0984 nil)) ( il:putprop il:a0986 il:a0985 il:a0984)) (let* ((il:a0989 (quote il:call-error)) (il:a0988 (quote il:%condition-reporter)) (il:a0987 nil)) ( il:putprop il:a0989 il:a0988 il:a0987)) too-many-arguments-actual il:d1 (il:l (0 il:object)) @nil nil () too-many-arguments-maximum il:d1 (il:l (0 il:object)) @nil nil () too-many-arguments-callee il:d1 (il:l (0 il:object)) @nil nil () too-many-arguments---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:too-many-arguments) (il:function il:\\defprint.defstruct.default)) il:%make-too-many-arguments il:d1 (il:l (0 il:|-args-|)) ¦ eHkJdIó²I¿h‘ Hk»ºKdJó²L¿h¼Hk¾½NdMó²R¿h_¿Hk_¿_¿OdOó²P¿h_¿gILOOhagð•JkØa°±JlÔZ°£agð•KkØa°®KlÔ[° agð•NkØa°¨NlÔ^°šagð–OkØa°©OlÔ_°˜nil (146 :actual 127 :maximum 108 :callee 89 :--dummy-slot-- 72 il:too-many-arguments) () (let* ((il:a0990 (quote il:too-many-arguments)) (il:a0991 (quote (il:call-error)))) (il:put il:a0990 ( quote il:%%included-structure) il:a0991)) (il:putprop (quote il:too-many-arguments) (quote il:structure-constructor) (quote il:%make-too-many-arguments)) (il:putprop (quote il:too-many-arguments) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:too-many-arguments) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:callee nil :read-only t) (il:maximum nil :read-only t) (il:actual nil :read-only t) ))) (il:putprop (quote il:too-many-arguments) (quote il:%local-slot-names) (quote (il:actual il:maximum))) (il:fix-inheritance-links (quote il:too-many-arguments) (quote il:call-error)) (let* ((il:a0994 (quote il:too-many-arguments)) (il:a0993 (quote il:%condition-handler)) (il:a0992 nil )) (il:putprop il:a0994 il:a0993 il:a0992)) il:|TOO-MANY-ARGUMENTS report method| il:d1 (il:p 2 il:actual il:p 1 il:maximum il:p 0 il:callee il:i 1 *standard-output* il:i 0 il:condition) +@ @ @ IžJœioHJI ioH (40 format 30 format 11 il:too-many-arguments-actual 7 il:too-many-arguments-maximum 3 il:too-many-arguments-callee) nil ( 36 "Too many arguments to ~A" 23 "Too many arguments to ~A:~% ~D ~:*~[were~;was~:;were~] given but at most ~D ~:*~[are~;is~:;are~] accepted") (let* ((il:a0997 (quote il:too-many-arguments)) (il:a0996 (quote il:%condition-reporter)) (il:a0995 ( il:function il:|TOO-MANY-ARGUMENTS report method|))) (il:putprop il:a0997 il:a0996 il:a0995)) too-few-arguments-actual il:d1 (il:l (0 il:object)) @nil nil () too-few-arguments-minimum il:d1 (il:l (0 il:object)) @nil nil () too-few-arguments-callee il:d1 (il:l (0 il:object)) @nil nil () too-few-arguments---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:too-few-arguments) (il:function il:\\defprint.defstruct.default)) il:%make-too-few-arguments il:d1 (il:l (0 il:|-args-|)) ¦ eHkJdIó²I¿h‘ Hk»ºKdJó²L¿h¼Hk¾½NdMó²R¿h_¿Hk_¿_¿OdOó²P¿h_¿gILOOhagð•JkØa°±JlÔZ°£agð•KkØa°®KlÔ[° agð•NkØa°¨NlÔ^°šagð–OkØa°©OlÔ_°˜nil (146 :actual 127 :minimum 108 :callee 89 :--dummy-slot-- 72 il:too-few-arguments) () (let* ((il:a0998 (quote il:too-few-arguments)) (il:a0999 (quote (il:call-error)))) (il:put il:a0998 ( quote il:%%included-structure) il:a0999)) (il:putprop (quote il:too-few-arguments) (quote il:structure-constructor) (quote il:%make-too-few-arguments)) (il:putprop (quote il:too-few-arguments) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:too-few-arguments) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:callee nil :read-only t) (il:minimum nil :read-only t) (il:actual nil :read-only t)) )) (il:putprop (quote il:too-few-arguments) (quote il:%local-slot-names) (quote (il:actual il:minimum))) (il:fix-inheritance-links (quote il:too-few-arguments) (quote il:call-error)) (let* ((il:a1002 (quote il:too-few-arguments)) (il:a1001 (quote il:%condition-handler)) (il:a1000 nil) ) (il:putprop il:a1002 il:a1001 il:a1000)) il:|TOO-FEW-ARGUMENTS report method| il:d1 (il:p 2 il:actual il:p 1 il:minimum il:p 0 il:callee il:i 1 *standard-output* il:i 0 il:condition) +@ @ @ IžJœioHJI ioH (40 format 30 format 11 il:too-few-arguments-actual 7 il:too-few-arguments-minimum 3 il:too-few-arguments-callee) nil ( 36 "Too few arguments to ~A" 23 "Too few arguments to ~A:~% ~D ~:*~[were~;was~:;were~] given but at least ~D ~:*~[are~;is~:;are~] necessary") (let* ((il:a1005 (quote il:too-few-arguments)) (il:a1004 (quote il:%condition-reporter)) (il:a1003 ( il:function il:|TOO-FEW-ARGUMENTS report method|))) (il:putprop il:a1005 il:a1004 il:a1003)) invalid-argument-list-callee il:d1 (il:l (0 il:object)) @nil nil () invalid-argument-list---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:invalid-argument-list) (il:function il:\\defprint.defstruct.default)) il:%make-invalid-argument-list il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :callee 47 :--dummy-slot-- 36 il:invalid-argument-list) () (let* ((il:a1006 (quote il:invalid-argument-list)) (il:a1007 (quote (il:call-error)))) (il:put il:a1006 (quote il:%%included-structure) il:a1007)) (il:putprop (quote il:invalid-argument-list) (quote il:structure-constructor) (quote il:%make-invalid-argument-list)) (il:putprop (quote il:invalid-argument-list) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:invalid-argument-list) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (il:callee nil :read-only t)))) (il:putprop (quote il:invalid-argument-list) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote il:invalid-argument-list) (quote il:call-error)) (let* ((il:a1010 (quote il:invalid-argument-list)) (il:a1009 (quote il:%condition-handler)) (il:a1008 nil)) (il:putprop il:a1010 il:a1009 il:a1008)) il:|INVALID-ARGUMENT-LIST report method| il:d1 (il:p 0 il:callee il:i 1 *standard-output* il:i 0 il:condition) @ ioH (15 format 3 il:invalid-argument-list-callee) nil ( 11 "~S has an invalid argument list") (let* ((il:a1013 (quote il:invalid-argument-list)) (il:a1012 (quote il:%condition-reporter)) (il:a1011 (il:function il:|INVALID-ARGUMENT-LIST report method|))) (il:putprop il:a1013 il:a1012 il:a1011)) stream-error-stream il:d1 (il:l (0 il:object)) @nil nil () stream-error---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:stream-error) (il:function il:\\defprint.defstruct.default)) il:%make-stream-error il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :stream 47 :--dummy-slot-- 36 il:stream-error) () (let* ((il:a1014 (quote il:stream-error)) (il:a1015 (quote (il:error)))) (il:put il:a1014 (quote il:%%included-structure) il:a1015)) (il:putprop (quote il:stream-error) (quote il:structure-constructor) (quote il:%make-stream-error)) (il:putprop (quote il:stream-error) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:stream-error) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (stream nil :read-only t)))) (il:putprop (quote il:stream-error) (quote il:%local-slot-names) (quote (stream))) (il:fix-inheritance-links (quote il:stream-error) (quote il:error)) (let* ((il:a1018 (quote il:stream-error)) (il:a1017 (quote il:%condition-handler)) (il:a1016 nil)) ( il:putprop il:a1018 il:a1017 il:a1016)) il:|STREAM-ERROR report method| il:d1 (il:p 0 stream il:i 1 *standard-output* il:i 0 il:condition) @ ioH (15 format 3 il:stream-error-stream) nil ( 11 "Stream error on ~S.") (let* ((il:a1021 (quote il:stream-error)) (il:a1020 (quote il:%condition-reporter)) (il:a1019 ( il:function il:|STREAM-ERROR report method|))) (il:putprop il:a1021 il:a1020 il:a1019)) read-error-stream il:d1 (il:l (0 il:object)) @nil nil () read-error---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:read-error) (il:function il:\\defprint.defstruct.default)) il:%make-read-error il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :stream 47 :--dummy-slot-- 36 il:read-error) () (let* ((il:a1022 (quote il:read-error)) (il:a1023 (quote (il:stream-error)))) (il:put il:a1022 (quote il:%%included-structure) il:a1023)) (il:putprop (quote il:read-error) (quote il:structure-constructor) (quote il:%make-read-error)) (il:putprop (quote il:read-error) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:read-error) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (stream nil :read-only t)))) (il:putprop (quote il:read-error) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote il:read-error) (quote il:stream-error)) (let* ((il:a1026 (quote il:read-error)) (il:a1025 (quote il:%condition-handler)) (il:a1024 nil)) ( il:putprop il:a1026 il:a1025 il:a1024)) (let* ((il:a1029 (quote il:read-error)) (il:a1028 (quote il:%condition-reporter)) (il:a1027 nil)) ( il:putprop il:a1029 il:a1028 il:a1027)) end-of-file-stream il:d1 (il:l (0 il:object)) @nil nil () end-of-file---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:end-of-file) (il:function il:\\defprint.defstruct.default)) il:%make-end-of-file il:d1 (il:l (0 il:|-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°Ênil (66 :stream 47 :--dummy-slot-- 36 il:end-of-file) () (let* ((il:a1030 (quote il:end-of-file)) (il:a1031 (quote (il:read-error (stream nil :read-only t))))) (il:put il:a1030 (quote il:%%included-structure) il:a1031)) (il:putprop (quote il:end-of-file) (quote il:structure-constructor) (quote il:%make-end-of-file)) (il:putprop (quote il:end-of-file) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:end-of-file) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t) (stream nil :read-only t)))) (il:putprop (quote il:end-of-file) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote il:end-of-file) (quote il:read-error)) (let* ((il:a1034 (quote il:end-of-file)) (il:a1033 (quote il:%condition-handler)) (il:a1032 nil)) ( il:putprop il:a1034 il:a1033 il:a1032)) il:|END-OF-FILE report method| il:d1 (il:i 1 stream il:i 0 il:datum) oA (7 write-string) nil ( 3 "End of file:~% ~S") (let* ((il:a1037 (quote il:end-of-file)) (il:a1036 (quote il:%condition-reporter)) (il:a1035 ( il:function il:|END-OF-FILE report method|))) (il:putprop il:a1037 il:a1036 il:a1035)) storage-condition---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:storage-condition) (il:function il:\\defprint.defstruct.default)) il:%make-storage-condition il:d1 (il:l (0 il:|-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°Ýnil (31 :--dummy-slot-- 22 il:storage-condition) () (let* ((il:a1038 (quote il:storage-condition)) (il:a1039 (quote (il:serious-condition)))) (il:put il:a1038 (quote il:%%included-structure) il:a1039)) (il:putprop (quote il:storage-condition) (quote il:structure-constructor) (quote il:%make-storage-condition)) (il:putprop (quote il:storage-condition) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:storage-condition) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t)))) (il:putprop (quote il:storage-condition) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote il:storage-condition) (quote il:serious-condition)) (let* ((il:a1042 (quote il:storage-condition)) (il:a1041 (quote il:%condition-handler)) (il:a1040 nil) ) (il:putprop il:a1042 il:a1041 il:a1040)) (let* ((il:a1045 (quote il:storage-condition)) (il:a1044 (quote il:%condition-reporter)) (il:a1043 nil )) (il:putprop il:a1045 il:a1044 il:a1043)) stack-overflow---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:stack-overflow) (il:function il:\\defprint.defstruct.default)) il:%make-stack-overflow il:d1 (il:l (0 il:|-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°Ýnil (31 :--dummy-slot-- 22 il:stack-overflow) () (let* ((il:a1046 (quote il:stack-overflow)) (il:a1047 (quote (il:storage-condition)))) (il:put il:a1046 (quote il:%%included-structure) il:a1047)) (il:putprop (quote il:stack-overflow) (quote il:structure-constructor) (quote il:%make-stack-overflow) ) (il:putprop (quote il:stack-overflow) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:stack-overflow) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t)))) (il:putprop (quote il:stack-overflow) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote il:stack-overflow) (quote il:storage-condition)) (let* ((il:a1050 (quote il:stack-overflow)) (il:a1049 (quote il:%condition-handler)) (il:a1048 nil)) ( il:putprop il:a1050 il:a1049 il:a1048)) il:|STACK-OVERFLOW report method| il:d1 (il:i 1 stream il:i 0 il:datum) oA (7 write-string) nil ( 3 "Stack overflow") (let* ((il:a1053 (quote il:stack-overflow)) (il:a1052 (quote il:%condition-reporter)) (il:a1051 ( il:function il:|STACK-OVERFLOW report method|))) (il:putprop il:a1053 il:a1052 il:a1051)) storage-exhausted---dummy-slot-- il:d1 (il:l (0 il:object)) @nil nil () (il:defprint (quote il:storage-exhausted) (il:function il:\\defprint.defstruct.default)) il:%make-storage-exhausted il:d1 (il:l (0 il:|-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°Ýnil (31 :--dummy-slot-- 22 il:storage-exhausted) () (let* ((il:a1054 (quote il:storage-exhausted)) (il:a1055 (quote (il:storage-condition)))) (il:put il:a1054 (quote il:%%included-structure) il:a1055)) (il:putprop (quote il:storage-exhausted) (quote il:structure-constructor) (quote il:%make-storage-exhausted)) (il:putprop (quote il:storage-exhausted) (quote il:%structure-class) (quote il:list-class)) (il:putprop (quote il:storage-exhausted) (quote il:%slot-descriptions) (quote ((il:--dummy-slot-- nil :read-only t)))) (il:putprop (quote il:storage-exhausted) (quote il:%local-slot-names) (quote nil)) (il:fix-inheritance-links (quote il:storage-exhausted) (quote il:storage-condition)) (let* ((il:a1058 (quote il:storage-exhausted)) (il:a1057 (quote il:%condition-handler)) (il:a1056 nil) ) (il:putprop il:a1058 il:a1057 il:a1056)) (let* ((il:a1061 (quote il:storage-exhausted)) (il:a1060 (quote il:%condition-reporter)) (il:a1059 nil )) (il:putprop il:a1061 il:a1060 il:a1059)) (proclaim (quote (special *break-on-warnings*))) (or (boundp (quote *break-on-warnings*)) (il:setq *break-on-warnings* nil)) (let* ((il:a1062 (quote *break-on-warnings*)) (il:a1063 (quote il:variable)) (il:a1064 "If true, calls to WARN will cause a break as well as logging the warning.")) (progn (cond ((fboundp ( quote il:set-documentation)) (il:set-documentation il:a1062 il:a1063 il:a1064))) il:a1064)) il:make-condition il:d1 (il:l (0 il:|-args-|)) a eka1Hl2 NdMó²¿OºIg j¼»J°5a_¿OµOh__¿NkÔ^°ÔO&_¿°ôdýLkØ\nñ–hl4 ¿µìLK(88 il:\\lisperror 32 il:getprop) (29 il:structure-constructor) () (let* ((il:a1065 (quote il:make-condition)) (il:a1066 (quote function)) (il:a1067 "Create a condition object of the specified type.")) (progn (cond ((fboundp (quote il:set-documentation )) (il:set-documentation il:a1065 il:a1066 il:a1067))) il:a1067)) il:signal il:d1 (il:l (0 il:|-args-|)) R eka!Hl2MdLó²!¿NºIgJ [ Kdg ”¿K a_¿OµOh_¾MkÔ]°ÉO&_¿°ô(50 il:debug 44 il:fake-typep-for-conditions 36 il:raise-signal 32 il:make-into-condition) (41 il:serious-condition 28 il:simple-condition) () error il:d1 (il:l (0 il:|-args-|)) BekaHl2LdKó²¿MºIgJ a_¿NµOh^½LkÔ\°×O&¾°ö(38 il:debug 35 il:raise-signal 32 il:make-into-condition) (28 il:simple-error) () il:cerrora0001a0002 il:d1 (il:l (0 il:proceed-case) il:i 1 *standard-output* il:f 2 il:proceed-format-string il:f 3 il:arguments) (gliRS°dýIkØYnñ–hl4 ¿µìIH(31 il:\\lisperror) (2 format) () il:cerrora0001 il:d1 (il:p 0 il:*proceed-cases* il:f 1 il:proceed-case1179 il:f 2 il:*proceed-cases* il:f 3 il:condition il:f 4 il:datum il:f 5 il:arguments) ;ggggQgjghgg RTgU c (54 il:\\mvlist 51 il:debug 48 il:raise-signal 43 il:make-into-condition 30 il:make-proceed-case) (39 il:simple-error 26 il:cerrora0001a0002 23 :report 19 :test 15 :selector 11 :tag 8 il:proceed 5 :name 2 :normal) () il:cerrora0003 il:d1 (il:f 0 il:condition) Pnil nil () cerror il:d1 (il:l (0 il:|-args-|) il:p 15 il:proceed-case1179 il:p 4 il:condition il:p 3 il:arguments il:p 2 il:datum il:p 1 il:proceed-format-string) “eka laºHl2OdOó²,¿O»h\hOg ]¾M_¿Ngð²)O a_¿OµOh__¿OkÔ_°¹O&_¿°ògj_¿_¿O°dýOkØ_nñ–hl4 ¿µêOO(136 il:\\lisperror 67 values-list 46 il:\\catch-funcall) (104 il:cerrora0003 59 :normal 43 il:cerrora0001) () warn il:d1 (il:l (0 il:|-args-|) il:f 9 *error-output* il:f 10 *break-on-warnings*) … eka!Hl2MdLó²¿NºIgJ [g ²"h° a_¿OµOh_¾MkÔ]°ÐO&_¿°ôi²oggggKgg ¿K WoK ¿W“K K(129 break 121 format 118 il:report-condition 108 il:raise-signal 103 cerror 39 il:fake-typep-for-conditions 32 il:make-into-condition) (99 il:warning 96 :desired-type 92 :value 89 il:condition 86 :name 83 il:type-mismatch 36 il:warning 28 il:simple-warning) ( 114 "~&Warning: ~A~%" 80 "Signal and report the condition anyway") il:breaka0001a0002 il:d1 (il:l (1 stream 0 il:datum)) oA (7 write-string) nil ( 3 "Return from BREAK") il:breaka0001 il:d1 (il:p 0 il:*proceed-cases* il:f 1 il:proceed-case1183 il:f 2 il:*proceed-cases* il:f 3 il:condition il:f 4 il:datum il:f 5 il:arguments) 8ggggQgjghgg RTgU c (51 il:\\mvlist 48 il:debug 43 il:make-into-condition 30 il:make-proceed-case) (39 il:simple-condition 26 il:breaka0001a0002 23 :report 19 :test 15 :selector 11 :tag 8 il:proceed 5 :name 2 :normal) () il:breaka0003 il:d1 (il:f 0 il:condition) Pnil nil () break il:d1 (il:l (0 il:|-args-|) il:p 14 il:proceed-case1183 il:p 3 il:condition il:p 2 il:arguments il:p 1 il:datum) ”ekHñ”okaqHl2 OdOó²)¿Oºh[hOg \½L¾Mgð²(N a_¿OµOh__¿OkÔ_°¼O&_¿°ògj_¿_¿N°dýOkØ_nñ–hl4 ¿µêOO(137 il:\\lisperror 69 values-list 51 il:\\catch-funcall) (106 il:breaka0003 62 :normal 48 il:breaka0001) ( 11 "Break") il:debug il:d1 (il:l (0 il:|-args-|)) JekHñ”okaHl2LdKó²¿MZ¿IgJ °ôa_¿NµOh^½LkÔ\°ØO&¾°ö(45 il:errorx 42 il:make-into-condition) (38 il:simple-condition) ( 11 "Break") proceed-case-report il:d1 (il:l (0 il:object)) @Énil (3 il:proceed-case) () |setf-PROCEED-CASE-REPORT| il:d1 (il:l (1 il:value 0 il:object)) @AAnil (3 il:proceed-case) () (remprop (quote proceed-case-report) (quote il:setf-method-expander)) (il:putprops proceed-case-report il:setf-inverse |setf-PROCEED-CASE-REPORT|) proceed-case-test il:d1 (il:l (0 il:object)) @Énil (3 il:proceed-case) () |setf-PROCEED-CASE-TEST| il:d1 (il:l (1 il:value 0 il:object)) @AAnil (3 il:proceed-case) () (remprop (quote proceed-case-test) (quote il:setf-method-expander)) (il:putprops proceed-case-test il:setf-inverse |setf-PROCEED-CASE-TEST|) proceed-case-selector il:d1 (il:l (0 il:object)) @Énil (3 il:proceed-case) () |setf-PROCEED-CASE-SELECTOR| il:d1 (il:l (1 il:value 0 il:object)) @AAnil (3 il:proceed-case) () (remprop (quote proceed-case-selector) (quote il:setf-method-expander)) (il:putprops proceed-case-selector il:setf-inverse |setf-PROCEED-CASE-SELECTOR|) proceed-case-tag il:d1 (il:l (0 il:object)) @Énil (3 il:proceed-case) () |setf-PROCEED-CASE-TAG| il:d1 (il:l (1 il:value 0 il:object)) @AAnil (3 il:proceed-case) () (remprop (quote proceed-case-tag) (quote il:setf-method-expander)) (il:putprops proceed-case-tag il:setf-inverse |setf-PROCEED-CASE-TAG|) proceed-case-name il:d1 (il:l (0 il:object)) @Énil (3 il:proceed-case) () |setf-PROCEED-CASE-NAME| il:d1 (il:l (1 il:value 0 il:object)) @AAnil (3 il:proceed-case) () (remprop (quote proceed-case-name) (quote il:setf-method-expander)) (il:putprops proceed-case-name il:setf-inverse |setf-PROCEED-CASE-NAME|) proceed-case-p il:d1 (il:l (0 il:object)) @Ãnil (3 il:proceed-case) () copy-proceed-case il:d1 (il:l (0 il:object)) `@ (6 il:ncreate2) (2 il:|PROCEED-CASETYPE#|) () (il:defprint (quote il:proceed-case) (il:function (il:lambda (il:x stream) (il:apply* (il:function il:%proceed-case-printer) il:x stream 0) t))) make-proceed-case il:d1 (il:l (0 il:|-args-|)) îeHkJdIó²s¿hÁ Hk»ºKdJó²w¿h¼Hk¾½NdMó²~¿h_¿Hk_¿_¿OdOó²~¿h_¿Hk_¿_¿OdOó¢±€¿g_¿`dI¿dL¿dO¿dO¿dO¿agð•JkØa°‡JlÔZ±ÿyagð•KkØa°ƒKlÔ[±ÿuagð–NkØa±ÿ|NlÔ^±ÿmagð—OkØa±ÿ{OlÔ_±ÿiagð—OkØa±ÿ|OlÔ_±ÿfnil (216 :report 192 :test 171 :selector 151 :tag 131 :name 97 il:|PROCEED-CASETYPE#| 91 il:%proceed-case-default-reporter) () (il:putprop (quote il:proceed-case) (quote il:structure-constructor) (quote make-proceed-case)) (il:putprop (quote il:proceed-case) (quote il:%structure-class) (quote il:structure-class)) (il:putprop (quote il:proceed-case) (quote il:%slot-descriptions) (quote (il:name il:tag il:selector il:test (il:report (quote il:%proceed-case-default-reporter))))) (il:putprop (quote il:proceed-case) (quote il:%local-slot-names) (quote (il:report il:test il:selector il:tag il:name))) (il:/declaredatatype (quote il:proceed-case) (quote (il:pointer il:pointer il:pointer il:pointer il:pointer)) (quote ((il:proceed-case 0 il:pointer) (il:proceed-case 2 il:pointer) (il:proceed-case 4 il:pointer) (il:proceed-case 6 il:pointer) (il:proceed-case 8 il:pointer))) (quote 10)) real-proceed-case-continuation il:d1 (il:l (0 il:object)) @É nil (3 il:real-proceed-case) () |setf-REAL-PROCEED-CASE-CONTINUATION| il:d1 (il:l (1 il:value 0 il:object)) @A Anil (3 il:real-proceed-case) () (remprop (quote real-proceed-case-continuation) (quote il:setf-method-expander)) (il:putprops real-proceed-case-continuation il:setf-inverse |setf-REAL-PROCEED-CASE-CONTINUATION|) real-proceed-case-report il:d1 (il:l (0 il:object)) @Énil (3 il:proceed-case) () |setf-REAL-PROCEED-CASE-REPORT| il:d1 (il:l (1 il:value 0 il:object)) @AAnil (3 il:proceed-case) () (remprop (quote real-proceed-case-report) (quote il:setf-method-expander)) (il:putprops real-proceed-case-report il:setf-inverse |setf-REAL-PROCEED-CASE-REPORT|) real-proceed-case-test il:d1 (il:l (0 il:object)) @Énil (3 il:proceed-case) () |setf-REAL-PROCEED-CASE-TEST| il:d1 (il:l (1 il:value 0 il:object)) @AAnil (3 il:proceed-case) () (remprop (quote real-proceed-case-test) (quote il:setf-method-expander)) (il:putprops real-proceed-case-test il:setf-inverse |setf-REAL-PROCEED-CASE-TEST|) real-proceed-case-selector il:d1 (il:l (0 il:object)) @Énil (3 il:proceed-case) () |setf-REAL-PROCEED-CASE-SELECTOR| il:d1 (il:l (1 il:value 0 il:object)) @AAnil (3 il:proceed-case) () (remprop (quote real-proceed-case-selector) (quote il:setf-method-expander)) (il:putprops real-proceed-case-selector il:setf-inverse |setf-REAL-PROCEED-CASE-SELECTOR|) real-proceed-case-tag il:d1 (il:l (0 il:object)) @Énil (3 il:proceed-case) () |setf-REAL-PROCEED-CASE-TAG| il:d1 (il:l (1 il:value 0 il:object)) @AAnil (3 il:proceed-case) () (remprop (quote real-proceed-case-tag) (quote il:setf-method-expander)) (il:putprops real-proceed-case-tag il:setf-inverse |setf-REAL-PROCEED-CASE-TAG|) real-proceed-case-name il:d1 (il:l (0 il:object)) @Énil (3 il:proceed-case) () |setf-REAL-PROCEED-CASE-NAME| il:d1 (il:l (1 il:value 0 il:object)) @AAnil (3 il:proceed-case) () (remprop (quote real-proceed-case-name) (quote il:setf-method-expander)) (il:putprops real-proceed-case-name il:setf-inverse |setf-REAL-PROCEED-CASE-NAME|) real-proceed-case-p il:d1 (il:l (0 il:object)) @Ãnil (3 il:real-proceed-case) () copy-real-proceed-case il:d1 (il:l (0 il:object)) `@ (6 il:ncreate2) (2 il:|REAL-PROCEED-CASETYPE#|) () (il:defprint (quote il:real-proceed-case) (il:function (il:lambda (il:x stream) (il:apply* (il:function il:%proceed-case-printer) il:x stream 0) t))) make-real-proceed-case il:d1 (il:l (0 il:|-args-|)) -eHkJdIó¢±—¿hñHk»ºKdJ󢱚¿h¼Hk¾½NdMó¢± ¿h_¿Hk_¿_¿OdO󢱞¿h_¿Hk_¿_¿OdO󢱟¿g_¿Hk_¿_¿OdO󢱞¿h_ ¿`dI¿dL¿dO¿dO¿dO¿dO  ¿agð–JkØa±ÿdJlÔZ±ÿSagð–KkØa±ÿaKlÔ[±ÿPagð–NkØa±ÿ[NlÔ^±ÿJagð—OkØa±ÿ\OlÔ_±ÿHagð—OkØa±ÿ]OlÔ_±ÿGagð—OkØa±ÿ\OlÔ_±ÿHnil (279 :continuation 255 :report 231 :test 210 :selector 189 :tag 168 :name 128 il:|REAL-PROCEED-CASETYPE#| 99 il:%proceed-case-default-reporter) () (let* ((il:a1077 (quote il:real-proceed-case)) (il:a1078 (quote (il:proceed-case)))) (il:put il:a1077 (quote il:%%included-structure) il:a1078)) (il:putprop (quote il:real-proceed-case) (quote il:structure-constructor) (quote make-real-proceed-case)) (il:putprop (quote il:real-proceed-case) (quote il:%structure-class) (quote il:structure-class)) (il:putprop (quote il:real-proceed-case) (quote il:%slot-descriptions) (quote (il:name il:tag il:selector il:test (il:report (quote il:%proceed-case-default-reporter)) il:continuation))) (il:putprop (quote il:real-proceed-case) (quote il:%local-slot-names) (quote (il:continuation))) (il:/declaredatatype (quote il:real-proceed-case) (quote (il:pointer il:pointer il:pointer il:pointer il:pointer il:pointer)) (quote ((il:real-proceed-case 0 il:pointer) (il:real-proceed-case 2 il:pointer ) (il:real-proceed-case 4 il:pointer) (il:real-proceed-case 6 il:pointer) (il:real-proceed-case 8 il:pointer) (il:real-proceed-case 10 il:pointer))) nil (quote il:proceed-case)) il:find-proceed-case il:d1 (il:l (1 il:condition 0 il:datum) il:f 4 il:*proceed-cases*) X@1HYµohgg Ã@T´ @A ´@IôTZµh[ @ð˜KA ’KµðJ°çgHo (85 il:check-type-fail 66 il:test-proceed-case 58 il:proceed-case-name 36 il:test-proceed-case 21 error) (77 il:datum 44 il:litatom 25 il:proceed-case 18 il:compute-proceed-cases 15 il:find-proceed-case) ( 82 (or null il:proceed-case symbol) 11 "~S is an invalid argument to ~S;~% use ~S instead") il:compute-proceed-casesa0001 il:d1 (il:f 0 il:pc il:f 1 il:condition) PQ (4 il:test-proceed-case) nil () il:compute-proceed-cases il:d1 (il:p 4 il:pc il:i 0 il:condition il:f 5 il:*proceed-cases*) /UAHµI¼gg ‘h€i©L»Jµ KhZ¹HX°ÞK&º°ø(20 il:\\catch-funcall) (17 il:compute-proceed-casesa0001 14 il:skip-proceed-case) () il:invoke-proceed-case il:d1 (il:l (0 il:|-args-|)) 7ekaqlaºHl2 OdOó²Q¿O»IJ \¢±g g –g ¿LdⱿLÉLÉ JIlð²0K a_¿OµOh__¿OkÔ_°”O&_¿°òLÉ ²ÉLÉÁÉg'k¾½JK°dýNkØ^nñ–hl4 ¿µìNM°šÃ´aLÉLÉJIlð³DLÉ ²9LÉÁÉg'k_¿_¿JK°dýOkØ_nñ–hl4 ¿µêOO€K ggI (308 error 297 il:\\do-throw 294 il:\\mvlist 279 il:\\lisperror 231 fboundp 189 il:\\lisperror 147 fboundp 104 il:\\do-throw 101 il:\\mvlist 98 values-list 61 il:breakresetfn 54 boundp 47 boundp 36 il:find-proceed-case) (304 :name 301 il:bad-proceed-case 246 il:%proceed-arg-collector 237 il:proceed-case 226 il:proceed-case 212 il:proceed-case 206 il:proceed-case 200 il:proceed-case 162 il:%proceed-arg-collector 153 il:real-proceed-case 142 il:real-proceed-case 82 il:real-proceed-case 76 il:real-proceed-case 67 il:real-proceed-case 58 il:leaving 51 il:\\breakresetexpr 44 il:breakresetvals) () (let* ((il:a1082 (quote il:abort)) (il:a1081 (quote il:%default-proceed-test)) (il:a1080 (quote il:true ))) (il:putprop il:a1082 il:a1081 il:a1080)) il:|ABORT-proceed-reporter| il:d1 (il:i 1 stream il:i 0 il:datum) oA (7 write-string) nil ( 3 "Abort") (let* ((il:a1083 (quote il:abort)) (il:a1084 (quote il:%default-proceed-report)) (il:a1085 (quote il:default-proceed-reporter)) (il:a1086 (quote il:|ABORT-proceed-reporter|))) (il:putprop il:a1083 il:a1084 il:a1086)) (let* ((il:a1087 (quote il:abort)) (il:a1088 (quote il:%proceed-arg-collector)) (il:a1090 (il:function (lambda (&optional il:condition) (list))))) (il:putprop il:a1087 il:a1088 il:a1090)) il:aborta0001a0002 il:d1 (il:l (0 il:c) il:f 0 il:condition-case1190) @cgh (12 il:\\do-throw 9 il:\\mvlist) (5 il:condition-case1192) () il:aborta0001 il:d1 (il:p 0 il:*condition-handler-bindings* il:f 1 il:*condition-handler-bindings* il:f 2 il:condition) ggQgR (21 il:\\mvlist 18 il:invoke-proceed-case) (14 il:abort 5 il:aborta0001a0002 2 il:bad-proceed-case) () il:abort il:d1 (il:p 0 il:condition-case1190 il:i 0 il:condition)  gg ¹H‘hI (20 values-list 11 il:\\catch-funcall) (8 il:aborta0001 5 il:condition-case1192) () (let* ((il:a1097 (quote il:proceed)) (il:a1096 (quote il:%default-proceed-test)) (il:a1095 (quote il:true))) (il:putprop il:a1097 il:a1096 il:a1095)) il:|PROCEED-proceed-reporter| il:d1 (il:i 1 stream il:i 0 il:datum) oA (7 write-string) nil ( 3 "Proceed with no special action") (let* ((il:a1098 (quote il:proceed)) (il:a1099 (quote il:%default-proceed-report)) (il:a1100 (quote il:default-proceed-reporter)) (il:a1101 (quote il:|PROCEED-proceed-reporter|))) (il:putprop il:a1098 il:a1099 il:a1101)) (let* ((il:a1102 (quote il:proceed)) (il:a1103 (quote il:%proceed-arg-collector)) (il:a1105 (il:function (lambda (&optional il:condition) (list))))) (il:putprop il:a1102 il:a1103 il:a1105)) il:proceeda0001a0002 il:d1 (il:l (0 il:c) il:f 0 il:condition-case1194) @cgh (12 il:\\do-throw 9 il:\\mvlist) (5 il:condition-case1196) () il:proceeda0001 il:d1 (il:p 0 il:*condition-handler-bindings* il:f 1 il:*condition-handler-bindings* il:f 2 il:condition) ggQgR (21 il:\\mvlist 18 il:invoke-proceed-case) (14 il:proceed 5 il:proceeda0001a0002 2 il:bad-proceed-case) () il:proceed il:d1 (il:p 0 il:condition-case1194 il:i 0 il:condition)  gg ¹H‘hI (20 values-list 11 il:\\catch-funcall) (8 il:proceeda0001 5 il:condition-case1196) () (let* ((il:a1112 (quote il:use-value)) (il:a1111 (quote il:%default-proceed-test)) (il:a1110 (quote il:true))) (il:putprop il:a1112 il:a1111 il:a1110)) il:|USE-VALUE-proceed-reporter| il:d1 (il:i 1 stream il:i 0 il:datum) oA (7 write-string) nil ( 3 "Use a different value") (let* ((il:a1113 (quote il:use-value)) (il:a1114 (quote il:%default-proceed-report)) (il:a1115 (quote il:default-proceed-reporter)) (il:a1116 (quote il:|USE-VALUE-proceed-reporter|))) (il:putprop il:a1113 il:a1114 il:a1116)) (let* ((il:a1117 (quote il:use-value)) (il:a1118 (quote il:%proceed-arg-collector)) (il:a1120 ( il:function (lambda (&optional il:condition (il:value (progn (format *query-io* "Enter a new value: ") (il:eval (read *query-io*))))) (list il:value))))) (il:putprop il:a1117 il:a1118 il:a1120)) il:use-valuea0001a0002 il:d1 (il:l (0 il:c) il:f 0 il:condition-case1198) @cgh (12 il:\\do-throw 9 il:\\mvlist) (5 il:condition-case1200) () il:use-valuea0001 il:d1 (il:p 0 il:*condition-handler-bindings* il:f 1 il:*condition-handler-bindings* il:f 2 il:condition il:f 3 il:value) ggQgRS (22 il:\\mvlist 19 il:invoke-proceed-case) (14 il:use-value 5 il:use-valuea0001a0002 2 il:bad-proceed-case) () il:use-value il:d1 (il:l (0 il:|-args-|) il:p 4 il:condition-case1198 il:p 3 il:value il:p 1 il:condition il:f 5 *query-io*) @ekHñ‘hkalHñ²Uo ¿U ‚lagg ºL‘hJ (61 values-list 52 il:\\catch-funcall 36 il:eval 33 read 28 format) (49 il:use-valuea0001 46 il:condition-case1200) ( 25 "Enter a new value: ") (let* ((il:a1127 (quote il:store-value)) (il:a1126 (quote il:%default-proceed-test)) (il:a1125 (quote il:true))) (il:putprop il:a1127 il:a1126 il:a1125)) il:|STORE-VALUE-proceed-reporter| il:d1 (il:i 1 stream il:i 0 il:datum) oA (7 write-string) nil ( 3 "Store a new value and use it") (let* ((il:a1128 (quote il:store-value)) (il:a1129 (quote il:%default-proceed-report)) (il:a1130 ( quote il:default-proceed-reporter)) (il:a1131 (quote il:|STORE-VALUE-proceed-reporter|))) (il:putprop il:a1128 il:a1129 il:a1131)) (let* ((il:a1132 (quote il:store-value)) (il:a1133 (quote il:%proceed-arg-collector)) (il:a1135 ( il:function (lambda (&optional il:condition (il:value (progn (format *query-io* "Enter a value to store: ") (eval (read *query-io*))))) (list il:value))))) (il:putprop il:a1132 il:a1133 il:a1135)) il:store-valuea0001a0002 il:d1 (il:l (0 il:c) il:f 0 il:condition-case1202) @cgh (12 il:\\do-throw 9 il:\\mvlist) (5 il:condition-case1204) () il:store-valuea0001 il:d1 (il:p 0 il:*condition-handler-bindings* il:f 1 il:*condition-handler-bindings* il:f 2 il:condition il:f 3 il:value) ggQgRS (22 il:\\mvlist 19 il:invoke-proceed-case) (14 il:store-value 5 il:store-valuea0001a0002 2 il:bad-proceed-case) () il:store-value il:d1 (il:l (0 il:|-args-|) il:p 4 il:condition-case1202 il:p 3 il:value il:p 1 il:condition il:f 5 *query-io*) @ekHñ‘hkalHñ²Uo ¿U ‚lagg ºL‘hJ (61 values-list 52 il:\\catch-funcall 36 eval 33 read 28 format) (49 il:store-valuea0001 46 il:condition-case1204) ( 25 "Enter a value to store: ") il:simple-format il:d1 (il:l (0 il:|-args-|) il:f 9 *standard-output*) N eka!Hl2MdLó²¿NºIið’W¹J[d³ a_¿OµOh_¾MkÔ]°×O&_¿°ôI ¿K°Ö(71 print) nil () (il:movd? (quote il:simple-format) (quote format)) (il:putprops il:error-runtime il:filetype compile-file) (il:putprops il:error-runtime il:copyright ("Xerox Corporation" 1986)) nil