#(#! (lisp::in-package :ansi-loop)#! (lisp::export (lisp::quote (lisp::loop ansi-loop::loop-finish)))#! (lisp::provide :loop) #(lisp::copy-list ansi-loop::loopvar- ansi-loop::*loop-gentemp* lisp::let* (lisp::list lisp::nil) lisp::list (lisp::list* lisp::cons) (lisp::nil (lisp::quote lisp::nil)) lisp::when lisp::setf lisp::cdr lisp::setq lisp::last lisp::rplacd lisp::progn lisp::cddr lisp::cdddr lisp::cddddr ansi-loop::loop-minimax ansi-loop::*loop-minimax-type-infinities-alist* :test :answer-variable :type :temp-variable ansi-loop::loop-maxmin-temp- :flag-variable ansi-loop::loop-maxmin-flag- :operations :infinity-data lisp::let lisp::declare lisp::type lisp::min lisp::< lisp::> lisp::or lisp::not lisp::gethash lisp::symbol-name ansi-loop::loop-universe "Non-ANSI" "ANSI" "Extended-ANSI" "#<~S ~A>" lisp::*print-level* lisp::*print-length* (lisp::member lisp::nil lisp::t :extended) "" "The value of ~:@(~S~), ~:@(~S~), is not ~A." ansi-loop::ansi lisp::*error-output* "Please input the new value for the place ~:@(~S~): " "Now continuing ...~%" :keywords :for-keywords :iteration-keywords :path-keywords :ansi :implicit-for-required :type-keywords :type-symbols :size lisp::prog1 ansi-loop::*loop-destructuring-hooks* ansi-loop::loop-really-desetq lisp::car ansi-loop::*loop-desetq-temporary* "The form ~S evaluated to ~S, which was not of the anticipated type ~S." "LOOP-BODY called with non-synched before- and after-loop lists." ansi-loop::*loop-duplicate-code* ansi-loop::*loop-iteration-flag-variable* lisp::if (lisp::go lisp::return lisp::return-from) lisp::tagbody ansi-loop::next-loop ((lisp::go ansi-loop::next-loop)) ansi-loop::end-loop ansi-loop::estimate-code-size ansi-loop::*special-code-sizes* lisp::cond ansi-loop::desetq (lisp::setq lisp::psetq) lisp::go lisp::function lisp::multiple-value-setq lisp::return-from ansi-loop::*estimate-code-size-punt* ansi-loop::*loop-source-context* ansi-loop::*loop-source-code* :invalid-form "~?~%Current LOOP context:~{ ~S~}." "~?~%Current LOOP context:~{ ~S~}." "LOOP couldn't verify that ~S is a subtype of the required type ~S." "Specified data type ~S is not a subtype of ~S." (lisp::go ansi-loop::end-loop) ansi-loop::*ignores* ansi-loop::destructuring-bind lisp::ignore ansi-loop::*loop-macro-environment* ansi-loop::*loop-universe* ansi-loop::*loop-original-source-code* ansi-loop::*loop-iteration-variables* ansi-loop::*loop-variables* ansi-loop::*loop-nodeclare* ansi-loop::*loop-named-variables* ansi-loop::*loop-declarations* ansi-loop::*loop-desetq-crocks* ansi-loop::*loop-bind-stack* ansi-loop::*loop-prologue* ansi-loop::*loop-wrappers* ansi-loop::*loop-before-loop* ansi-loop::*loop-body* ansi-loop::*loop-emitted-body* ansi-loop::*loop-after-body* ansi-loop::*loop-epilogue* ansi-loop::*loop-after-epilogue* ansi-loop::*loop-final-value-culprit* ansi-loop::*loop-inside-conditional* ansi-loop::*loop-when-it-variable* ansi-loop::*loop-never-stepped-variable* ansi-loop::*loop-names* ansi-loop::*loop-collection-cruft* ansi-loop::loop-body lisp::locally lisp::block "~S found where LOOP keyword expected." (lisp::and ansi-loop::else) "Secondary clause misplaced at top level in LOOP macro: ~S ~S ~S ..." "~S is an unknown keyword in LOOP macro." "LOOP source code ran out when another token was expected." "Compound form expected, but found ~A." "LOOP code ran out where a form was expected." "LOOP clause is providing a value for the iteration,~@ however one was already established by a ~S clause." "~:[This LOOP~;The LOOP ~:*~S~] clause is not permitted inside a conditional." ansi-loop::loop-collector-name "This LOOP clause is not permitted with anonymous collectors." (ansi-loop::always ansi-loop::never ansi-loop::thereis) "This anonymous collection LOOP clause is not permitted with aggregate booleans." lisp::number lisp::float (lisp::complex lisp::float) ansi-loop::of-type "~S found where a LOOP keyword, LOOP type keyword, or LOOP type pattern expected." "~S found where a LOOP keyword or LOOP type keyword expected." "Destructuring type pattern ~S contains unrecognized type keyword ~S." "Destructuring type pattern ~S doesn't match variable pattern ~S." ansi-loop::loop-ignore- "Duplicated LOOP iteration variable ~S." "Duplicated variable ~S in LOOP parallel binding." "Bad variable ~S somewhere in LOOP." ansi-loop::loop-destructure- "Invalid LOOP variable passed in: ~S." ansi-loop::loop-bind- :else :end "~S found where keyword expected getting LOOP clause after ~S." ansi-loop::it "~S does not introduce a LOOP clause that can follow ~S." :and :initially :finally "~S is an invalid name for your LOOP." "The NAMED ~S clause occurs too late." "You may only use one NAMED clause in your loop: NAMED ~S ... NAMED ~S." ansi-loop::loop-collector ansi-loop::into "Value accumulation recipient name, ~S, is not a symbol." :key "Variable ~S cannot be used in INTO clause" :name :class :history :dtype "Incompatible kinds of LOOP value accumulation specified for collecting~@ ~:[as the value of the LOOP~;~:*INTO ~S~]: ~S and ~S." "Unequal datatypes specified in different LOOP value accumulations~@ into ~S: ~S and ~S." ansi-loop::loop-list-head- ansi-loop::loop-list-tail- ansi-loop::with-loop-list-collection-head ansi-loop::loop-collect-answer ansi-loop::loop-copylist* ansi-loop::loop-collect-rplacd ansi-loop::sum ansi-loop::loop-sum- lisp::count lisp::1+ lisp::+ ansi-loop::maxmin ansi-loop::*loop-real-data-type* ansi-loop::loop-maxmin- ansi-loop::with-minimax-value ansi-loop::loop-accumulate-minimax-value lisp::unless (lisp::go ansi-loop::end-loop) :with := "Variable ~S has already been used" "Iteration in LOOP follows body code." (lisp::go ansi-loop::end-loop) (lisp::go ansi-loop::end-loop) "~S is an unknown keyword in FOR or AS clause in LOOP." :repeat lisp::real lisp::minusp lisp::decf (lisp::go ansi-loop::end-loop) (lisp::go ansi-loop::end-loop) ansi-loop::loop-it- :then (lisp::nil lisp::nil) (lisp::nil lisp::nil) ansi-loop::loop-across-vector- ansi-loop::loop-across-index- lisp::vector lisp::the lisp::fixnum ansi-loop::loop-across-limit- lisp::length lisp::>= lisp::aref :by (lisp::function lisp::cdr) lisp::quote "Use of QUOTE around stepping function in LOOP will be left verbatim." lisp::funcall ansi-loop::loop-fn- lisp::atom ansi-loop::loop-list- lisp::endp ansi-loop::loop-path ansi-loop::universe :names :function :user-data :preposition-groups :inclusive-permitted (:each :the) (:its :each :his :her) "~S found where ITS or EACH expected in LOOP iteration path syntax." :in "Unrecognizable LOOP iteration path syntax. Missing EACH or THE?" "~S found where a LOOP iteration path name was expected." "~S is not the name of a LOOP iteration path." "\"Inclusive\" iteration is not possible with the ~S LOOP iteration path." :inclusive "Unused USING variables: ~S." (6 10) "Value passed back by LOOP iteration path function for path ~S has invalid length." "A ~S prepositional phrase occurs multiply for some LOOP clause." "Preposition ~S used when some other preposition has subsumed it." ansi-loop::using "The variable substitution for ~S occurs twice in a USING phrase,~@ with ~S and ~S." :downfrom :down :upfrom :up :upto :to :downto :above :below ansi-loop::loop-limit- ansi-loop::loop-step-by- "~S invalid preposition in sequencing or sequence path.~@ Invalid prepositions specified in iteration path descriptor or something?" "Conflicting stepping directions in LOOP sequencing path" "Missing OF or IN phrase in sequence path" (lisp::nil :up) ansi-loop::loop-seq-limit- "Don't know where to start stepping." lisp::1- lisp::<= lisp::- ((:from :upfrom :downfrom) (:to :upto :downto :above :below) (:by)) ansi-loop::index lisp::sequence (lisp::member ansi-loop::hash-key ansi-loop::hash-value) ansi-loop::which (:in :of) "Too many prepositions!" "Missing OF or IN in ~S iteration path." ansi-loop::loop-hashtab- ansi-loop::loop-hashtab-next- ansi-loop::hash-key ansi-loop::hash-value ansi-loop::loop-hash-val-temp- ansi-loop::loop-hash-key-temp- ansi-loop::loop-hash-predicate-var- lisp::with-hash-table-iterator lisp::multiple-value-bind "Too many prepositions!" (:in :of) "Unknow preposition ~S" "Destructuring is not valid for package symbol iteration." ansi-loop::loop-pkgsym- ansi-loop::loop-pkgsym-next- lisp::*package* lisp::with-package-iterator (ansi-loop::named (ansi-loop::loop-do-named)) (ansi-loop::initially (ansi-loop::loop-do-initially)) (ansi-loop::finally (ansi-loop::loop-do-finally)) (lisp::do (ansi-loop::loop-do-do)) (ansi-loop::doing (ansi-loop::loop-do-do)) (lisp::return (ansi-loop::loop-do-return)) (ansi-loop::collect (ansi-loop::loop-list-collection lisp::list)) (ansi-loop::collecting (ansi-loop::loop-list-collection lisp::list)) (lisp::append (ansi-loop::loop-list-collection lisp::append)) (ansi-loop::appending (ansi-loop::loop-list-collection lisp::append)) (lisp::nconc (ansi-loop::loop-list-collection lisp::nconc)) (ansi-loop::nconcing (ansi-loop::loop-list-collection lisp::nconc)) ansi-loop::loop-sum-collection ansi-loop::counting ((ansi-loop::sum (ansi-loop::loop-sum-collection ansi-loop::sum lisp::number lisp::number)) (ansi-loop::summing (ansi-loop::loop-sum-collection ansi-loop::sum lisp::number lisp::number)) (ansi-loop::maximize (ansi-loop::loop-maxmin-collection lisp::max)) (ansi-loop::minimize (ansi-loop::loop-maxmin-collection lisp::min)) (ansi-loop::maximizing (ansi-loop::loop-maxmin-collection lisp::max)) (ansi-loop::minimizing (ansi-loop::loop-maxmin-collection lisp::min)) (ansi-loop::always (ansi-loop::loop-do-always lisp::t lisp::nil)) (ansi-loop::never (ansi-loop::loop-do-always lisp::t lisp::t)) (ansi-loop::thereis (ansi-loop::loop-do-thereis lisp::t)) (ansi-loop::while (ansi-loop::loop-do-while lisp::nil :while)) (ansi-loop::until (ansi-loop::loop-do-while lisp::t :until)) (lisp::when (ansi-loop::loop-do-if lisp::when lisp::nil)) (lisp::if (ansi-loop::loop-do-if lisp::if lisp::nil)) (lisp::unless (ansi-loop::loop-do-if lisp::unless lisp::t)) (ansi-loop::with (ansi-loop::loop-do-with)) (ansi-loop::repeat (ansi-loop::loop-do-repeat))) ((lisp::= (ansi-loop::loop-ansi-for-equals)) (ansi-loop::across (ansi-loop::loop-for-across)) (ansi-loop::in (ansi-loop::loop-for-in)) (ansi-loop::on (ansi-loop::loop-for-on)) (ansi-loop::from (ansi-loop::loop-for-arithmetic :from)) (ansi-loop::downfrom (ansi-loop::loop-for-arithmetic :downfrom)) (ansi-loop::upfrom (ansi-loop::loop-for-arithmetic :upfrom)) (ansi-loop::below (ansi-loop::loop-for-arithmetic :below)) (ansi-loop::above (ansi-loop::loop-for-arithmetic :above)) (ansi-loop::to (ansi-loop::loop-for-arithmetic :to)) (ansi-loop::upto (ansi-loop::loop-for-arithmetic :upto)) (ansi-loop::downto (ansi-loop::loop-for-arithmetic :downto)) (lisp::by (ansi-loop::loop-for-arithmetic :by)) (ansi-loop::being (ansi-loop::loop-for-being))) ((ansi-loop::for (ansi-loop::loop-do-for)) (ansi-loop::as (ansi-loop::loop-do-for))) (lisp::array lisp::atom lisp::bignum lisp::bit lisp::bit-vector lisp::character lisp::compiled-function lisp::complex lisp::cons lisp::double-float lisp::fixnum lisp::float lisp::function lisp::hash-table lisp::integer lisp::keyword lisp::list lisp::long-float lisp::nil lisp::null lisp::number lisp::package lisp::pathname lisp::random-state lisp::ratio lisp::rational lisp::readtable lisp::sequence lisp::short-float lisp::simple-array lisp::simple-bit-vector lisp::simple-string lisp::simple-vector lisp::single-float lisp::standard-char lisp::stream lisp::string lisp::base-char lisp::symbol lisp::t lisp::vector) :extended (ansi-loop::hash-key ansi-loop::hash-keys) ansi-loop::loop-hash-table-iteration-path ((:of :in)) (:which ansi-loop::hash-key) (ansi-loop::hash-value ansi-loop::hash-values) ((:of :in)) (:which ansi-loop::hash-value) (lisp::symbol ansi-loop::symbols) ansi-loop::loop-package-symbols-iteration-path ((:of :in)) (:symbol-types (:internal :external :inherited)) (ansi-loop::external-symbol ansi-loop::external-symbols) ((:of :in)) (:symbol-types (:external)) (ansi-loop::present-symbol ansi-loop::present-symbols) ((:of :in)) (:symbol-types (:internal :external)) ansi-loop::*loop-ansi-universe* lisp::subtypep ansi-loop::make-loop-minimax-internal ansi-loop::loop-gentemp ansi-loop::loop-typed-init ansi-loop::hide-variable-reference lisp::max lisp::string= lisp::typep ansi-loop::make-loop-universe lisp::eq ansi-loop::loop-make-desetq ansi-loop::loop-make-psetq ansi-loop::loop-warn ansi-loop::loop-optimization-quantities ansi-loop::loop-code-duplication-threshold ansi-loop::destructuring-size ansi-loop::estimate-code-size-1 lisp::special-operator-p ansi-loop::loop-context lisp::specific-error lisp::warn ansi-loop::loop-error ansi-loop::subst-gensyms-for-nil ansi-loop::loop-build-destructuring-bindings ansi-loop::loop-iteration-driver ansi-loop::loop-bind-block ansi-loop::loop-pop-source ansi-loop::loop-lookup-keyword ansi-loop::loop-hack-iteration ansi-loop::loop-tmember ansi-loop::loop-get-form ansi-loop::loop-get-compound-form ansi-loop::loop-pseudo-body ansi-loop::loop-construct-return lisp::find-if-not lisp::coerce ansi-loop::loop-tequal ansi-loop::loop-declare-variable ansi-loop::loop-make-variable ansi-loop::loop-constantp ansi-loop::loop-disallow-conditional ansi-loop::loop-get-progn ansi-loop::loop-emit-body :data :tempvars ansi-loop::loop-optional-type ansi-loop::loop-disallow-aggregate-booleans lisp::find ansi-loop::loop-variable-p ansi-loop::make-loop-collector ansi-loop::loop-get-collection-info ansi-loop::loop-emit-final-value lisp::nconc lisp::append ansi-loop::loop-check-data-type ansi-loop::make-loop-minimax ansi-loop::loop-note-minimax-operation ansi-loop::loop-disallow-anonymous-collectors ansi-loop::loop-when-it-variable ansi-loop::loop-make-iteration-variable ansi-loop::loop-constant-fold-if-possible ansi-loop::loop-list-step system::structure-subtype-p ansi-loop::make-loop-path ansi-loop::loop-collect-prepositional-phrases ansi-loop::loop-tassoc lisp::delete :of :from ansi-loop::loop-sequencer :element-type :sequence-type :size-function :fetch-function ansi-loop::named-variable :which :symbol-types ansi-loop::make-standard-loop-universe ansi-loop::add-loop-path ansi-loop::loop-translate ansi-loop::loop-standard-expansion lisp::equal (system::%init . #((system::mm (lisp::quote ansi-loop::loop-copylist*) 0) (system::*make-special (lisp::quote ansi-loop::*loop-gentemp*)) (lisp::or (lisp::boundp (lisp::quote ansi-loop::*loop-gentemp*)) (lisp::setq ansi-loop::*loop-gentemp* lisp::nil)) (system::mfvfun (lisp::quote ansi-loop::loop-gentemp) 1 256) (system::*make-special (lisp::quote ansi-loop::*loop-real-data-type*)) (lisp::or (lisp::boundp (lisp::quote ansi-loop::*loop-real-data-type*)) (lisp::setq ansi-loop::*loop-real-data-type* (lisp::quote lisp::real))) (system::mf (lisp::quote ansi-loop::loop-optimization-quantities) 2) (system::mfsfun (lisp::quote ansi-loop::hide-variable-references) 3 2) (system::mfsfun (lisp::quote ansi-loop::hide-variable-reference) 4 3) (system::putprop (lisp::quote ansi-loop::with-loop-list-collection-head) (lisp::quote 1) #0=(lisp::quote system::pretty-print-format)) (system::mm (lisp::quote ansi-loop::with-loop-list-collection-head) 5) (system::mm (lisp::quote ansi-loop::loop-collect-rplacd) 6) (system::mm (lisp::quote ansi-loop::loop-collect-answer) 7) (system::define-structure (lisp::quote ansi-loop::loop-minimax) (lisp::quote ansi-loop::loop-minimax-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote ((ansi-loop::answer-variable lisp::nil lisp::t lisp::nil 0) (lisp::type lisp::nil lisp::t lisp::nil 1) (ansi-loop::temp-variable lisp::nil lisp::t lisp::nil 2) (ansi-loop::flag-variable lisp::nil lisp::t lisp::nil 3) (ansi-loop::operations lisp::nil lisp::t lisp::nil 4) (ansi-loop::infinity-data lisp::nil lisp::t lisp::nil 5))) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (ansi-loop::make-loop-minimax-internal)) (lisp::quote 6) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote ansi-loop::make-loop-minimax-internal) 8 16384 9) (system::*make-special (lisp::quote ansi-loop::*loop-minimax-type-infinities-alist*)) (lisp::or (lisp::boundp (lisp::quote ansi-loop::*loop-minimax-type-infinities-alist*)) (lisp::setq ansi-loop::*loop-minimax-type-infinities-alist* (lisp::quote ((lisp::fixnum lisp::most-positive-fixnum lisp::most-negative-fixnum))))) (system::mfsfun (lisp::quote ansi-loop::make-loop-minimax) 10 2) (system::mfsfun (lisp::quote ansi-loop::loop-note-minimax-operation) 11 2) (system::putprop (lisp::quote ansi-loop::with-minimax-value) (lisp::quote 1) #0#) (system::mm (lisp::quote ansi-loop::with-minimax-value) 12) (system::mm (lisp::quote ansi-loop::loop-accumulate-minimax-value) 13) (system::mfsfun (lisp::quote ansi-loop::loop-tequal) 14 2) (system::mfsfun (lisp::quote ansi-loop::loop-tassoc) 15 2) (system::mfsfun (lisp::quote ansi-loop::loop-tmember) 16 2) (system::mfsfun (lisp::quote ansi-loop::loop-lookup-keyword) 17 2) (system::mm (lisp::quote ansi-loop::loop-store-table-data) 18) (system::define-structure (lisp::quote ansi-loop::loop-universe) (lisp::quote ansi-loop::loop-universe-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote ((ansi-loop::keywords lisp::nil lisp::t lisp::nil 0) (ansi-loop::iteration-keywords lisp::nil lisp::t lisp::nil 1) (ansi-loop::for-keywords lisp::nil lisp::t lisp::nil 2) (ansi-loop::path-keywords lisp::nil lisp::t lisp::nil 3) (ansi-loop::type-symbols lisp::nil lisp::t lisp::nil 4) (ansi-loop::type-keywords lisp::nil lisp::t lisp::nil 5) (ansi-loop::ansi lisp::nil lisp::t lisp::nil 6) (ansi-loop::implicit-for-required lisp::nil lisp::t lisp::nil 7))) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote ansi-loop::print-loop-universe) (lisp::quote (ansi-loop::make-loop-universe)) (lisp::quote 8) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote ansi-loop::make-loop-universe) 19 16384 20) (system::mfsfun (lisp::quote ansi-loop::print-loop-universe) 21 3) (system::*make-special (lisp::quote ansi-loop::*loop-universe*)) (system::mfvfun-key (lisp::quote ansi-loop::make-standard-loop-universe) 22 16384 23) (system::*make-special (lisp::quote ansi-loop::*loop-destructuring-hooks*)) (system::putprop (lisp::quote ansi-loop::*loop-destructuring-hooks*) "If not NIL, this must be a list of two things: a LET-like macro, and a SETQ-like macro, which perform LOOP-style destructuring." (lisp::quote system::variable-documentation)) (lisp::or (lisp::boundp (lisp::quote ansi-loop::*loop-destructuring-hooks*)) (lisp::setq ansi-loop::*loop-destructuring-hooks* lisp::nil)) (system::mfsfun (lisp::quote ansi-loop::loop-make-psetq) 24 1) (system::mfsfun (lisp::quote ansi-loop::loop-make-desetq) 25 1) (system::*make-special (lisp::quote ansi-loop::*loop-desetq-temporary*)) (lisp::or (lisp::boundp (lisp::quote ansi-loop::*loop-desetq-temporary*)) (lisp::setq ansi-loop::*loop-desetq-temporary* (lisp::make-symbol "LOOP-DESETQ-TEMP"))) (system::mm (lisp::quote ansi-loop::loop-really-desetq) 26) (system::*make-special (lisp::quote ansi-loop::*loop-source-code*)) (system::*make-special (lisp::quote ansi-loop::*loop-original-source-code*)) (system::*make-special (lisp::quote ansi-loop::*loop-source-context*)) (system::*make-special (lisp::quote ansi-loop::*loop-names*)) (system::*make-special (lisp::quote ansi-loop::*loop-macro-environment*)) (system::*make-special (lisp::quote ansi-loop::*loop-named-variables*)) (system::*make-special (lisp::quote ansi-loop::*loop-variables*)) (system::*make-special (lisp::quote ansi-loop::*loop-declarations*)) (system::*make-special (lisp::quote ansi-loop::*loop-desetq-crocks*)) (system::*make-special (lisp::quote ansi-loop::*loop-wrappers*)) (system::*make-special (lisp::quote ansi-loop::*loop-bind-stack*)) (system::*make-special (lisp::quote ansi-loop::*loop-nodeclare*)) (system::*make-special (lisp::quote ansi-loop::*loop-iteration-variables*)) (system::*make-special (lisp::quote ansi-loop::*loop-prologue*)) (system::*make-special (lisp::quote ansi-loop::*loop-before-loop*)) (system::*make-special (lisp::quote ansi-loop::*loop-body*)) (system::*make-special (lisp::quote ansi-loop::*loop-after-body*)) (system::*make-special (lisp::quote ansi-loop::*loop-emitted-body*)) (system::*make-special (lisp::quote ansi-loop::*loop-epilogue*)) (system::*make-special (lisp::quote ansi-loop::*loop-after-epilogue*)) (system::*make-special (lisp::quote ansi-loop::*loop-final-value-culprit*)) (system::*make-special (lisp::quote ansi-loop::*loop-inside-conditional*)) (system::*make-special (lisp::quote ansi-loop::*loop-when-it-variable*)) (system::*make-special (lisp::quote ansi-loop::*loop-never-stepped-variable*)) (system::*make-special (lisp::quote ansi-loop::*loop-collection-cruft*)) (system::mf (lisp::quote ansi-loop::loop-constant-fold-if-possible) 27) (system::mfsfun (lisp::quote ansi-loop::loop-constantp) 28 1) (system::*make-special (lisp::quote ansi-loop::*loop-duplicate-code*)) (lisp::or (lisp::boundp (lisp::quote ansi-loop::*loop-duplicate-code*)) (lisp::setq ansi-loop::*loop-duplicate-code* lisp::nil)) (system::*make-special (lisp::quote ansi-loop::*loop-iteration-flag-variable*)) (lisp::or (lisp::boundp (lisp::quote ansi-loop::*loop-iteration-flag-variable*)) (lisp::setq ansi-loop::*loop-iteration-flag-variable* (lisp::make-symbol "LOOP-NOT-FIRST-TIME"))) (system::mfsfun (lisp::quote ansi-loop::loop-code-duplication-threshold) 29 1) (system::mm (lisp::quote ansi-loop::loop-body) 30) (system::mfsfun (lisp::quote ansi-loop::duplicatable-code-p) 31 258) (system::*make-special (lisp::quote ansi-loop::*special-code-sizes*)) (lisp::or (lisp::boundp (lisp::quote ansi-loop::*special-code-sizes*)) (lisp::setq ansi-loop::*special-code-sizes* (lisp::quote ((lisp::return 0) (lisp::progn 0) (lisp::null 1) (lisp::not 1) (lisp::eq 1) (lisp::car 1) (lisp::cdr 1) (lisp::when 1) (lisp::unless 1) (lisp::if 1) (lisp::caar 2) (lisp::cadr 2) (lisp::cdar 2) (lisp::cddr 2) (lisp::caaar 3) (lisp::caadr 3) (lisp::cadar 3) (lisp::caddr 3) (lisp::cdaar 3) (lisp::cdadr 3) (lisp::cddar 3) (lisp::cdddr 3) (lisp::caaaar 4) (lisp::caaadr 4) (lisp::caadar 4) (lisp::caaddr 4) (lisp::cadaar 4) (lisp::cadadr 4) (lisp::caddar 4) (lisp::cadddr 4) (lisp::cdaaar 4) (lisp::cdaadr 4) (lisp::cdadar 4) (lisp::cdaddr 4) (lisp::cddaar 4) (lisp::cddadr 4) (lisp::cdddar 4) (lisp::cddddr 4))))) (system::*make-special (lisp::quote ansi-loop::*estimate-code-size-punt*)) (lisp::or (lisp::boundp (lisp::quote ansi-loop::*estimate-code-size-punt*)) (lisp::setq ansi-loop::*estimate-code-size-punt* (lisp::quote (lisp::block lisp::do lisp::do* lisp::dolist lisp::flet lisp::labels lisp::lambda lisp::let lisp::let* lisp::locally lisp::macrolet lisp::multiple-value-bind lisp::prog lisp::prog* ansi-loop::symbol-macrolet lisp::tagbody lisp::unwind-protect lisp::with-open-file)))) (system::mfsfun (lisp::quote ansi-loop::destructuring-size) 32 1) (system::mf (lisp::quote ansi-loop::estimate-code-size) 33) (system::mf (lisp::quote ansi-loop::estimate-code-size-1) 34) (system::mfsfun (lisp::quote ansi-loop::loop-context) 35 0) (system::mf (lisp::quote ansi-loop::loop-error) 36) (system::mfvfun (lisp::quote ansi-loop::loop-warn) 37 16385) (system::mfvfun (lisp::quote ansi-loop::loop-check-data-type) 38 770) (system::putprop (lisp::quote ansi-loop::loop-finish) "Causes the iteration to terminate \"normally\", the same as implicit termination by an iteration driving clause, or by use of WHILE or UNTIL -- the epilogue code (if any) will be run, and any implicitly collected result will be returned as the value of the LOOP." (lisp::quote system::function-documentation)) (system::mm (lisp::quote ansi-loop::loop-finish) 39) (system::mfsfun (lisp::quote ansi-loop::subst-gensyms-for-nil) 40 1) (system::mfsfun (lisp::quote ansi-loop::loop-build-destructuring-bindings) 41 2) (system::mfsfun (lisp::quote ansi-loop::loop-translate) 42 3) (system::mfsfun (lisp::quote ansi-loop::loop-iteration-driver) 43 0) (system::mf (lisp::quote ansi-loop::loop-pop-source) 44) (system::mfsfun (lisp::quote ansi-loop::loop-get-compound-form) 45 0) (system::mfsfun (lisp::quote ansi-loop::loop-get-progn) 46 0) (system::mf (lisp::quote ansi-loop::loop-get-form) 47) (system::mfsfun (lisp::quote ansi-loop::loop-construct-return) 48 1) (system::mfsfun (lisp::quote ansi-loop::loop-pseudo-body) 49 1) (system::mfsfun (lisp::quote ansi-loop::loop-emit-body) 50 1) (system::mfvfun (lisp::quote ansi-loop::loop-emit-final-value) 51 256) (system::mf (lisp::quote ansi-loop::loop-disallow-conditional) 52) (system::mf (lisp::quote ansi-loop::loop-disallow-anonymous-collectors) 53) (system::mf (lisp::quote ansi-loop::loop-disallow-aggregate-booleans) 54) (system::mfsfun (lisp::quote ansi-loop::loop-typed-init) 55 1) (system::mf (lisp::quote ansi-loop::loop-optional-type) 56) (system::mfsfun (lisp::quote ansi-loop::loop-bind-block) 57 0) (system::mfsfun (lisp::quote ansi-loop::loop-variable-p) 58 1) (system::mfvfun (lisp::quote ansi-loop::loop-make-variable) 59 1027) (system::mfsfun (lisp::quote ansi-loop::loop-make-iteration-variable) 60 3) (system::mfsfun (lisp::quote ansi-loop::loop-declare-variable) 61 2) (system::mfsfun (lisp::quote ansi-loop::loop-maybe-bind-form) 62 2) (system::mfsfun (lisp::quote ansi-loop::loop-do-if) 63 2) (system::mfsfun (lisp::quote ansi-loop::loop-do-initially) 64 0) (system::mfsfun (lisp::quote ansi-loop::loop-do-finally) 65 0) (system::mfsfun (lisp::quote ansi-loop::loop-do-do) 66 0) (system::mfsfun (lisp::quote ansi-loop::loop-do-named) 67 0) (system::mfsfun (lisp::quote ansi-loop::loop-do-return) 68 0) (system::define-structure (lisp::quote ansi-loop::loop-collector) (lisp::quote ansi-loop::loop-collector-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote ((ansi-loop::name lisp::nil lisp::t lisp::nil 0) (lisp::class lisp::nil lisp::t lisp::nil 1) (ansi-loop::history lisp::nil lisp::t lisp::nil 2) (ansi-loop::tempvars lisp::nil lisp::t lisp::nil 3) (ansi-loop::dtype lisp::nil lisp::t lisp::nil 4) (ansi-loop::data lisp::nil lisp::t lisp::nil 5))) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (ansi-loop::make-loop-collector)) (lisp::quote 6) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote ansi-loop::make-loop-collector) 69 16384 70) (system::mf (lisp::quote ansi-loop::loop-get-collection-info) 71) (system::mfsfun (lisp::quote ansi-loop::loop-list-collection) 72 1) (system::mfsfun (lisp::quote ansi-loop::loop-sum-collection) 73 3) (system::mfsfun (lisp::quote ansi-loop::loop-maxmin-collection) 74 1) (system::mfsfun (lisp::quote ansi-loop::loop-do-always) 75 2) (system::mfsfun (lisp::quote ansi-loop::loop-do-thereis) 76 1) (system::mfsfun (lisp::quote ansi-loop::loop-do-while) 77 2) (system::mfsfun (lisp::quote ansi-loop::loop-do-with) 78 0) (system::mfsfun (lisp::quote ansi-loop::loop-hack-iteration) 79 1) (system::mf (lisp::quote ansi-loop::loop-do-for) 80) (system::mfsfun (lisp::quote ansi-loop::loop-do-repeat) 81 0) (system::mfsfun (lisp::quote ansi-loop::loop-when-it-variable) 82 0) (system::mfsfun (lisp::quote ansi-loop::loop-ansi-for-equals) 83 3) (system::mfsfun (lisp::quote ansi-loop::loop-for-across) 84 3) (system::mf (lisp::quote ansi-loop::loop-list-step) 85) (system::mfsfun (lisp::quote ansi-loop::loop-for-on) 86 3) (system::mfsfun (lisp::quote ansi-loop::loop-for-in) 87 3) (system::define-structure (lisp::quote ansi-loop::loop-path) (lisp::quote ansi-loop::loop-path-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote ((ansi-loop::names lisp::nil lisp::t lisp::nil 0) (ansi-loop::preposition-groups lisp::nil lisp::t lisp::nil 1) (ansi-loop::inclusive-permitted lisp::nil lisp::t lisp::nil 2) (lisp::function lisp::nil lisp::t lisp::nil 3) (ansi-loop::user-data lisp::nil lisp::t lisp::nil 4))) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (ansi-loop::make-loop-path)) (lisp::quote 5) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote ansi-loop::make-loop-path) 88 16384 89) (system::mfvfun-key (lisp::quote ansi-loop::add-loop-path) 90 16387 91) (system::mfsfun (lisp::quote ansi-loop::loop-for-being) 92 3) (system::mf (lisp::quote ansi-loop::named-variable) 93) (system::mfvfun (lisp::quote ansi-loop::loop-collect-prepositional-phrases) 94 769) (system::mfsfun (lisp::quote ansi-loop::loop-sequencer) 95 10) (system::mfsfun (lisp::quote ansi-loop::loop-for-arithmetic) 96 4) (system::mfvfun-key (lisp::quote ansi-loop::loop-sequence-elements-path) 97 16387 98) (system::mfvfun-key (lisp::quote ansi-loop::loop-hash-table-iteration-path) 99 16387 100) (system::mfvfun-key (lisp::quote ansi-loop::loop-package-symbols-iteration-path) 101 16387 102) (system::mfsfun (lisp::quote ansi-loop::make-ansi-loop-universe) 103 1) (system::*make-special (lisp::quote ansi-loop::*loop-ansi-universe*)) (lisp::setq ansi-loop::*loop-ansi-universe* (ansi-loop::make-ansi-loop-universe lisp::nil)) (system::mfsfun (lisp::quote ansi-loop::loop-standard-expansion) 104 3) (system::mm (lisp::quote lisp::loop) 105) (system::debug (lisp::quote ansi-loop::loop-gentemp) (lisp::quote (ansi-loop::pref))) (system::debug (lisp::quote ansi-loop::make-loop-minimax-internal) (lisp::quote (ansi-loop::answer-variable lisp::type ansi-loop::temp-variable ansi-loop::flag-variable ansi-loop::operations ansi-loop::infinity-data))) (system::debug (lisp::quote ansi-loop::loop-note-minimax-operation) (lisp::quote (#:g1394))) (system::debug (lisp::quote ansi-loop::make-loop-universe) (lisp::quote (ansi-loop::keywords ansi-loop::iteration-keywords ansi-loop::for-keywords ansi-loop::path-keywords ansi-loop::type-symbols ansi-loop::type-keywords ansi-loop::ansi ansi-loop::implicit-for-required))) (system::debug (lisp::quote ansi-loop::make-standard-loop-universe) (lisp::quote (ansi-loop::keywords ansi-loop::for-keywords ansi-loop::iteration-keywords ansi-loop::path-keywords ansi-loop::type-keywords ansi-loop::type-symbols ansi-loop::ansi))) (system::debug (lisp::quote ansi-loop::loop-constant-fold-if-possible) (lisp::quote (ansi-loop::form ansi-loop::expected-type))) (system::debug (lisp::quote ansi-loop::estimate-code-size) (lisp::quote (ansi-loop::x ansi-loop::env))) (system::debug (lisp::quote ansi-loop::estimate-code-size-1) (lisp::quote (ansi-loop::x ansi-loop::env #:g1514 ansi-loop::clause))) (system::debug (lisp::quote ansi-loop::loop-error) (lisp::quote (ansi-loop::format-string ansi-loop::format-args))) (system::debug (lisp::quote ansi-loop::loop-warn) (lisp::quote (ansi-loop::format-string ansi-loop::format-args))) (system::debug (lisp::quote ansi-loop::loop-check-data-type) (lisp::quote (ansi-loop::specified-type ansi-loop::required-type ansi-loop::default-type))) (system::debug (lisp::quote ansi-loop::subst-gensyms-for-nil) (lisp::quote (#:g1522))) (system::debug (lisp::quote ansi-loop::loop-build-destructuring-bindings) (lisp::quote (ansi-loop::*ignores*))) (system::debug (lisp::quote ansi-loop::loop-translate) (lisp::quote (lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil ansi-loop::*loop-bind-stack* ansi-loop::*loop-prologue* lisp::nil ansi-loop::*loop-before-loop* ansi-loop::*loop-body* lisp::nil ansi-loop::*loop-after-body* ansi-loop::*loop-epilogue* ansi-loop::*loop-after-epilogue* lisp::nil lisp::nil lisp::nil lisp::nil ansi-loop::*loop-names* lisp::nil ansi-loop::entry #:g1531))) (system::debug (lisp::quote ansi-loop::loop-emit-final-value) (lisp::quote (#:g1542))) (system::debug (lisp::quote ansi-loop::loop-disallow-conditional) (lisp::quote (ansi-loop::kwd))) (system::debug (lisp::quote ansi-loop::loop-optional-type) (lisp::quote (lisp::variable ansi-loop::z))) (system::debug (lisp::quote ansi-loop::loop-bind-block) (lisp::quote (#:g1543))) (system::debug (lisp::quote ansi-loop::loop-make-variable) (lisp::quote (ansi-loop::name ansi-loop::initialization ansi-loop::dtype ansi-loop::iteration-variable-p))) (system::debug (lisp::quote ansi-loop::loop-declare-variable) (lisp::quote (#:g1553))) (system::debug (lisp::quote ansi-loop::loop-do-if) (lisp::quote (lisp::nil ansi-loop::it-p ansi-loop::first-clause-p))) (system::debug (lisp::quote ansi-loop::loop-do-initially) (lisp::quote (#:g1556))) (system::debug (lisp::quote ansi-loop::loop-do-finally) (lisp::quote (#:g1557))) (system::debug (lisp::quote ansi-loop::make-loop-collector) (lisp::quote (ansi-loop::name lisp::class ansi-loop::history ansi-loop::tempvars ansi-loop::dtype ansi-loop::data))) (system::debug (lisp::quote ansi-loop::loop-get-collection-info) (lisp::quote (ansi-loop::collector lisp::class ansi-loop::default-type #:g1561))) (system::debug (lisp::quote ansi-loop::loop-list-collection) (lisp::quote (#:g1563))) (system::debug (lisp::quote ansi-loop::loop-maxmin-collection) (lisp::quote (#:g1566))) (system::debug (lisp::quote ansi-loop::loop-do-while) (lisp::quote (ansi-loop::form))) (system::debug (lisp::quote ansi-loop::loop-hack-iteration) (lisp::quote (#:g1576))) (system::debug (lisp::quote ansi-loop::loop-do-for) (lisp::quote (ansi-loop::var ansi-loop::data-type lisp::keyword))) (system::debug (lisp::quote ansi-loop::loop-do-repeat) (lisp::quote (#:g1581))) (system::debug (lisp::quote ansi-loop::loop-for-across) (lisp::quote (ansi-loop::length-form ansi-loop::first-test lisp::step ansi-loop::pstep #:g1586))) (system::debug (lisp::quote ansi-loop::loop-list-step) (lisp::quote (ansi-loop::listvar))) (system::debug (lisp::quote ansi-loop::loop-for-on) (lisp::quote (ansi-loop::first-endtest))) (system::debug (lisp::quote ansi-loop::loop-for-in) (lisp::quote (ansi-loop::first-endtest lisp::step ansi-loop::pseudo-step))) (system::debug (lisp::quote ansi-loop::make-loop-path) (lisp::quote (ansi-loop::names ansi-loop::preposition-groups ansi-loop::inclusive-permitted lisp::function ansi-loop::user-data))) (system::debug (lisp::quote ansi-loop::add-loop-path) (lisp::quote (ansi-loop::name lisp::function ansi-loop::universe ansi-loop::preposition-groups ansi-loop::inclusive-permitted ansi-loop::user-data))) (system::debug (lisp::quote ansi-loop::named-variable) (lisp::quote (ansi-loop::name))) (system::debug (lisp::quote ansi-loop::loop-collect-prepositional-phrases) (lisp::quote (ansi-loop::preposition-groups ansi-loop::group ansi-loop::initial-phrases))) (system::debug (lisp::quote ansi-loop::loop-sequencer) (lisp::quote (#:g1617))) (system::debug (lisp::quote ansi-loop::loop-sequence-elements-path) (lisp::quote (lisp::variable ansi-loop::data-type ansi-loop::prep-phrases ansi-loop::fetch-function ansi-loop::size-function ansi-loop::sequence-type ansi-loop::element-type))) (system::debug (lisp::quote ansi-loop::loop-hash-table-iteration-path) (lisp::quote (ansi-loop::temp-val-var ansi-loop::temp-key-var ansi-loop::temp-predicate-var lisp::variable ansi-loop::bindings #:g1622))) (system::debug (lisp::quote ansi-loop::loop-package-symbols-iteration-path) (lisp::quote (#:g1626 ansi-loop::data-type ansi-loop::prep-phrases ansi-loop::symbol-types)))))) )