;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'cl-lib) #@70 compiler-macro for inlining `dhry-record-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'dhry-record-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dhry-record-p (and (memq (type-of cl-x) cl-struct-dhry-record-tags) t)) nil] 9 (#$ . 426)]) (put 'dhry-record-p 'compiler-macro 'dhry-record-p--cmacro) #@13 (fn CL-X) (defalias 'dhry-record-p #[257 "\301!>\205 \302\207" [cl-struct-dhry-record-tags type-of t] 3 (#$ . 765)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put dhry-record-p side-effect-free error-free put dhry-record cl-deftype-satisfies] 5) #@74 compiler-macro for inlining `dhry-record-discr'. (fn CL-WHOLE-ARG CL-X) (defalias 'dhry-record-discr--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dhry-record-discr (or (dhry-record-p cl-x) (signal 'wrong-type-argument (list 'dhry-record cl-x))) (aref cl-x 1)) nil] 9 (#$ . 1042)]) (put 'dhry-record-discr 'compiler-macro 'dhry-record-discr--cmacro) #@62 Access slot "discr" of `dhry-record' struct CL-X. (fn CL-X) (defalias 'dhry-record-discr #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-dhry-record-tags type-of signal wrong-type-argument dhry-record 1] 5 (#$ . 1440)]) (byte-code "\300\301\302\303#\300\207" [function-put dhry-record-discr side-effect-free t] 4) #@76 compiler-macro for inlining `dhry-record-variant'. (fn CL-WHOLE-ARG CL-X) (defalias 'dhry-record-variant--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dhry-record-variant (or (dhry-record-p cl-x) (signal 'wrong-type-argument (list 'dhry-record cl-x))) (aref cl-x 2)) nil] 9 (#$ . 1780)]) (put 'dhry-record-variant 'compiler-macro 'dhry-record-variant--cmacro) #@64 Access slot "variant" of `dhry-record' struct CL-X. (fn CL-X) (defalias 'dhry-record-variant #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-dhry-record-tags type-of signal wrong-type-argument dhry-record 2] 5 (#$ . 2188)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put dhry-record-variant side-effect-free t defalias copy-dhry-record copy-sequence] 4) #@93 compiler-macro for inlining `make-dhry-record'. (fn CL-WHOLE &cl-quote &key DISCR VARIANT) (defalias 'make-dhry-record--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :discr :variant (:discr :variant :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:discr :variant)" cl--defsubst-expand (discr variant) (cl-block make-dhry-record (record 'dhry-record discr variant))] 12 (#$ . 2584)]) (put 'make-dhry-record 'compiler-macro 'make-dhry-record--cmacro) #@73 Constructor for objects of type `dhry-record'. (fn &key DISCR VARIANT) (defalias 'make-dhry-record #[128 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311#\207" [plist-member :discr :variant (:discr :variant :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:discr :variant)" record dhry-record] 7 (#$ . 3213)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-dhry-record side-effect-free t cl-struct-define dhry-record nil cl-structure-object record ((cl-tag-slot) (discr) (variant)) cl-struct-dhry-record-tags] 11) #@69 compiler-macro for inlining `dhry-var-1-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'dhry-var-1-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dhry-var-1-p (and (memq (type-of cl-x) cl-struct-dhry-var-1-tags) t)) nil] 9 (#$ . 3902)]) (put 'dhry-var-1-p 'compiler-macro 'dhry-var-1-p--cmacro) #@13 (fn CL-X) (defalias 'dhry-var-1-p #[257 "\301!>\205 \302\207" [cl-struct-dhry-var-1-tags type-of t] 3 (#$ . 4236)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put dhry-var-1-p side-effect-free error-free put dhry-var-1 cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `dhry-var-1-enum-comp'. (fn CL-WHOLE-ARG CL-X) (defalias 'dhry-var-1-enum-comp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dhry-var-1-enum-comp (or (dhry-var-1-p cl-x) (signal 'wrong-type-argument (list 'dhry-var-1 cl-x))) (aref cl-x 1)) nil] 9 (#$ . 4510)]) (put 'dhry-var-1-enum-comp 'compiler-macro 'dhry-var-1-enum-comp--cmacro) #@65 Access slot "enum-comp" of `dhry-var-1' struct CL-X. (fn CL-X) (defalias 'dhry-var-1-enum-comp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-dhry-var-1-tags type-of signal wrong-type-argument dhry-var-1 1] 5 (#$ . 4921)]) (byte-code "\300\301\302\303#\300\207" [function-put dhry-var-1-enum-comp side-effect-free t] 4) #@76 compiler-macro for inlining `dhry-var-1-int-comp'. (fn CL-WHOLE-ARG CL-X) (defalias 'dhry-var-1-int-comp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dhry-var-1-int-comp (or (dhry-var-1-p cl-x) (signal 'wrong-type-argument (list 'dhry-var-1 cl-x))) (aref cl-x 2)) nil] 9 (#$ . 5268)]) (put 'dhry-var-1-int-comp 'compiler-macro 'dhry-var-1-int-comp--cmacro) #@64 Access slot "int-comp" of `dhry-var-1' struct CL-X. (fn CL-X) (defalias 'dhry-var-1-int-comp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-dhry-var-1-tags type-of signal wrong-type-argument dhry-var-1 2] 5 (#$ . 5674)]) (byte-code "\300\301\302\303#\300\207" [function-put dhry-var-1-int-comp side-effect-free t] 4) #@76 compiler-macro for inlining `dhry-var-1-str-comp'. (fn CL-WHOLE-ARG CL-X) (defalias 'dhry-var-1-str-comp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dhry-var-1-str-comp (or (dhry-var-1-p cl-x) (signal 'wrong-type-argument (list 'dhry-var-1 cl-x))) (aref cl-x 3)) nil] 9 (#$ . 6018)]) (put 'dhry-var-1-str-comp 'compiler-macro 'dhry-var-1-str-comp--cmacro) #@64 Access slot "str-comp" of `dhry-var-1' struct CL-X. (fn CL-X) (defalias 'dhry-var-1-str-comp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-dhry-var-1-tags type-of signal wrong-type-argument dhry-var-1 3] 5 (#$ . 6424)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put dhry-var-1-str-comp side-effect-free t defalias copy-dhry-var-1 copy-sequence] 4) #@106 compiler-macro for inlining `make-dhry-var-1'. (fn CL-WHOLE &cl-quote &key ENUM-COMP INT-COMP STR-COMP) (defalias 'make-dhry-var-1--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312\313\306\306&\207" [plist-member :enum-comp :int-comp :str-comp (:enum-comp :int-comp :str-comp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:enum-comp :int-comp :str-comp)" cl--defsubst-expand (enum-comp int-comp str-comp) (cl-block make-dhry-var-1 (record 'dhry-var-1 enum-comp int-comp str-comp))] 14 (#$ . 6818)]) (put 'make-dhry-var-1 'compiler-macro 'make-dhry-var-1--cmacro) #@86 Constructor for objects of type `dhry-var-1'. (fn &key ENUM-COMP INT-COMP STR-COMP) (defalias 'make-dhry-var-1 #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312$\207" [plist-member :enum-comp :int-comp :str-comp (:enum-comp :int-comp :str-comp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:enum-comp :int-comp :str-comp)" record dhry-var-1] 9 (#$ . 7543)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-dhry-var-1 side-effect-free t cl-struct-define dhry-var-1 nil cl-structure-object record ((cl-tag-slot) (enum-comp) (int-comp) (str-comp)) cl-struct-dhry-var-1-tags] 11) #@69 compiler-macro for inlining `dhry-var-2-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'dhry-var-2-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dhry-var-2-p (and (memq (type-of cl-x) cl-struct-dhry-var-2-tags) t)) nil] 9 (#$ . 8315)]) (put 'dhry-var-2-p 'compiler-macro 'dhry-var-2-p--cmacro) #@13 (fn CL-X) (defalias 'dhry-var-2-p #[257 "\301!>\205 \302\207" [cl-struct-dhry-var-2-tags type-of t] 3 (#$ . 8649)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put dhry-var-2-p side-effect-free error-free put dhry-var-2 cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `dhry-var-2-e-comp-2'. (fn CL-WHOLE-ARG CL-X) (defalias 'dhry-var-2-e-comp-2--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dhry-var-2-e-comp-2 (or (dhry-var-2-p cl-x) (signal 'wrong-type-argument (list 'dhry-var-2 cl-x))) (aref cl-x 1)) nil] 9 (#$ . 8923)]) (put 'dhry-var-2-e-comp-2 'compiler-macro 'dhry-var-2-e-comp-2--cmacro) #@64 Access slot "e-comp-2" of `dhry-var-2' struct CL-X. (fn CL-X) (defalias 'dhry-var-2-e-comp-2 #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-dhry-var-2-tags type-of signal wrong-type-argument dhry-var-2 1] 5 (#$ . 9329)]) (byte-code "\300\301\302\303#\300\207" [function-put dhry-var-2-e-comp-2 side-effect-free t] 4) #@78 compiler-macro for inlining `dhry-var-2-str-2-comp'. (fn CL-WHOLE-ARG CL-X) (defalias 'dhry-var-2-str-2-comp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dhry-var-2-str-2-comp (or (dhry-var-2-p cl-x) (signal 'wrong-type-argument (list 'dhry-var-2 cl-x))) (aref cl-x 2)) nil] 9 (#$ . 9673)]) (put 'dhry-var-2-str-2-comp 'compiler-macro 'dhry-var-2-str-2-comp--cmacro) #@66 Access slot "str-2-comp" of `dhry-var-2' struct CL-X. (fn CL-X) (defalias 'dhry-var-2-str-2-comp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-dhry-var-2-tags type-of signal wrong-type-argument dhry-var-2 2] 5 (#$ . 10089)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put dhry-var-2-str-2-comp side-effect-free t defalias copy-dhry-var-2 copy-sequence] 4) #@98 compiler-macro for inlining `make-dhry-var-2'. (fn CL-WHOLE &cl-quote &key E-COMP-2 STR-2-COMP) (defalias 'make-dhry-var-2--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :e-comp-2 :str-2-comp (:e-comp-2 :str-2-comp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:e-comp-2 :str-2-comp)" cl--defsubst-expand (e-comp-2 str-2-comp) (cl-block make-dhry-var-2 (record 'dhry-var-2 e-comp-2 str-2-comp))] 12 (#$ . 10489)]) (put 'make-dhry-var-2 'compiler-macro 'make-dhry-var-2--cmacro) #@78 Constructor for objects of type `dhry-var-2'. (fn &key E-COMP-2 STR-2-COMP) (defalias 'make-dhry-var-2 #[128 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311#\207" [plist-member :e-comp-2 :str-2-comp (:e-comp-2 :str-2-comp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:e-comp-2 :str-2-comp)" record dhry-var-2] 7 (#$ . 11149)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-dhry-var-2 side-effect-free t cl-struct-define dhry-var-2 nil cl-structure-object record ((cl-tag-slot) (e-comp-2) (str-2-comp)) cl-struct-dhry-var-2-tags] 11) #@69 compiler-macro for inlining `dhry-var-3-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'dhry-var-3-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dhry-var-3-p (and (memq (type-of cl-x) cl-struct-dhry-var-3-tags) t)) nil] 9 (#$ . 11863)]) (put 'dhry-var-3-p 'compiler-macro 'dhry-var-3-p--cmacro) #@13 (fn CL-X) (defalias 'dhry-var-3-p #[257 "\301!>\205 \302\207" [cl-struct-dhry-var-3-tags type-of t] 3 (#$ . 12198)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put dhry-var-3-p side-effect-free error-free put dhry-var-3 cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `dhry-var-3-ch-1-comp'. (fn CL-WHOLE-ARG CL-X) (defalias 'dhry-var-3-ch-1-comp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dhry-var-3-ch-1-comp (or (dhry-var-3-p cl-x) (signal 'wrong-type-argument (list 'dhry-var-3 cl-x))) (aref cl-x 1)) nil] 9 (#$ . 12473)]) (put 'dhry-var-3-ch-1-comp 'compiler-macro 'dhry-var-3-ch-1-comp--cmacro) #@65 Access slot "ch-1-comp" of `dhry-var-3' struct CL-X. (fn CL-X) (defalias 'dhry-var-3-ch-1-comp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-dhry-var-3-tags type-of signal wrong-type-argument dhry-var-3 1] 5 (#$ . 12885)]) (byte-code "\300\301\302\303#\300\207" [function-put dhry-var-3-ch-1-comp side-effect-free t] 4) #@77 compiler-macro for inlining `dhry-var-3-ch-2-comp'. (fn CL-WHOLE-ARG CL-X) (defalias 'dhry-var-3-ch-2-comp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dhry-var-3-ch-2-comp (or (dhry-var-3-p cl-x) (signal 'wrong-type-argument (list 'dhry-var-3 cl-x))) (aref cl-x 2)) nil] 9 (#$ . 13233)]) (put 'dhry-var-3-ch-2-comp 'compiler-macro 'dhry-var-3-ch-2-comp--cmacro) #@65 Access slot "ch-2-comp" of `dhry-var-3' struct CL-X. (fn CL-X) (defalias 'dhry-var-3-ch-2-comp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-dhry-var-3-tags type-of signal wrong-type-argument dhry-var-3 2] 5 (#$ . 13645)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put dhry-var-3-ch-2-comp side-effect-free t defalias copy-dhry-var-3 copy-sequence] 4) #@98 compiler-macro for inlining `make-dhry-var-3'. (fn CL-WHOLE &cl-quote &key CH-1-COMP CH-2-COMP) (defalias 'make-dhry-var-3--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :ch-1-comp :ch-2-comp (:ch-1-comp :ch-2-comp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:ch-1-comp :ch-2-comp)" cl--defsubst-expand (ch-1-comp ch-2-comp) (cl-block make-dhry-var-3 (record 'dhry-var-3 ch-1-comp ch-2-comp))] 12 (#$ . 14042)]) (put 'make-dhry-var-3 'compiler-macro 'make-dhry-var-3--cmacro) #@78 Constructor for objects of type `dhry-var-3'. (fn &key CH-1-COMP CH-2-COMP) (defalias 'make-dhry-var-3 #[128 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311#\207" [plist-member :ch-1-comp :ch-2-comp (:ch-1-comp :ch-2-comp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:ch-1-comp :ch-2-comp)" record dhry-var-3] 7 (#$ . 14702)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-dhry-var-3 side-effect-free t cl-struct-define dhry-var-3 nil cl-structure-object record ((cl-tag-slot) (ch-1-comp) (ch-2-comp)) cl-struct-dhry-var-3-tags] 11) #@16 (fn DST SRC) (defalias 'dhry-structassign #[514 "\211A\241\266\211@@\304!>\204\305\306\307D\"\210\211\211\310\304!>\204-\305\306\307D\"\210\310HI\266\304!>\204B\305\306\307D\"\210\310H\304!>\204T\305\306\307D\"\210\311H\304!>\204f\305\306\307D\"\210\311H\312\313\"\203\353\304! >\204\305\306\314D\"\210\211\211\311\304! >\204\222\305\306\314D\"\210\311HI\266\304! >\204\247\305\306\314D\"\210\211\211\310\304! >\204\272\305\306\314D\"\210\310HI\266\315\304! >\204\320\305\306\314D\"\210\316H\313\304! >\204\344\305\306\314D\"\210\316H#\202\234\312\310\"\203E\304!\n>\204\305\306\317D\"\210\211\211\310\304!\n>\204\305\306\317D\"\210\310HI\266\315\304!\n>\204*\305\306\317D\"\210\311H\313\304!\n>\204>\305\306\317D\"\210\311H#\202\234\312\311\"\205\234\304! >\204[\305\306\320D\"\210\211\211\310\304! >\204n\305\306\320D\"\210\310HI\266\304! >\204\203\305\306\320D\"\210\211\211\311\304! >\204\226\305\306\320D\"\210\311HI\262\266\203\207" [cl-struct-dhry-record-tags cl-struct-dhry-var-1-tags cl-struct-dhry-var-2-tags cl-struct-dhry-var-3-tags type-of signal wrong-type-argument dhry-record 1 2 eql 0 dhry-var-1 store-substring 3 dhry-var-2 dhry-var-3] 14 (#$ . 15416)]) #@20 (fn PTR-VAL-PAR) (defalias 'dhry-proc-1 #[257 "\211A\303A\"\210\304\211@! >\204\305\306\307@D\"\210@\310H!\n>\204@\305\306\311\304@! >\2049\305\306\307@D\"\210@\310HD\"\210\304@! >\204Q\305\306\307@D\"\210@\310H\211\310\312I\266\304\211@! >\204m\305\306\307@D\"\210@\310H!\n>\204\223\305\306\311\304@! >\204\214\305\306\307@D\"\210@\310HD\"\210\304@! >\204\244\305\306\307@D\"\210\211@\310H\211\310\304\211@! >\204\276\305\306\307@D\"\210@\310H!\n>\204\346\305\306\311\304@! >\204\336\305\306\307\n@D\"\210@\310HD\"\210\304@! >\204\370\305\306\307@D\"\210@\310H\310HI\266\211\211\313A!\241\266\304@! >\204\305\306\307@D\"\210\211@\314H\315U\203\324\304\211@! >\2046\305\306\307@D\"\210@\310H!\n>\204\\\305\306\311\304@! >\204U\305\306\307@D\"\210@\310HD\"\210\304@! >\204m\305\306\307@D\"\210\211@\310H\211\310\316I\266\304\211@! >\204\211\305\306\307@D\"\210@\310H!\n>\204\257\305\306\311\304@! >\204\250\305\306\307@D\"\210@\310HD\"\210\304@! >\204\300\305\306\307@D\"\210\211@\310H\211\314\317\304\211@! >\204\333\305\306\307 @D\"\210@\310H!\n>\204\305\306\311\304 @! >\204\374\305\306\307 @D\"\210@\310HD\"\210\304@! >\204\305\306\307@D\"\210@\310H\314H!I\266\211\211A\241\266\304\211@! >\204:\305\306\307@D\"\210@\310H!\n>\204`\305\306\311\304@! >\204Y\305\306\307@D\"\210@\310HD\"\210\304@! >\204q\305\306\307@D\"\210\211@\310H\211\310\320\304\211@! >\204\214\305\306\307@D\"\210@\310H!\n>\204\264\305\306\311\304@! >\204\254\305\306\307\n@D\"\210@\310HD\"\210\304@! >\204\306\305\306\307@D\"\210@\310H\310H\321\"I\262\202\331\303\211A\"\207" [dhry-ptr-glob cl-struct-dhry-record-tags cl-struct-dhry-var-1-tags dhry-structassign type-of signal wrong-type-argument dhry-record 2 dhry-var-1 5 dhry-proc-3 1 0 6 dhry-proc-6 dhry-proc-7 10] 13 (#$ . 16701)]) #@20 (fn INT-PAR-REF) (defalias 'dhry-proc-2 #[257 "\302\211\303\\\262\304U\203S\262 Z\262\305\262\211\305U\203\207" [dhry-ch-1-glob dhry-int-glob nil 10 65 0] 5 (#$ . 18611)]) #@20 (fn PTR-REF-PAR) (defalias 'dhry-proc-3 #[257 "\211\203 A\262\304\211@! >\204\305\306\307@D\"\210@\310H!\n>\204@\305\306\311\304@! >\2049\305\306\307@D\"\210@\310HD\"\210\304@! >\204Q\305\306\307@D\"\210@\310H\211\310\312\313 \"I\266\211\207" [dhry-ptr-glob cl-struct-dhry-record-tags cl-struct-dhry-var-1-tags dhry-int-glob type-of signal wrong-type-argument dhry-record 2 dhry-var-1 dhry-proc-7 10] 9 (#$ . 18804)]) (defalias 'dhry-proc-4 #[0 "\303\304U\262\211\206 \305\211\207" [dhry-ch-1-glob dhry-bool-glob dhry-ch-2-glob nil 65 66] 3]) (defalias 'dhry-proc-5 #[0 "\302\303\211\207" [dhry-ch-1-glob dhry-bool-glob 65 nil] 2]) #@21 (fn ENUM-VAL-PAR) (defalias 'dhry-proc-6 #[257 "\301\262\302!\204 \303\262\304\305\"\203\305\262\202Q\304\306\"\2033\307V\203-\305\262\202Q\303\262\202Q\304\310\"\203@\306\262\202Q\304\303\"\204Q\304\311\"\203Q\310\262\211\207" [dhry-int-glob nil dhry-func-3 3 eql 0 1 100 2 4] 5 (#$ . 19471)]) #@36 (fn INT-1-PAR-VAL INT-2-PAR-VAL) (defalias 'dhry-proc-7 #[514 "\300\301\\\262\\\207" [nil 2] 5 (#$ . 19801)]) #@64 (fn ARR-1-PAR-REF ARR-2-PAR-REF INT-1-PAR-VAL INT-2-PAR-VAL) (defalias 'dhry-proc-8 #[1028 "\301\302\\\262I\266THI\266\303\\I\266\211TX\203?HI\266T\262\202'\266HSHTI\266\304\\HHI\266\302\211\207" [dhry-int-glob nil 5 30 20] 12 (#$ . 19923)]) #@34 (fn CH-1-PAR-VAL CH-2-PAR-VAL) (defalias 'dhry-func-1 #[514 "\301\211\262\262\211U\204\302\202\303\207" [dhry-ch-1-glob nil 0 1] 6 (#$ . 20229)]) #@36 (fn STR-1-PAR-REF STR-2-PAR-REF) (defalias 'dhry-func-2 #[514 "\301\211\302\262\302X\203#\303HTH\"\304U\203\305\262T\262\202\211\306Y\2032\211\307W\2032\310\262\211\311U\203<\312\202K\313\"\205K\310\\\262\312\207" [dhry-int-glob nil 2 dhry-func-1 0 65 87 90 7 82 t string>] 8 (#$ . 20394)]) #@21 (fn ENUM-PAR-VAL) (defalias 'dhry-func-3 #[257 "\300\262\211\301U\205 \302\207" [nil 2 t] 4 (#$ . 20719)]) #@39 (fn NUMBER-OF-RUNS &optional CHECK) (defalias 'dhrystone #[513 "\306\211\211\211\307\310\311\"\307\310\311\"\312\313\306\211#\312\313\306\211#D\314@! >\204)\315\316\313@D\"\210@\211\317\311I\266\314@! >\204B\315\316\313@D\"\210@\211\320\312\321\320\322\323$I\266A@\314! >\204a\315\316\313D\"\210\211\211\320\312\321\306\211\307\310\311\"$I\266\311\306\311\211\324\325\311\"@\324\325\311\"A\325\311\211W\203\240\211A\324\325\311\"I\266\211T\262\202\206\266A\326H\211\327\330I\266\331\311\332#\210\311\211W\203[\211\333 \210\334 \210\320\262 \335\262\331\311\336#\210\317\262\337\"?W\203\370\340_Z\262\341  \"\262T\262 \202\327\342@A \n$\210\343!\210\344 X\2031\345\346\"U\203*\347\311!\262\331\311\350#\210\262\nT\262\202 \266 _\262\245\262 Z\327_ Z\262\351 !\262 \210\211T\262\202\265\266\205\207\352\211\353\n\340#\210\211\354 \355#\210\211\356\f\344#\210\211\357 \360#\210\211\361@\326H\327#\210\211\362A\326H\327H \330\\#\210\211\363\314@! >\204\245\315\316\313@D\"\210@\317H\311#\210\211\364\314\211@! >\204\300\315\316\313@D\"\210@\320H!B>\204\346\315\316\321\314@! >\204\337\315\316\313@D\"\210@\320HD\"\210\314@! >\204\367\315\316\313@D\"\210@\320H\317H\320#\210\211\365\314\211@! >\204\315\316\313@D\"\210@\320H!B>\204:\315\316\321\314@! >\2043\315\316\313@D\"\210@\320HD\"\210\314@! >\204K\315\316\313@D\"\210@\320H\320H\366#\210\211\367\314\211@! >\204h\315\316\313@D\"\210@\320H!B>\204\216\315\316\321\314@! >\204\207\315\316\313@D\"\210@\320HD\"\210\314@! >\204\237\315\316\313@D\"\210@\320H\335H\323#\210\211\370A@\314! >\204\274\315\316\313D\"\210\211\317H\262\311#\210\211\371A@\314! >\204\330\315\316\313D\"\210\211\320H\262\314!B>\204\355\315\316\321D\"\210\211\317H\262\317#\210\211\372A@\314! >\204 \315\316\313D\"\210\211\320H\262\314!B>\204\315\316\321D\"\210\211\320H\262\373#\210\211\374A@\314! >\204:\315\316\313D\"\210\211\320H\262\314!B>\204O\315\316\321D\"\210\211\335H\262\323#\210\211\375\340#\210\211\376\377#\210\211\201C\327#\210\211\201D\317#\210\211\201E\332#\210\211\201F\336#\262\207" [dhry-ptr-glob cl-struct-dhry-record-tags dhry-int-glob dhry-bool-glob dhry-ch-1-glob dhry-ch-2-glob nil make-string 30 0 record dhry-record type-of signal wrong-type-argument 1 2 dhry-var-1 40 "DHRYSTONE PROGRAM, SOME STRING" make-vector 50 8 7 10 store-substring "DHRYSTONE PROGRAM, 1'ST STRING" dhry-proc-5 dhry-proc-4 3 "DHRYSTONE PROGRAM, 2'ND STRING" dhry-func-2 5 dhry-proc-7 dhry-proc-8 dhry-proc-1 65 dhry-func-1 67 dhry-proc-6 "DHRYSTONE PROGRAM, 3'RD STRING" dhry-proc-2 #[771 "\232?\205 \300\301$\207" [error "%s: %s, expected: %s"] 8 "\n\n(fn NAME VAL REF)"] "Int_Glob" "Bool_Glob" t "Ch_1_Glob" "Ch_2_Glob" 66 "Arr_1_Glob[8]" "Arr_2_Glob[8][7]" "Ptr_Glob->Discr" "Ptr_Glob->var_1->Enum_Comp" "Ptr-Glob->var_1->Int_Comp" 17 "Ptr_Glob->var_1->Str_Comp" "Next_Ptr_Glob->Discr" "Next_Ptr_Glob->var_1->Enum_Comp" "Next_Ptr_Glob->var_1->Int_Comp" 18 "Next_Ptr_Glob->var_1->Str_Comp" "Int_1_Loc" "Int_2_Loc" 13 dhry-arr-1-glob dhry-arr-2-glob cl-struct-dhry-var-1-tags "Int_3_Loc" "Enum_Loc" "Str_1_Loc" "Str_2_Loc"] 20 (#$ . 20837)]) (defalias 'elb-dhrystone-entry #[0 "\300\301!\207" [dhrystone 1000000] 2]) (provide 'elb-dhrystone)