/[gcl]/gcl/lsp/gcl_loop.data
ViewVC logotype

Diff of /gcl/lsp/gcl_loop.data

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC revision 1.3 by camm, Mon Sep 22 21:57:44 2003 UTC
# Line 3  Line 3 
3  (lisp::in-package :ansi-loop)#!  (lisp::in-package :ansi-loop)#!
4  (lisp::export (lisp::quote (lisp::loop ansi-loop::loop-finish)))#!  (lisp::export (lisp::quote (lisp::loop ansi-loop::loop-finish)))#!
5  (lisp::provide :loop)  (lisp::provide :loop)
6  #(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 ansi-loop::duplicatable-code-p 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::*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-no-into* ansi-loop::*loop-collection-cruft* ansi-loop::loop-body lisp::locally lisp::destructuring-bind 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." "LOOP code ran out where a form was expected." "LOOP clause is providing a value for the iteration,~@  #(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* lisp::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,~@
7                  however one was already established by a ~S clause." "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~@
                 however one was already established by a ~S clause." "~:[This LOOP~;The LOOP ~:*~S~] clause is not permitted inside a conditional." 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- lisp::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 :name :class :history :dtype "Incompatible kinds of LOOP value accumulation specified for collecting~@  
8                      ~:[as the value of the LOOP~;~:*INTO ~S~]: ~S and ~S." "Unequal datatypes specified in different LOOP value accumulations~@                      ~:[as the value of the LOOP~;~:*INTO ~S~]: ~S and ~S." "Unequal datatypes specified in different LOOP value accumulations~@
9                     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 := "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." lisp::the (lisp::nil lisp::nil lisp::nil) ansi-loop::loop-repeat- lisp::plusp lisp::1- (lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil) lisp::minusp (lisp::nil lisp::nil lisp::nil) 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::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 "~S bad variable pair in path USING phrase." "The variable substitution for ~S occurs twice in a USING phrase,~@                     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,~@
10                          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.~@                          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.~@
11                 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::<= 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 lisp::with-hash-table-iterator ansi-loop::loop-hash-key-temp- ansi-loop::loop-hash-val-temp- (:in :of) "Too many prepositions!" "Missing OF or IN in ~S iteration path." "Destructuring is not valid for package symbol iteration." ansi-loop::loop-pkgsym- ansi-loop::loop-pkgsym-next- 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))) ((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)) (lisp::by (ansi-loop::loop-for-arithmetic :by)) (ansi-loop::to (ansi-loop::loop-for-arithmetic :to)) (ansi-loop::upto (ansi-loop::loop-for-arithmetic :upto)) (ansi-loop::being (ansi-loop::loop-for-being))) ((ansi-loop::for (ansi-loop::loop-do-for)) (ansi-loop::as (ansi-loop::loop-do-for)) (ansi-loop::repeat (ansi-loop::loop-do-repeat))) (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)) ansi-loop::*loop-ansi-universe* lisp::subtypep ansi-loop::loop-gentemp ansi-loop::make-loop-minimax-internal ansi-loop::loop-typed-init lisp::max ansi-loop::hide-variable-reference lisp::string= lisp::typep lisp::eq ansi-loop::make-loop-universe ansi-loop::loop-make-psetq ansi-loop::loop-make-desetq 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::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-pseudo-body ansi-loop::loop-construct-return lisp::coerce ansi-loop::loop-tequal ansi-loop::loop-declare-variable ansi-loop::loop-make-variable ansi-loop::loop-constantp ansi-loop::loop-get-form ansi-loop::loop-disallow-conditional ansi-loop::loop-get-progn ansi-loop::loop-emit-body :tempvars :data ansi-loop::loop-optional-type lisp::find ansi-loop::loop-collector-name 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-when-it-variable ansi-loop::loop-constant-fold-if-possible ansi-loop::loop-make-iteration-variable 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 :fetch-function :size-function :sequence-type :element-type 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::mf (lisp::quote ansi-loop::loop-gentemp) 1) (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::mf (lisp::quote ansi-loop::hide-variable-references) 3) (system::mf (lisp::quote ansi-loop::hide-variable-reference) 4) (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 ansi-loop::copy-loop-minimax) (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 ansi-loop::loop-minimax-p) (lisp::quote lisp::nil)) (system::mf (lisp::quote ansi-loop::make-loop-minimax-internal) 8) (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::mf (lisp::quote ansi-loop::make-loop-minimax) 9) (system::mf (lisp::quote ansi-loop::loop-note-minimax-operation) 10) (system::putprop (lisp::quote ansi-loop::with-minimax-value) (lisp::quote 1) #0#) (system::mm (lisp::quote ansi-loop::with-minimax-value) 11) (system::mm (lisp::quote ansi-loop::loop-accumulate-minimax-value) 12) (system::mf (lisp::quote ansi-loop::loop-tequal) 13) (system::mf (lisp::quote ansi-loop::loop-tassoc) 14) (system::mf (lisp::quote ansi-loop::loop-tmember) 15) (system::mf (lisp::quote ansi-loop::loop-lookup-keyword) 16) (system::mm (lisp::quote ansi-loop::loop-store-table-data) 17) (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 ansi-loop::copy-loop-universe) (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 ansi-loop::loop-universe-p) (lisp::quote lisp::nil)) (system::mf (lisp::quote ansi-loop::make-loop-universe) 18) (system::mf (lisp::quote ansi-loop::print-loop-universe) 19) (system::*make-special (lisp::quote ansi-loop::*loop-universe*)) (system::mf (lisp::quote ansi-loop::make-standard-loop-universe) 20) (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:                 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::loop-gentemp ansi-loop::make-loop-minimax-internal ansi-loop::loop-typed-init lisp::max ansi-loop::hide-variable-reference lisp::string= lisp::typep lisp::eq ansi-loop::make-loop-universe ansi-loop::loop-make-psetq ansi-loop::loop-make-desetq 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 :tempvars :data 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 :fetch-function :size-function :sequence-type :element-type 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::mf (lisp::quote ansi-loop::loop-gentemp) 1) (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::mf (lisp::quote ansi-loop::hide-variable-references) 3) (system::mf (lisp::quote ansi-loop::hide-variable-reference) 4) (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::mf (lisp::quote ansi-loop::make-loop-minimax-internal) 8) (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::mf (lisp::quote ansi-loop::make-loop-minimax) 9) (system::mf (lisp::quote ansi-loop::loop-note-minimax-operation) 10) (system::putprop (lisp::quote ansi-loop::with-minimax-value) (lisp::quote 1) #0#) (system::mm (lisp::quote ansi-loop::with-minimax-value) 11) (system::mm (lisp::quote ansi-loop::loop-accumulate-minimax-value) 12) (system::mf (lisp::quote ansi-loop::loop-tequal) 13) (system::mf (lisp::quote ansi-loop::loop-tassoc) 14) (system::mf (lisp::quote ansi-loop::loop-tmember) 15) (system::mf (lisp::quote ansi-loop::loop-lookup-keyword) 16) (system::mm (lisp::quote ansi-loop::loop-store-table-data) 17) (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::mf (lisp::quote ansi-loop::make-loop-universe) 18) (system::mf (lisp::quote ansi-loop::print-loop-universe) 19) (system::*make-special (lisp::quote ansi-loop::*loop-universe*)) (system::mf (lisp::quote ansi-loop::make-standard-loop-universe) 20) (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:
12  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::mf (lisp::quote ansi-loop::loop-make-psetq) 21) (system::mf (lisp::quote ansi-loop::loop-make-desetq) 22) (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) 23) (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::*make-special (lisp::quote ansi-loop::*loop-collection-no-into*)) (system::mf (lisp::quote ansi-loop::loop-constant-fold-if-possible) 24) (system::mf (lisp::quote ansi-loop::loop-constantp) 25) (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::mf (lisp::quote ansi-loop::loop-code-duplication-threshold) 26) (system::mm (lisp::quote ansi-loop::loop-body) 27) (system::mf (lisp::quote ansi-loop::duplicatable-code-p) 28) (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::mf (lisp::quote ansi-loop::destructuring-size) 29) (system::mf (lisp::quote ansi-loop::estimate-code-size) 30) (system::mf (lisp::quote ansi-loop::estimate-code-size-1) 31) (system::mf (lisp::quote ansi-loop::loop-context) 32) (system::mf (lisp::quote ansi-loop::loop-error) 33) (system::mf (lisp::quote ansi-loop::loop-warn) 34) (system::mf (lisp::quote ansi-loop::loop-check-data-type) 35) (system::putprop (lisp::quote ansi-loop::loop-finish) "Causes the iteration to terminate \"normally\", the same as implicit  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::mf (lisp::quote ansi-loop::loop-make-psetq) 21) (system::mf (lisp::quote ansi-loop::loop-make-desetq) 22) (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) 23) (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) 24) (system::mf (lisp::quote ansi-loop::loop-constantp) 25) (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::mf (lisp::quote ansi-loop::loop-code-duplication-threshold) 26) (system::mm (lisp::quote ansi-loop::loop-body) 27) (system::mf (lisp::quote ansi-loop::duplicatable-code-p) 28) (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::mf (lisp::quote ansi-loop::destructuring-size) 29) (system::mf (lisp::quote ansi-loop::estimate-code-size) 30) (system::mf (lisp::quote ansi-loop::estimate-code-size-1) 31) (system::mf (lisp::quote ansi-loop::loop-context) 32) (system::mf (lisp::quote ansi-loop::loop-error) 33) (system::mf (lisp::quote ansi-loop::loop-warn) 34) (system::mf (lisp::quote ansi-loop::loop-check-data-type) 35) (system::putprop (lisp::quote ansi-loop::loop-finish) "Causes the iteration to terminate \"normally\", the same as implicit
13  termination by an iteration driving clause, or by use of WHILE or  termination by an iteration driving clause, or by use of WHILE or
14  UNTIL -- the epilogue code (if any) will be run, and any implicitly  UNTIL -- the epilogue code (if any) will be run, and any implicitly
15  collected result will be returned as the value of the LOOP." (lisp::quote system::function-documentation)) (system::mm (lisp::quote ansi-loop::loop-finish) 36) (system::mf (lisp::quote ansi-loop::loop-translate) 37) (system::mf (lisp::quote ansi-loop::loop-iteration-driver) 38) (system::mf (lisp::quote ansi-loop::loop-pop-source) 39) (system::mf (lisp::quote ansi-loop::loop-get-progn) 40) (system::mf (lisp::quote ansi-loop::loop-get-form) 41) (system::mf (lisp::quote ansi-loop::loop-construct-return) 42) (system::mf (lisp::quote ansi-loop::loop-pseudo-body) 43) (system::mf (lisp::quote ansi-loop::loop-emit-body) 44) (system::mf (lisp::quote ansi-loop::loop-emit-final-value) 45) (system::mf (lisp::quote ansi-loop::loop-disallow-conditional) 46) (system::mf (lisp::quote ansi-loop::loop-typed-init) 47) (system::mf (lisp::quote ansi-loop::loop-optional-type) 48) (system::mf (lisp::quote ansi-loop::loop-bind-block) 49) (system::mf (lisp::quote ansi-loop::loop-make-variable) 50) (system::mf (lisp::quote ansi-loop::loop-make-iteration-variable) 51) (system::mf (lisp::quote ansi-loop::loop-declare-variable) 52) (system::mf (lisp::quote ansi-loop::loop-maybe-bind-form) 53) (system::mf (lisp::quote ansi-loop::loop-do-if) 54) (system::mf (lisp::quote ansi-loop::loop-do-initially) 55) (system::mf (lisp::quote ansi-loop::loop-do-finally) 56) (system::mf (lisp::quote ansi-loop::loop-do-do) 57) (system::mf (lisp::quote ansi-loop::loop-do-named) 58) (system::mf (lisp::quote ansi-loop::loop-do-return) 59) (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 ansi-loop::copy-loop-collector) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (ansi-loop::make-loop-collector)) (lisp::quote 6) (lisp::quote ansi-loop::loop-collector-p) (lisp::quote lisp::nil)) (system::mf (lisp::quote ansi-loop::make-loop-collector) 60) (system::mf (lisp::quote ansi-loop::loop-get-collection-info) 61) (system::mf (lisp::quote ansi-loop::loop-list-collection) 62) (system::mf (lisp::quote ansi-loop::loop-sum-collection) 63) (system::mf (lisp::quote ansi-loop::loop-maxmin-collection) 64) (system::mf (lisp::quote ansi-loop::loop-do-always) 65) (system::mf (lisp::quote ansi-loop::loop-do-thereis) 66) (system::mf (lisp::quote ansi-loop::loop-do-while) 67) (system::mf (lisp::quote ansi-loop::loop-do-with) 68) (system::mf (lisp::quote ansi-loop::loop-hack-iteration) 69) (system::mf (lisp::quote ansi-loop::loop-do-for) 70) (system::mf (lisp::quote ansi-loop::loop-do-repeat) 71) (system::mf (lisp::quote ansi-loop::loop-when-it-variable) 72) (system::mf (lisp::quote ansi-loop::loop-ansi-for-equals) 73) (system::mf (lisp::quote ansi-loop::loop-for-across) 74) (system::mf (lisp::quote ansi-loop::loop-list-step) 75) (system::mf (lisp::quote ansi-loop::loop-for-on) 76) (system::mf (lisp::quote ansi-loop::loop-for-in) 77) (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 ansi-loop::copy-loop-path) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (ansi-loop::make-loop-path)) (lisp::quote 5) (lisp::quote ansi-loop::loop-path-p) (lisp::quote lisp::nil)) (system::mf (lisp::quote ansi-loop::make-loop-path) 78) (system::mf (lisp::quote ansi-loop::add-loop-path) 79) (system::mf (lisp::quote ansi-loop::loop-for-being) 80) (system::mf (lisp::quote ansi-loop::named-variable) 81) (system::mf (lisp::quote ansi-loop::loop-collect-prepositional-phrases) 82) (system::mf (lisp::quote ansi-loop::loop-sequencer) 83) (system::mf (lisp::quote ansi-loop::loop-for-arithmetic) 84) (system::mf (lisp::quote ansi-loop::loop-sequence-elements-path) 85) (system::mf (lisp::quote ansi-loop::loop-hash-table-iteration-path) 86) (system::mf (lisp::quote ansi-loop::loop-package-symbols-iteration-path) 87) (system::mf (lisp::quote ansi-loop::make-ansi-loop-universe) 88) (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::mf (lisp::quote ansi-loop::loop-standard-expansion) 89) (system::mm (lisp::quote lisp::loop) 90))))  collected result will be returned as the value of the LOOP." (lisp::quote system::function-documentation)) (system::mm (lisp::quote ansi-loop::loop-finish) 36) (system::mf (lisp::quote ansi-loop::subst-gensyms-for-nil) 37) (system::mf (lisp::quote ansi-loop::loop-build-destructuring-bindings) 38) (system::mf (lisp::quote ansi-loop::loop-translate) 39) (system::mf (lisp::quote ansi-loop::loop-iteration-driver) 40) (system::mf (lisp::quote ansi-loop::loop-pop-source) 41) (system::mf (lisp::quote ansi-loop::loop-get-compound-form) 42) (system::mf (lisp::quote ansi-loop::loop-get-progn) 43) (system::mf (lisp::quote ansi-loop::loop-get-form) 44) (system::mf (lisp::quote ansi-loop::loop-construct-return) 45) (system::mf (lisp::quote ansi-loop::loop-pseudo-body) 46) (system::mf (lisp::quote ansi-loop::loop-emit-body) 47) (system::mf (lisp::quote ansi-loop::loop-emit-final-value) 48) (system::mf (lisp::quote ansi-loop::loop-disallow-conditional) 49) (system::mf (lisp::quote ansi-loop::loop-disallow-anonymous-collectors) 50) (system::mf (lisp::quote ansi-loop::loop-disallow-aggregate-booleans) 51) (system::mf (lisp::quote ansi-loop::loop-typed-init) 52) (system::mf (lisp::quote ansi-loop::loop-optional-type) 53) (system::mf (lisp::quote ansi-loop::loop-bind-block) 54) (system::mf (lisp::quote ansi-loop::loop-variable-p) 55) (system::mf (lisp::quote ansi-loop::loop-make-variable) 56) (system::mf (lisp::quote ansi-loop::loop-make-iteration-variable) 57) (system::mf (lisp::quote ansi-loop::loop-declare-variable) 58) (system::mf (lisp::quote ansi-loop::loop-maybe-bind-form) 59) (system::mf (lisp::quote ansi-loop::loop-do-if) 60) (system::mf (lisp::quote ansi-loop::loop-do-initially) 61) (system::mf (lisp::quote ansi-loop::loop-do-finally) 62) (system::mf (lisp::quote ansi-loop::loop-do-do) 63) (system::mf (lisp::quote ansi-loop::loop-do-named) 64) (system::mf (lisp::quote ansi-loop::loop-do-return) 65) (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::mf (lisp::quote ansi-loop::make-loop-collector) 66) (system::mf (lisp::quote ansi-loop::loop-get-collection-info) 67) (system::mf (lisp::quote ansi-loop::loop-list-collection) 68) (system::mf (lisp::quote ansi-loop::loop-sum-collection) 69) (system::mf (lisp::quote ansi-loop::loop-maxmin-collection) 70) (system::mf (lisp::quote ansi-loop::loop-do-always) 71) (system::mf (lisp::quote ansi-loop::loop-do-thereis) 72) (system::mf (lisp::quote ansi-loop::loop-do-while) 73) (system::mf (lisp::quote ansi-loop::loop-do-with) 74) (system::mf (lisp::quote ansi-loop::loop-hack-iteration) 75) (system::mf (lisp::quote ansi-loop::loop-do-for) 76) (system::mf (lisp::quote ansi-loop::loop-do-repeat) 77) (system::mf (lisp::quote ansi-loop::loop-when-it-variable) 78) (system::mf (lisp::quote ansi-loop::loop-ansi-for-equals) 79) (system::mf (lisp::quote ansi-loop::loop-for-across) 80) (system::mf (lisp::quote ansi-loop::loop-list-step) 81) (system::mf (lisp::quote ansi-loop::loop-for-on) 82) (system::mf (lisp::quote ansi-loop::loop-for-in) 83) (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::mf (lisp::quote ansi-loop::make-loop-path) 84) (system::mf (lisp::quote ansi-loop::add-loop-path) 85) (system::mf (lisp::quote ansi-loop::loop-for-being) 86) (system::mf (lisp::quote ansi-loop::named-variable) 87) (system::mf (lisp::quote ansi-loop::loop-collect-prepositional-phrases) 88) (system::mf (lisp::quote ansi-loop::loop-sequencer) 89) (system::mf (lisp::quote ansi-loop::loop-for-arithmetic) 90) (system::mf (lisp::quote ansi-loop::loop-sequence-elements-path) 91) (system::mf (lisp::quote ansi-loop::loop-hash-table-iteration-path) 92) (system::mf (lisp::quote ansi-loop::loop-package-symbols-iteration-path) 93) (system::mf (lisp::quote ansi-loop::make-ansi-loop-universe) 94) (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::mf (lisp::quote ansi-loop::loop-standard-expansion) 95) (system::mm (lisp::quote lisp::loop) 96) (system::debug (lisp::quote ansi-loop::loop-gentemp) (lisp::quote (ansi-loop::pref))) (system::debug (lisp::quote ansi-loop::hide-variable-references) (lisp::quote (lisp::nil ansi-loop::form))) (system::debug (lisp::quote ansi-loop::hide-variable-reference) (lisp::quote (lisp::nil lisp::nil ansi-loop::form))) (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::make-loop-minimax) (lisp::quote (ansi-loop::answer-variable lisp::type))) (system::debug (lisp::quote ansi-loop::loop-note-minimax-operation) (lisp::quote (ansi-loop::operation ansi-loop::minimax #:g1393))) (system::debug (lisp::quote ansi-loop::loop-tequal) (lisp::quote (ansi-loop::x1 ansi-loop::x2))) (system::debug (lisp::quote ansi-loop::loop-tassoc) (lisp::quote (ansi-loop::kwd ansi-loop::alist))) (system::debug (lisp::quote ansi-loop::loop-tmember) (lisp::quote (ansi-loop::kwd lisp::list))) (system::debug (lisp::quote ansi-loop::loop-lookup-keyword) (lisp::quote (ansi-loop::loop-token ansi-loop::table))) (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::print-loop-universe) (lisp::quote (ansi-loop::u lisp::stream))) (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 lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil ansi-loop::size ansi-loop::ht ansi-loop::x #:g1409 #:g1411))) (system::debug (lisp::quote ansi-loop::loop-make-psetq) (lisp::quote (ansi-loop::frobs))) (system::debug (lisp::quote ansi-loop::loop-make-desetq) (lisp::quote (ansi-loop::var-val-pairs))) (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::loop-constantp) (lisp::quote (ansi-loop::form))) (system::debug (lisp::quote ansi-loop::loop-code-duplication-threshold) (lisp::quote (ansi-loop::env))) (system::debug (lisp::quote ansi-loop::duplicatable-code-p) (lisp::quote (ansi-loop::expr ansi-loop::env))) (system::debug (lisp::quote ansi-loop::destructuring-size) (lisp::quote (ansi-loop::x))) (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 #:g1466 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 (ansi-loop::tree #:g1478))) (system::debug (lisp::quote ansi-loop::loop-build-destructuring-bindings) (lisp::quote (ansi-loop::crocks ansi-loop::forms ansi-loop::*ignores*))) (system::debug (lisp::quote ansi-loop::loop-translate) (lisp::quote (ansi-loop::*loop-source-code* lisp::nil lisp::nil 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 ansi-loop::w))) (system::debug (lisp::quote ansi-loop::loop-construct-return) (lisp::quote (ansi-loop::form))) (system::debug (lisp::quote ansi-loop::loop-pseudo-body) (lisp::quote (ansi-loop::form))) (system::debug (lisp::quote ansi-loop::loop-emit-body) (lisp::quote (ansi-loop::form))) (system::debug (lisp::quote ansi-loop::loop-emit-final-value) (lisp::quote (ansi-loop::form ansi-loop::form-supplied-p #:g1498))) (system::debug (lisp::quote ansi-loop::loop-disallow-conditional) (lisp::quote (ansi-loop::kwd))) (system::debug (lisp::quote ansi-loop::loop-typed-init) (lisp::quote (ansi-loop::data-type))) (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 (#:g1499))) (system::debug (lisp::quote ansi-loop::loop-variable-p) (lisp::quote (ansi-loop::name))) (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 #:g1502))) (system::debug (lisp::quote ansi-loop::loop-make-iteration-variable) (lisp::quote (ansi-loop::name ansi-loop::initialization ansi-loop::dtype))) (system::debug (lisp::quote ansi-loop::loop-declare-variable) (lisp::quote (ansi-loop::name ansi-loop::dtype #:g1509))) (system::debug (lisp::quote ansi-loop::loop-maybe-bind-form) (lisp::quote (ansi-loop::form ansi-loop::data-type))) (system::debug (lisp::quote ansi-loop::loop-do-if) (lisp::quote (ansi-loop::for ansi-loop::negatep lisp::nil ansi-loop::it-p ansi-loop::first-clause-p))) (system::debug (lisp::quote ansi-loop::loop-do-initially) (lisp::quote (#:g1512))) (system::debug (lisp::quote ansi-loop::loop-do-finally) (lisp::quote (#:g1513))) (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 #:g1514))) (system::debug (lisp::quote ansi-loop::loop-list-collection) (lisp::quote (ansi-loop::specifically #:g1519))) (system::debug (lisp::quote ansi-loop::loop-sum-collection) (lisp::quote (ansi-loop::specifically ansi-loop::required-type ansi-loop::default-type))) (system::debug (lisp::quote ansi-loop::loop-maxmin-collection) (lisp::quote (ansi-loop::specifically #:g1522))) (system::debug (lisp::quote ansi-loop::loop-do-always) (lisp::quote (ansi-loop::restrictive ansi-loop::negate))) (system::debug (lisp::quote ansi-loop::loop-do-thereis) (lisp::quote (ansi-loop::restrictive))) (system::debug (lisp::quote ansi-loop::loop-do-while) (lisp::quote (ansi-loop::negate ansi-loop::kwd ansi-loop::form))) (system::debug (lisp::quote ansi-loop::loop-hack-iteration) (lisp::quote (ansi-loop::entry #:g1526))) (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 (#:g1531))) (system::debug (lisp::quote ansi-loop::loop-ansi-for-equals) (lisp::quote (ansi-loop::var ansi-loop::val ansi-loop::data-type))) (system::debug (lisp::quote ansi-loop::loop-for-across) (lisp::quote (ansi-loop::var ansi-loop::val ansi-loop::data-type ansi-loop::length-form ansi-loop::first-test lisp::step ansi-loop::pstep #:g1536))) (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::var ansi-loop::val ansi-loop::data-type ansi-loop::first-endtest))) (system::debug (lisp::quote ansi-loop::loop-for-in) (lisp::quote (ansi-loop::var ansi-loop::val ansi-loop::data-type 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::names lisp::function ansi-loop::universe ansi-loop::preposition-groups ansi-loop::inclusive-permitted ansi-loop::user-data lisp::nil lisp::nil lisp::nil ansi-loop::name #:g1547))) (system::debug (lisp::quote ansi-loop::loop-for-being) (lisp::quote (ansi-loop::var ansi-loop::val ansi-loop::data-type))) (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::using-allowed ansi-loop::initial-phrases lisp::nil ansi-loop::group))) (system::debug (lisp::quote ansi-loop::loop-sequencer) (lisp::quote (ansi-loop::indexv ansi-loop::indexv-type ansi-loop::indexv-user-specified-p lisp::variable ansi-loop::variable-type ansi-loop::sequence-variable ansi-loop::sequence-type ansi-loop::step-hack ansi-loop::default-top ansi-loop::prep-phrases #:g1559))) (system::debug (lisp::quote ansi-loop::loop-for-arithmetic) (lisp::quote (ansi-loop::var ansi-loop::val ansi-loop::data-type ansi-loop::kwd))) (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 (lisp::variable ansi-loop::data-type ansi-loop::prep-phrases ansi-loop::which lisp::nil ansi-loop::temp-val-var ansi-loop::temp-key-var ansi-loop::temp-predicate-var lisp::variable ansi-loop::bindings #:g1565))) (system::debug (lisp::quote ansi-loop::loop-package-symbols-iteration-path) (lisp::quote (lisp::variable ansi-loop::data-type ansi-loop::prep-phrases ansi-loop::symbol-types lisp::nil #:g1569))) (system::debug (lisp::quote ansi-loop::make-ansi-loop-universe) (lisp::quote (ansi-loop::extended-p))) (system::debug (lisp::quote ansi-loop::loop-standard-expansion) (lisp::quote (ansi-loop::keywords-and-forms ansi-loop::environment ansi-loop::universe))))))
16  )  )

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26