Runtime performance issue

[Plamen Stamov]

Hello,

I need to create a web-gui for an existing Lisp application and looked
around for existing web-frameworks. I liked the ideas behind weblocks,
but never had the occasion until now to use it for something real. I
downloaded it today and after some twaeks to make it run (on LW 5.1.2/
Windows/32-bit), I stumbled upon the performance of the demo
application, even after minutes of clicking around, to avoid
inefficiencies, coming from compiling or preloading some data on
startup of the demo :

1. to switch between the "Employees" and "Companies" views takes on my
computer about 14 seconds;
2. to switch back to the "Employess" view takes the same 14 seconds;
3. to sort the emloyees by whatever takes about 4 seconds;
4. when i delete one of the employees, it takes about 5 seconds to get
the confirmation box and another 5 to update the data in the browser;
5. clicking on "select all" above the employess' table, which has 2
rows at that moment takes about 4 seconds;
6.clicking on the "refresh"-button in firefox 3.0.7 after that,
produces a request to the server, which takes 18 seconds to complete.

In every single case - the CPU is going between 50% (for the most) and
up to 99% for the rest time of the processing of the client request.
The processing time is eaten in the weblocks-server running in the
LispWorks-image. The computer I use is a dual-core 2.4ghz with 3gb ram
and WinXP.

I'm really new to weblocks, so my question: is this cpu/time-burning
something inherent to the current architecture of weblocks, if yes -
is there a hope to have it better? Or is it connected with the demo
itself? Or can it be connected with the fact, that i didn't install it
using clbuild, but loading all the newest versions of weblocks and the
required libraries manually?

With best regards
Plamen

[Vyacheslav Akhmechet]

On Fri, Mar 20, 2009 at 12:00 PM, Plamen Stamov <plamen...@gmail.com> wrote:
> I'm really new to weblocks, so my question: is this cpu/time-burning
> something inherent to the current architecture of weblocks, if yes -
> is there a hope to have it better?

Something's wrong. All the actions you mentioned should take no more
than a split second. I've never encountered this before, and I did
some testing on Lispworks.

Do you have access to a profiler that you could run to narrow down the problem?

[Plamen Stamov]

Thank you for the quick reply, Vyacheslav, now I'll try to profile a
bit around... (Which could take some time, because I don't know yet
the inner parts of Weblocks).

But, the first suspectible thing I see is a bunch of warnings from CL-
CONT (below is my compile-log from LispWorks), and a warning from
Fare's Matcher, that multiple-value-call is inefficient...Is it
possible, that my server is somehow still interpreting Lisp and the
continuations?

Regards,
Plamen


CL-USER 1 > (asdf :weblocks-demo)
; loading system definition from d:\ue31057\old\base\external\site
\weblocks-stable\examples\weblocks-demo\weblocks-demo.asd into #<The
ASDF0 package, 0/16 internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\weblocks-stable
\examples\weblocks-demo\weblocks-demo.asd
; registering #<SYSTEM WEBLOCKS-DEMO 21F9B38B> as WEBLOCKS-DEMO
;; Creating system COMMON-LISP-USER::WEBLOCKS-DEMO->CONF
;; Creating system COMMON-LISP-USER::WEBLOCKS-DEMO->SRC->MODEL
;; Creating system COMMON-LISP-USER::WEBLOCKS-DEMO->SRC
;; Creating system COMMON-LISP-USER::WEBLOCKS-DEMO
; loading system definition from d:\ue31057\old\base\external\site
\metatilities\metatilities.asd into #<The ASDF0 package, 0/16
internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\metatilities
\metatilities.asd
; loading system definition from d:\ue31057\old\base\external\site
\asdf-system-connections\asdf-system-connections.asd into #<The ASDF1
package, 0/16 internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\asdf-system-
connections\asdf-system-connections.asd
; registering #<SYSTEM ASDF-SYSTEM-CONNECTIONS 22014377> as ASDF-
SYSTEM-CONNECTIONS
;; Creating system COMMON-LISP-USER::ASDF-SYSTEM-CONNECTIONS->DEV
;;; Compiling file d:\ue31057\old\base\external\site\asdf-system-
connections\dev\asdf-system-connections.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; (LISPWORKS:TOP-LEVEL-FORM 2)
; (DEFCLASS ASDF::SYSTEM-CONNECTION)
; MAP-SYSTEM-CONNECTIONS
; DEFSYSTEM-CONNECTION
; ASDF::LOAD-CONNECTED-SYSTEMS
; ASDF::REQUIRED-SYSTEMS-LOADED-P
; ASDF::SYSTEM-LOADED-P
; (METHOD PERFORM :AROUND (LOAD-OP SYSTEM))
; (METHOD OPERATION-DONE-P :AROUND (LOAD-OP SYSTEM))
; ASDF::FIND-SYSTEM-IN-MEMORY
; (LISPWORKS:TOP-LEVEL-FORM 12)
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\asdf-system-connections\dev\asdf-system-
connections.ofasl
; registering #<SYSTEM METATILITIES 2009E443> as METATILITIES
; registering #<ASDF::SYSTEM-CONNECTION LIFT-AND-METATILITIES
200EF24F> as LIFT-AND-METATILITIES
;; Creating system COMMON-LISP-USER::LIFT-AND-METATILITIES
; loading system definition from d:\ue31057\old\base\external\site
\metabang-bind\metabang-bind.asd into #<The ASDF0 package, 0/16
internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\metabang-bind
\metabang-bind.asd
; registering #<SYSTEM METABANG-BIND 2008DC0F> as METABANG-BIND
;; Creating system COMMON-LISP-USER::METABANG-BIND->DEV
;; Creating system COMMON-LISP-USER::METABANG-BIND
; registering #<ASDF::SYSTEM-CONNECTION BIND-AND-METATILITIES
200FBE6B> as BIND-AND-METATILITIES
;; Creating system COMMON-LISP-USER::BIND-AND-METATILITIES
; registering #<ASDF::SYSTEM-CONNECTION BIND-AND-CL-PPCRE 200CAA87> as
BIND-AND-CL-PPCRE
;; Creating system COMMON-LISP-USER::BIND-AND-CL-PPCRE->BIND-AND-CL-
PPCRE
;; Creating system COMMON-LISP-USER::BIND-AND-CL-PPCRE
; loading system definition from d:\ue31057\old\base\external\site\cl-
containers\cl-containers.asd into #<The ASDF0 package, 0/16 internal,
0/16 external>
; Loading text file d:\ue31057\old\base\external\site\cl-containers\cl-
containers.asd
; registering #<SYSTEM CL-CONTAINERS 200F6FAF> as CL-CONTAINERS
; registering #<ASDF::SYSTEM-CONNECTION CONTAINERS-MOPTILITIES
200B3F63> as CONTAINERS-MOPTILITIES
;; Creating system COMMON-LISP-USER::CONTAINERS-MOPTILITIES->DEV
;; Creating system COMMON-LISP-USER::CONTAINERS-MOPTILITIES
; registering #<ASDF::SYSTEM-CONNECTION CONTAINERS-AND-UTILITIES
20089373> as CONTAINERS-AND-UTILITIES
;; Creating system COMMON-LISP-USER::CONTAINERS-AND-UTILITIES->DEV
;; Creating system COMMON-LISP-USER::CONTAINERS-AND-UTILITIES
; registering #<ASDF::SYSTEM-CONNECTION CONTAINERS-AND-VARIATES
200B94F7> as CONTAINERS-AND-VARIATES
;; Creating system COMMON-LISP-USER::CONTAINERS-AND-VARIATES->DEV
;; Creating system COMMON-LISP-USER::CONTAINERS-AND-VARIATES
; registering #<ASDF::SYSTEM-CONNECTION CONTAINERS-AND-METACOPY
2008CECF> as CONTAINERS-AND-METACOPY
;; Creating system COMMON-LISP-USER::CONTAINERS-AND-METACOPY->DEV
;; Creating system COMMON-LISP-USER::CONTAINERS-AND-METACOPY
; registering #<ASDF::SYSTEM-CONNECTION CONTAINERS-AND-DYNAMIC-CLASSES
200AB643> as CONTAINERS-AND-DYNAMIC-CLASSES
;; Creating system COMMON-LISP-USER::CONTAINERS-AND-DYNAMIC-CLASSES-
>DEV
;; Creating system COMMON-LISP-USER::CONTAINERS-AND-DYNAMIC-CLASSES
; loading system definition from d:\ue31057\old\base\external\site
\metatilities-base\metatilities-base.asd into #<The ASDF0 package,
0/16 internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\metatilities-base
\metatilities-base.asd
; registering #<SYSTEM METATILITIES-BASE 2201FCCB> as METATILITIES-
BASE
;; Creating system COMMON-LISP-USER::METATILITIES-BASE->SETUP
;; Creating system COMMON-LISP-USER::METATILITIES-BASE->DEV
;; Creating system COMMON-LISP-USER::METATILITIES-BASE
; loading system definition from d:\ue31057\old\base\external\site
\moptilities\moptilities.asd into #<The ASDF0 package, 0/16 internal,
0/16 external>
; Loading text file d:\ue31057\old\base\external\site\moptilities
\moptilities.asd
; registering #<SYSTEM MOPTILITIES 22020D1B> as MOPTILITIES
; loading system definition from d:\ue31057\old\base\external\site
\closer-mop_0.55\closer-mop.asd into #<The ASDF0 package, 0/16
internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\closer-
mop_0.55\closer-mop.asd
; registering #<SYSTEM #:CLOSER-MOP 2202289B> as CLOSER-MOP
;; Creating system COMMON-LISP-USER::CLOSER-MOP->LISPWORKS
;; Creating system COMMON-LISP-USER::CLOSER-MOP
; loading system definition from d:\ue31057\old\base\external\site
\weblocks-stable\weblocks.asd into #<The ASDF0 package, 0/16 internal,
0/16 external>
; Loading text file d:\ue31057\old\base\external\site\weblocks-stable
\weblocks.asd
; registering #<SYSTEM WEBLOCKS 2201CCAF> as WEBLOCKS
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->UTILS
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->SNIPPETS
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->LINGUISTIC
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->VIEWS->VIEW
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->VIEWS->FORMVIEW
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->VIEWS->TYPES-
>PRESENTATIONS
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->VIEWS->TYPES-
>PARSERS
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->VIEWS->TYPES
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->VIEWS
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->STORE
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->WIDGETS->WIDGET
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->WIDGETS->DATASEQ
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->WIDGETS->DATAGRID
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->WIDGETS->DATAEDIT
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->WIDGETS
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC->CONTROL-FLOW
;; Creating system COMMON-LISP-USER::WEBLOCKS->SRC
;; Creating system COMMON-LISP-USER::WEBLOCKS
; registering #<ASDF::SYSTEM-CONNECTION WEBLOCKS+HTML-TEMPLATE
20099F8F> as WEBLOCKS+HTML-TEMPLATE
;; Creating system COMMON-LISP-USER::WEBLOCKS+HTML-TEMPLATE->SRC
;; Creating system COMMON-LISP-USER::WEBLOCKS+HTML-TEMPLATE
Warning: (DEFCLASS TEST-OP) being redefined in d:\ue31057\old\base
\external\site\weblocks-stable\weblocks.asd (previously in d:
\ue31057\old\base\dev\startup\lib\asdf\asdf.lisp).
Warning: (METHOD PERFORM (TEST-OP (EQL (FIND-SYSTEM :WEBLOCKS))))
defined more than once in d:\ue31057\old\base\external\site\weblocks-
stable\weblocks.asd.
Warning: (METHOD OPERATION-DONE-P (TEST-OP (EQL (FIND-
SYSTEM :WEBLOCKS)))) defined more than once in d:\ue31057\old\base
\external\site\weblocks-stable\weblocks.asd.
; loading system definition from d:\ue31057\old\base\external\site
\bordeaux-threads_0.5.1\bordeaux-threads.asd into #<The ASDF0 package,
0/16 internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\bordeaux-
threads_0.5.1\bordeaux-threads.asd
; registering #<SYSTEM BORDEAUX-THREADS 2201FEEF> as BORDEAUX-THREADS
;; Creating system COMMON-LISP-USER::BORDEAUX-THREADS->SRC
;; Creating system COMMON-LISP-USER::BORDEAUX-THREADS
; registering #<SYSTEM BORDEAUX-THREADS-TEST 200E1483> as BORDEAUX-
THREADS-TEST
;; Creating system COMMON-LISP-USER::BORDEAUX-THREADS-TEST->TEST
;; Creating system COMMON-LISP-USER::BORDEAUX-THREADS-TEST
; loading system definition from d:\ue31057\old\base\external\site\f-
underscore\f-underscore.asd into #<The ASDF0 package, 0/16 internal,
0/16 external>
; Loading text file d:\ue31057\old\base\external\site\f-underscore\f-
underscore.asd
; registering #<SYSTEM F-UNDERSCORE 220231DB> as F-UNDERSCORE
;; Creating system COMMON-LISP-USER::F-UNDERSCORE
; loading system definition from d:\ue31057\old\base\external\site
\anaphora-0.9.3\anaphora.asd into #<The ASDF0 package, 0/16 internal,
0/16 external>
; Loading text file d:\ue31057\old\base\external\site
\anaphora-0.9.3\anaphora.asd
; registering #<SYSTEM :ANAPHORA 21F93213> as ANAPHORA
;; Creating system COMMON-LISP-USER::ANAPHORA
; registering #<SYSTEM :ANAPHORA-TEST 2008EB57> as ANAPHORA-TEST
;; Creating system COMMON-LISP-USER::ANAPHORA-TEST
; loading system definition from d:\ue31057\old\base\external\site
\parenscript-20090216\parenscript.asd into #<The ASDF0 package, 0/16
internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site
\parenscript-20090216\parenscript.asd
; registering #<SYSTEM :PARENSCRIPT 2202133B> as PARENSCRIPT
; registering #<SYSTEM :PARENSCRIPT.TEST 200F01F7> as PARENSCRIPT.TEST
;; Creating system COMMON-LISP-USER::PARENSCRIPT.TEST->T
;; Creating system COMMON-LISP-USER::PARENSCRIPT.TEST
; loading system definition from d:\ue31057\old\base\external\site\cl-
cont\cl-cont.asd into #<The ASDF0 package, 0/16 internal, 0/16
external>
; Loading text file d:\ue31057\old\base\external\site\cl-cont\cl-
cont.asd
; registering #<SYSTEM CL-CONT 22029A1F> as CL-CONT
;; Creating system COMMON-LISP-USER::CL-CONT->SRC
;; Creating system COMMON-LISP-USER::CL-CONT
; loading system definition from d:\ue31057\old\base\external\site
\fare-matcher\fare-matcher.asd into #<The ASDF0 package, 0/16
internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\fare-matcher
\fare-matcher.asd
; registering #<ASDF:SYSTEM :FARE-MATCHER 21F8D9CB> as FARE-MATCHER
;; Creating system COMMON-LISP-USER::FARE-MATCHER
; loading system definition from d:\ue31057\old\base\external\site
\fare-utils\fare-utils.asd into #<The ASDF0 package, 0/16 internal,
0/16 external>
; Loading text file d:\ue31057\old\base\external\site\fare-utils\fare-
utils.asd
; registering #<ASDF:SYSTEM :FARE-UTILS 22022DFF> as FARE-UTILS
;; Creating system FARE-UTILS
; loading system definition from d:\ue31057\old\base\external\site
\md5-1.8.5\md5.asd into #<The ASDF0 package, 0/16 internal, 0/16
external>
; Loading text file d:\ue31057\old\base\external\site
\md5-1.8.5\md5.asd
; registering #<SYSTEM MD5 22021EE7> as MD5
;; Creating system COMMON-LISP-USER::MD5
; loading system definition from d:\ue31057\old\base\external\site
\portableaserve\libs\puri-1.3.1\puri.asd into #<The ASDF0 package,
0/16 internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\portableaserve
\libs\puri-1.3.1\puri.asd
; registering #<SYSTEM PURI 2008970F> as PURI
;; Creating system COMMON-LISP-USER::PURI
; registering #<SYSTEM PURI-TESTS 200AE00B> as PURI-TESTS
;; Creating system COMMON-LISP-USER::PURI-TESTS
; loading system definition from d:\ue31057\old\base\external\site\cl-
json\cl-json.asd into #<The ASDF0 package, 0/16 internal, 0/16
external>
; Loading text file d:\ue31057\old\base\external\site\cl-json\cl-
json.asd
; registering #<SYSTEM :CL-JSON 22029C43> as CL-JSON
; registering #<SYSTEM :CL-JSON.TEST 2008E2A7> as CL-JSON.TEST
;; Creating system COMMON-LISP-USER::CL-JSON.TEST->T
;; Creating system COMMON-LISP-USER::CL-JSON.TEST
; loading system definition from d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\hunchentoot.asd into #<The ASDF0 package, 0/16
internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\hunchentoot.asd
; registering #<SYSTEM :HUNCHENTOOT 2202164B> as HUNCHENTOOT
;; Creating system COMMON-LISP-USER::HUNCHENTOOT->URL-REWRITE
;; Creating system COMMON-LISP-USER::HUNCHENTOOT
; loading system definition from d:\ue31057\old\base\external\site
\rfc2388\rfc2388.asd into #<The ASDF0 package, 0/16 internal, 0/16
external>
; Loading text file d:\ue31057\old\base\external\site
\rfc2388\rfc2388.asd
; registering #<SYSTEM :RFC2388 22023E6F> as RFC2388
; loading system definition from d:\ue31057\old\base\external\site
\flexi-streams-1.0.7\flexi-streams.asd into #<The ASDF0 package, 0/16
internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\flexi-streams.asd
; registering #<SYSTEM :FLEXI-STREAMS 21F8EA8F> as FLEXI-STREAMS
;; Creating system COMMON-LISP-USER::FLEXI-STREAMS
; registering #<SYSTEM :FLEXI-STREAMS-TEST 2008B37F> as FLEXI-STREAMS-
TEST
;; Creating system COMMON-LISP-USER::FLEXI-STREAMS-TEST->TEST
;; Creating system COMMON-LISP-USER::FLEXI-STREAMS-TEST
; loading system definition from d:\ue31057\old\base\external\site\cl-
plus-ssl\trivial-gray-streams\trivial-gray-streams.asd into
; #<The ASDF0 package, 0/16 internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\cl-plus-ssl
\trivial-gray-streams\trivial-gray-streams.asd
; registering #<SYSTEM :TRIVIAL-GRAY-STREAMS 2202386F> as TRIVIAL-GRAY-
STREAMS
;; Creating system COMMON-LISP-USER::TRIVIAL-GRAY-STREAMS
; loading system definition from d:\ue31057\old\base\external\site\cl-
base64-3.3.2\cl-base64.asd into #<The ASDF0 package, 0/16 internal,
0/16 external>
; Loading text file d:\ue31057\old\base\external\site\cl-
base64-3.3.2\cl-base64.asd
; registering #<SYSTEM CL-BASE64 22021F53> as CL-BASE64
;; Creating system COMMON-LISP-USER::CL-BASE64
; registering #<SYSTEM CL-BASE64-TESTS 21F8E8D7> as CL-BASE64-TESTS
;; Creating system COMMON-LISP-USER::CL-BASE64-TESTS
; loading system definition from d:\ue31057\old\base\external\site
\chunga-1.0.0\chunga.asd into #<The ASDF0 package, 0/16 internal, 0/16
external>
; Loading text file d:\ue31057\old\base\external\site
\chunga-1.0.0\chunga.asd
; registering #<SYSTEM :CHUNGA 22023F7B> as CHUNGA
;; Creating system COMMON-LISP-USER::CHUNGA
;;; Compiling file d:\ue31057\old\base\external\site\metabang-bind\dev
\bind.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (DEFPACKAGE "METABANG.BIND")
; (DEFPACKAGE "METABANG.BIND.DEVELOPER")
; (TOP-LEVEL-FORM 3)
; (DEFPARAMETER METABANG.BIND:*BIND-ALL-DECLARATIONS*)
; (DEFPARAMETER METABANG.BIND:*BIND-TREAT-VALUES-AS-VALUES*)
; (DEFPARAMETER METABANG.BIND:*BIND-NON-VAR-DECLARATIONS*)
; (DEFPARAMETER METABANG.BIND::*BIND-SIMPLE-VAR-DECLARATIONS*)
; (DEFPARAMETER METABANG.BIND:*BIND-LAMBDA-LIST-MARKERS*)
; (DEFGENERIC METABANG.BIND::BIND-GENERATE-BINDINGS)
; (SUBFUNCTION (DEFCLASS METABANG.BIND::SIMPLE-STYLE-WARNING) (DEFINE-
CONDITION METABANG.BIND::SIMPLE-STYLE-WARNING))
; (DEFINE-CONDITION METABANG.BIND::SIMPLE-STYLE-WARNING)
; METABANG.BIND::SIMPLE-STYLE-WARNING
; (SUBFUNCTION (DEFCLASS METABANG.BIND:BIND-ERROR) (DEFINE-CONDITION
METABANG.BIND:BIND-ERROR))
; (DEFINE-CONDITION METABANG.BIND:BIND-ERROR)
; (SUBFUNCTION (DEFCLASS METABANG.BIND:BIND-KEYWORD/OPTIONAL-NIL-WITH-
DEFAULT-ERROR) (DEFINE-CONDITION METABANG.BIND:BIND-KEYWORD/OPTIONAL-
NIL-WITH-DEFAULT-ERROR))
; (DEFINE-CONDITION METABANG.BIND:BIND-KEYWORD/OPTIONAL-NIL-WITH-
DEFAULT-ERROR)
; (DEFINE-CONDITION METABANG.BIND:BIND-KEYWORD/OPTIONAL-NIL-WITH-
DEFAULT-ERROR)
; METABANG.BIND:BIND
; METABANG.BIND::BIND-MACRO-HELPER
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS (ARRAY T T T T T))
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS (SYMBOL T T T T T))
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS (CONS T T T T T))
; METABANG.BIND::BIND-HANDLE-DESTRUCTURING
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :VALUES) T T T T
T))
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL (QUOTE VALUES))
T T T T T))
; METABANG.BIND::BIND-HANDLE-VALUES
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :PLIST) T T T T
T))
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :PROPERTY-LIST)
T T T T T))
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :PROPERTIES) T T
T T T))
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :PLIST-) T T T T
T))
; METABANG.BIND::BIND-HANDLE-PLIST
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :ASSOC) T T T T
T))
; METABANG.BIND::BIND-HANDLE-ASSOC
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :STRUCTURE) T T
T T T))
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :STRUCT) T T T T
T))
; METABANG.BIND::BIND-HANDLE-STRUCTURE
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :READ-ONLY-
SLOTS) T T T T T))
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :SLOTS-READ-
ONLY) T T T T T))
; METABANG.BIND::BIND-HANDLE-R/O-SLOTS
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :SLOTS) T T T T
T))
; METABANG.BIND::BIND-HANDLE-SLOTS
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :READ-ONLY-
ACCESSORS) T T T T T))
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :ACCESSORS-READ-
ONLY) T T T T T))
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :ACCESSORS-R/O)
T T T T T))
; METABANG.BIND::BIND-HANDLE-R/O-ACCESSORS
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :ACCESSORS) T T
T T T))
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :WRITABLE-
ACCESSORS) T T T T T))
; METABANG.BIND::BIND-HANDLE-WITH-ACCESSORS
; METABANG.BIND::BIND-FIX-NILS
; METABANG.BIND::BIND-FIX-NILS-DESTRUCTURED
; METABANG.BIND::DOTTED-PAIR-P
; METABANG.BIND::BIND-GET-VARS-FROM-LAMBDA-LIST
; METABANG.BIND::BIND-EXPAND-DECLARATIONS
; METABANG.BIND::BIND-FILTER-DECLARATIONS
; METABANG.BIND:FLUID-BIND
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\package.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "METABANG.UTILITIES")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\package.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\api.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFGENERIC METABANG.UTILITIES::CHOOSE-DIRECTORY-QUESTION*)
; (DEFGENERIC METABANG.UTILITIES::CHOOSE-FILE-QUESTION*)
; (DEFGENERIC METABANG.UTILITIES::CHOOSE-ITEM-FROM-PUP*)
; (DEFGENERIC METABANG.UTILITIES::CHOOSE-ITEM-QUESTION*)
; (DEFGENERIC METABANG.UTILITIES::CHOOSE-NEW-FILE-QUESTION*)
; (DEFGENERIC METABANG.UTILITIES::Y-OR-N-QUESTION*)
; (DEFGENERIC METABANG.UTILITIES::GUI-ERROR*)
; (DEFGENERIC METABANG.UTILITIES::GUI-WARN*)
; (DEFGENERIC METABANG.UTILITIES::HELP-SPEC)
; (DEFGENERIC METABANG.UTILITIES::INTERFACE-BEEP*)
; (DEFGENERIC METABANG.UTILITIES::MAKE-COLOR**)
; (DEFGENERIC METABANG.UTILITIES::MAKE-GRAY*)
; (DEFGENERIC METABANG.UTILITIES::MAKE-SCALED-COLOR*)
; (DEFGENERIC METABANG.UTILITIES::NAME)
; (DEFGENERIC METABANG.UTILITIES::PROCESS-PARAMETERS*)
; (DEFGENERIC METABANG.UTILITIES::PROMPT-FOR*)
; (DEFGENERIC METABANG.UTILITIES::PUT-ITEM-ON-CLIPBOARD*)
; (DEFGENERIC METABANG.UTILITIES::SELECT-INSTRUMENT*)
; (DEFGENERIC METABANG.UTILITIES:INSPECT-THING*)
; (DEFGENERIC METABANG.UTILITIES::SOUND-NOTE*)
; (DEFGENERIC METABANG.UTILITIES::STOP-NOTES*)
; (DEFGENERIC METABANG.UTILITIES:MAKE-PROGRESS-BAR)
; (DEFGENERIC METABANG.UTILITIES:PROGRESS-BAR-VALUE)
; (DEFGENERIC (SETF METABANG.UTILITIES:PROGRESS-BAR-VALUE))
; (DEFGENERIC METABANG.UTILITIES:CLOSE-PROGRESS-BAR)
; (DEFGENERIC METABANG.UTILITIES:MAKE-UI-POINT*)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\api.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\l0-utils.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; METABANG.UTILITIES:FIXNUMP
; METABANG.UTILITIES::WITH-STANDARD-PRINTING
; METABANG.UTILITIES:NEQ
; (TOP-LEVEL-FORM 5)
; (DEFINE-COMPILER-MACRO METABANG.UTILITIES:NEQ)
; METABANG.UTILITIES:FORM-SYMBOL-IN-PACKAGE
; METABANG.UTILITIES:FORM-SYMBOL
; METABANG.UTILITIES:FORM-KEYWORD
; METABANG.UTILITIES:FORM-UNINTERNED-SYMBOL
; METABANG.UTILITIES:CURRENT-LOAD-FILE
; METABANG.UTILITIES:WITH-UNIQUE-NAMES
; METABANG.UTILITIES:ENSURE-LIST
; METABANG.UTILITIES::ENSURE-FUNCTION
; (DEFVAR METABANG.UTILITIES::*NEWSYM-COUNTER*)
; METABANG.UTILITIES:NEWSYM
; METABANG.UTILITIES:EXPORT-EXPORTED-SYMBOLS
; (DEFGENERIC METABANG.UTILITIES:LENGTH-AT-LEAST-P)
; (METHOD METABANG.UTILITIES:LENGTH-AT-LEAST-P (SEQUENCE T))
; (METHOD METABANG.UTILITIES:LENGTH-AT-LEAST-P (CONS T))
; (DEFGENERIC METABANG.UTILITIES:LENGTH-AT-MOST-P)
; (METHOD METABANG.UTILITIES:LENGTH-AT-MOST-P (SEQUENCE T))
; (METHOD METABANG.UTILITIES:LENGTH-AT-MOST-P (CONS T))
; (TOP-LEVEL-FORM 20)
; METABANG.UTILITIES:LENGTH-1-LIST-P
; METABANG.UTILITIES:LENGTH-1-LIST-P
; METABANG.UTILITIES:NEARLY-ZERO-P
; METABANG.UTILITIES:NEARLY-EQUAL-P
; METABANG.UTILITIES:DOTTED-PAIR-P
; METABANG.UTILITIES:APPLY-IF-EXISTS
; METABANG.UTILITIES:FUNCALL-IF-EXISTS
; METABANG.UTILITIES::CALL-IF-EXISTS
; METABANG.UTILITIES:ITERATE-OVER-INDEXES
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\l0-strings.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPARAMETER METABANG.UTILITIES:+WHITESPACE-CHARACTERS+)
; METABANG.UTILITIES:WHITESPACEP
; METABANG.UTILITIES:STRING-STARTS-WITH
; METABANG.UTILITIES:STRING-ENDS-WITH
; METABANG.UTILITIES:STRING-TRIM-IF
; METABANG.UTILITIES:STRIP-WHITESPACE
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\l0-utils.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\l0-macros.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; METABANG.UTILITIES:NYI
; METABANG.UTILITIES:DEPRECATED
; METABANG.UTILITIES:ONCE-ONLY
; METABANG.UTILITIES:WITH-VARIABLES
; METABANG.UTILITIES:EVAL-ALWAYS
; METABANG.UTILITIES:DEFCLASS-PROPERTY
; METABANG.UTILITIES:WITH-ATOMIC-EXECUTION
; METABANG.UTILITIES:HANDLER-BIND*
; METABANG.UTILITIES:WITH-GENSYMS
; (DEFVAR METABANG.UTILITIES:*FILE-IF-EXISTS*)
; (DEFVAR METABANG.UTILITIES::*FILE-PRINT-RIGHT-MARGIN*)
; METABANG.UTILITIES:WITH-NEW-FILE
; METABANG.UTILITIES:WITH-STREAM-FROM-SPECIFIER
; METABANG.UTILITIES:WITH-INPUT
; METABANG.UTILITIES:WITH-OUTPUT
; METABANG.UTILITIES:MUFFLE-REDEFINITION-WARNINGS
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\l0-arrays.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; METABANG.UTILITIES:LINEARIZE-ARRAY
; METABANG.UTILITIES:COPY-ARRAY
; METABANG.UTILITIES:MAPARRAY
; METABANG.UTILITIES:MAPARRAY!
; METABANG.UTILITIES:ARRAY-ROW
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\l0-clos.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; METABANG.UTILITIES::FINALIZE-CLASS-IF-NECESSARY
; (DEFGENERIC METABANG.UTILITIES::GET-CLASS)
; (METHOD METABANG.UTILITIES:RESET (T))
; (TOP-LEVEL-FORM 5)
; (DEFVAR METABANG.UTILITIES::*SAMEP-TOLERANCE*)
; (TOP-LEVEL-FORM 7)
; (DEFVAR METABANG.UTILITIES:*SAMEP-TEST*)
; (DEFGENERIC METABANG.UTILITIES:SAMEP)
; (DEFGENERIC METABANG.UTILITIES:NEARLY-SAMEP)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\l0-macros.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\l0-files.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (SUBFUNCTION (DEFCLASS METABANG.UTILITIES:INVALID-STREAM-SPECIFIER-
ERROR) (DEFINE-CONDITION METABANG.UTILITIES:INVALID-STREAM-SPECIFIER-
ERROR))
; (DEFINE-CONDITION METABANG.UTILITIES:INVALID-STREAM-SPECIFIER-ERROR)
; (DEFINE-CONDITION METABANG.UTILITIES:INVALID-STREAM-SPECIFIER-ERROR)
; METABANG.UTILITIES:INVALID-STREAM-SPECIFIER-ERROR
; METABANG.UTILITIES::PATHNAME-NAME+TYPE
; METABANG.UTILITIES:PHYSICAL-PATHNAME-DIRECTORY-SEPARATOR
; METABANG.UTILITIES:RELATIVE-PATHNAME
; METABANG.UTILITIES:DIRECTORY-PATHNAME-P
; METABANG.UTILITIES:ENSURE-DIRECTORY-PATHNAME
; METABANG.UTILITIES:PATHNAME-SAMEP
; (DEFGENERIC METABANG.UTILITIES::MAKE-STREAM-FROM-SPECIFIER)
; (DEFGENERIC METABANG.UTILITIES::CLOSE-STREAM-SPECIFIER)
; (METHOD METABANG.UTILITIES::MAKE-STREAM-FROM-SPECIFIER (STREAM
SYMBOL))
; (METHOD METABANG.UTILITIES::MAKE-STREAM-FROM-SPECIFIER ((EQL T)
SYMBOL))
; (METHOD METABANG.UTILITIES::MAKE-STREAM-FROM-SPECIFIER ((EQL NIL)
SYMBOL))
; (METHOD METABANG.UTILITIES::MAKE-STREAM-FROM-SPECIFIER ((EQL NIL)
(EQL :INPUT)))
; (METHOD METABANG.UTILITIES::MAKE-STREAM-FROM-SPECIFIER ((EQL T)
(EQL :INPUT)))
; (METHOD METABANG.UTILITIES::MAKE-STREAM-FROM-SPECIFIER ((EQL :NONE)
SYMBOL))
; (METHOD METABANG.UTILITIES::MAKE-STREAM-FROM-SPECIFIER (PATHNAME
SYMBOL))
; (METHOD METABANG.UTILITIES::MAKE-STREAM-FROM-SPECIFIER (STRING
SYMBOL))
; (METHOD METABANG.UTILITIES::MAKE-STREAM-FROM-SPECIFIER (STRING
(EQL :OUTPUT)))
; (METHOD METABANG.UTILITIES::CLOSE-STREAM-SPECIFIER (T))
; (METHOD METABANG.UTILITIES::CLOSE-STREAM-SPECIFIER (STRING-STREAM))
; METABANG.UTILITIES:MAP-FORMS
; METABANG.UTILITIES:MAP-LINES
; METABANG.UTILITIES:COLLECT-FORMS
; METABANG.UTILITIES:COLLECT-LINES
; METABANG.UTILITIES:MAP-MATCHING-FILES
; METABANG.UTILITIES::COMPILE-EXPRESSION
; METABANG.UTILITIES:COLLECT-MATCHING-FILES
; METABANG.UTILITIES:FILE-NEWER-THAN-FILE-P
; METABANG.UTILITIES:PATHNAME-WITHOUT-NAME+TYPE
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\l0-time.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCONSTANT METABANG.UTILITIES:+MINUTES-PER-HOUR+)
; (DEFCONSTANT METABANG.UTILITIES:+SECONDS-PER-MINUTE+)
; (DEFCONSTANT METABANG.UTILITIES:+USUAL-DAYS-PER-YEAR+)
; (DEFCONSTANT METABANG.UTILITIES:+SECONDS-PER-HOUR+)
; (DEFCONSTANT METABANG.UTILITIES:+HOURS-PER-DAY+)
; (DEFCONSTANT METABANG.UTILITIES:+SECONDS-PER-DAY+)
; (DEFPARAMETER METABANG.UTILITIES::+DAYS-PER-MONTH+)
; METABANG.UTILITIES::GENERATE-TIME-PART-FUNCTION
; (TOP-LEVEL-FORM 9)
; METABANG.UTILITIES:TIME-SECOND
; (TOP-LEVEL-FORM 9)
; METABANG.UTILITIES:TIME-MINUTE
; (TOP-LEVEL-FORM 9)
; METABANG.UTILITIES:TIME-HOUR
; (TOP-LEVEL-FORM 9)
; METABANG.UTILITIES:TIME-DATE
; (TOP-LEVEL-FORM 9)
; METABANG.UTILITIES:TIME-MONTH
; (TOP-LEVEL-FORM 9)
; METABANG.UTILITIES:TIME-YEAR
; (TOP-LEVEL-FORM 9)
; METABANG.UTILITIES:TIME-DAY-OF-WEEK
; (TOP-LEVEL-FORM 9)
; METABANG.UTILITIES:TIME-DAYLIGHT-SAVINGS-TIME-P
; METABANG.UTILITIES:DAYS-IN-MONTH
; METABANG.UTILITIES:LEAP-YEAR-P
; METABANG.UTILITIES:DAY-OF-YEAR
; METABANG.UTILITIES:FORMAT-DATE
; (DEFCONSTANT METABANG.UTILITIES::+LONGER-FORMAT-INDEX+)
; (DEFCONSTANT METABANG.UTILITIES::+SHORTER-FORMAT-INDEX+)
; (DEFPARAMETER METABANG.UTILITIES::+MONTH-OUTPUT-LIST+)
; (DEFPARAMETER METABANG.UTILITIES::+DOW-OUTPUT-LIST)
; METABANG.UTILITIES:DAY->STRING
; METABANG.UTILITIES:MONTH->STRING
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\set-equal.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; METABANG.UTILITIES:SET-EQUAL
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\generic-lisp.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFVAR METABANG.UTILITIES::*DEFAULT-INTERFACE*)
; METABANG.UTILITIES:DEFAULT-INTERFACE
; (SETF METABANG.UTILITIES:DEFAULT-INTERFACE)
; (DEFGENERIC METABANG.UTILITIES:IS-INTERFACE-AVAILABLE-P)
; (METHOD METABANG.UTILITIES:IS-INTERFACE-AVAILABLE-P ((EQL NIL)))
; METABANG.UTILITIES:IS-DEFAULT-INTERFACE-AVAILABLE-P
; (DEFGENERIC METABANG.UTILITIES:QUIT-LISP*)
; (METHOD METABANG.UTILITIES:QUIT-LISP* (T))
; METABANG.UTILITIES:QUIT-LISP
; (DEFGENERIC METABANG.UTILITIES:TOTAL-BYTES-ALLOCATED*)
; METABANG.UTILITIES:TOTAL-BYTES-ALLOCATED
; (DEFGENERIC METABANG.UTILITIES::GC-TIME*)
; METABANG.UTILITIES:GC-TIME
; (DEFGENERIC METABANG.UTILITIES:COLLECT-GARBAGE*)
; METABANG.UTILITIES:COLLECT-GARBAGE
; METABANG.UTILITIES:MAKE-LOAD-FORM*
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\generic-lisp.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\generic-interface.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFVAR METABANG.UTILITIES:*DEVELOPMENT-MODE*)
; (DEFVAR METABANG.UTILITIES:*USE-NATIVE-DEBUGGER*)
; (DEFVAR METABANG.UTILITIES::*DUMMY-PROGRESS-VARIABLE*)
; (DEFVAR METABANG.UTILITIES::*PROGRESS-BAR-COUNT*)
; METABANG.UTILITIES:WITH-PROGRESS-BAR
; METABANG.UTILITIES:WITH-PROCESS-MESSAGE
; METABANG.UTILITIES:HANDLE-ERRORS
; (METHOD METABANG.UTILITIES::INTERFACE-BEEP* (T))
; METABANG.UTILITIES:INTERFACE-BEEP
; (METHOD METABANG.UTILITIES:MAKE-PROGRESS-BAR (T T T T))
; (METHOD METABANG.UTILITIES:PROGRESS-BAR-VALUE (T T))
; (METHOD (SETF METABANG.UTILITIES:PROGRESS-BAR-VALUE) (T T T))
; (METHOD METABANG.UTILITIES:CLOSE-PROGRESS-BAR (T T))
; (METHOD METABANG.UTILITIES::REPORT-CONDITION (CONDITION T))
; (METHOD METABANG.UTILITIES::GUI-ERROR* (T T))
; METABANG.UTILITIES:GUI-ERROR
; (METHOD METABANG.UTILITIES::GUI-WARN* (T T))
; METABANG.UTILITIES:GUI-WARN
; (METHOD METABANG.UTILITIES::MAKE-COLOR** (T T T T))
; (METHOD METABANG.UTILITIES:MAKE-COLOR* (T T T))
; (METHOD METABANG.UTILITIES::MAKE-GRAY* (T T))
; (METHOD METABANG.UTILITIES:MAKE-GRAY (T))
; (METHOD METABANG.UTILITIES::MAKE-SCALED-COLOR* (T T T T T))
; (METHOD METABANG.UTILITIES:MAKE-SCALED-COLOR (T T T T))
; (METHOD METABANG.UTILITIES::Y-OR-N-QUESTION* (T T))
; METABANG.UTILITIES:Y-OR-N-QUESTION
; (METHOD METABANG.UTILITIES::CHOOSE-FILE-QUESTION* (T))
; METABANG.UTILITIES:CHOOSE-FILE-QUESTION
; (METHOD METABANG.UTILITIES::CHOOSE-NEW-FILE-QUESTION* (T))
; METABANG.UTILITIES:CHOOSE-NEW-FILE-QUESTION
; (METHOD METABANG.UTILITIES::CHOOSE-DIRECTORY-QUESTION* (T))
; METABANG.UTILITIES:CHOOSE-DIRECTORY-QUESTION
; (METHOD METABANG.UTILITIES::CHOOSE-ITEM-QUESTION* (T T))
; METABANG.UTILITIES:CHOOSE-ITEM-QUESTION
; (METHOD METABANG.UTILITIES::CHOOSE-ITEM-FROM-PUP* (T T))
; METABANG.UTILITIES:CHOOSE-ITEM-FROM-PUP
; METABANG.UTILITIES:CHOOSE-ITEM-FROM-PUP-NO-SINGLETONS
; (METHOD METABANG.UTILITIES:MAKE-UI-POINT* (T T T))
; METABANG.UTILITIES::MAKE-UI-POINT
; (METHOD METABANG.UTILITIES::PROCESS-PARAMETERS* (T))
; (METHOD METABANG.UTILITIES:PROCESS-PARAMETERS NIL)
; (METHOD METABANG.UTILITIES::PUT-ITEM-ON-CLIPBOARD* (T T))
; (METHOD METABANG.UTILITIES:PUT-ITEM-ON-CLIPBOARD (T))
; (METHOD METABANG.UTILITIES:INSPECT-THING* (T T))
; METABANG.UTILITIES:INSPECT-THING
; METABANG.UTILITIES:INSPECT-THINGS
; (METHOD METABANG.UTILITIES::SOUND-NOTE* (T T T))
; METABANG.UTILITIES:SOUND-NOTE
; (METHOD METABANG.UTILITIES::STOP-NOTES* (T))
; METABANG.UTILITIES:STOP-NOTES
; (METHOD METABANG.UTILITIES::SELECT-INSTRUMENT* (T T))
; (METHOD METABANG.UTILITIES:SELECT-INSTRUMENT (T))
; METABANG.UTILITIES:QUERY-USER-FOR-STRING
; METABANG.UTILITIES:QUERY-USER-FOR-INTEGER
; (METHOD METABANG.UTILITIES::PROMPT-FOR* (T T T))
; (METHOD METABANG.UTILITIES::PROMPT-FOR* (T (EQL (QUOTE STRING)) T))
; (METHOD METABANG.UTILITIES::PROMPT-FOR* (T (EQL (QUOTE FIXNUM)) T))
; METABANG.UTILITIES:PROMPT-FOR
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\defclass-star.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFVAR METABANG.UTILITIES::*AUTOMATIC-SLOT-ACCESSORS?*)
; (DEFVAR METABANG.UTILITIES::*AUTOMATIC-SLOT-INITARGS?*)
; (DEFVAR METABANG.UTILITIES::*CLOS-SLOT-OPTIONS*)
; (DEFVAR METABANG.UTILITIES::*PRUNE-UNKNOWN-SLOT-OPTIONS*)
; METABANG.UTILITIES:PARSE-BRIEF-SLOT
; METABANG.UTILITIES:DEFCLASS-BRIEF
; (DEFPARAMETER METABANG.UTILITIES::*DEFCLASS-COPY-CONDITION-
FUNCTION*)
; (DEFVAR METABANG.UTILITIES::*DEFCLASS-GENERATE-MAKE-LOAD-FORM*)
; (DEFGENERIC METABANG.UTILITIES::DEFCLASS*-SUPERCLASSES)
; (DEFGENERIC (SETF METABANG.UTILITIES::DEFCLASS*-SUPERCLASSES))
; (METHOD METABANG.UTILITIES::DEFCLASS*-SUPERCLASSES (SYMBOL))
; (METHOD (SETF METABANG.UTILITIES::DEFCLASS*-SUPERCLASSES) (T
SYMBOL))
; METABANG.UTILITIES:CLASS-COPYABLE-P
; METABANG.UTILITIES:DEFCLASS*
; (DEFPARAMETER METABANG.UTILITIES::*DEFCONDITION-OPTIONS*)
; METABANG.UTILITIES:DEFCONDITION
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities-base
\dev\copy-file.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (SUBFUNCTION (DEFCLASS METABANG.UTILITIES:SOURCE/TARGET-FILE-ERROR)
(DEFINE-CONDITION METABANG.UTILITIES:SOURCE/TARGET-FILE-ERROR))
; (DEFINE-CONDITION METABANG.UTILITIES:SOURCE/TARGET-FILE-ERROR)
; (DEFINE-CONDITION METABANG.UTILITIES:SOURCE/TARGET-FILE-ERROR)
; (SUBFUNCTION (DEFCLASS METABANG.UTILITIES:SOURCE/TARGET-TARGET-
ALREADY-EXISTS-ERROR) (DEFINE-CONDITION METABANG.UTILITIES:SOURCE/
TARGET-TARGET-ALREADY-EXISTS-ERROR))
; (DEFINE-CONDITION METABANG.UTILITIES:SOURCE/TARGET-TARGET-ALREADY-
EXISTS-ERROR)
; (DEFINE-CONDITION METABANG.UTILITIES:SOURCE/TARGET-TARGET-ALREADY-
EXISTS-ERROR)
; (SUBFUNCTION (DEFCLASS METABANG.UTILITIES:SOURCE/TARGET-SOURCE-DOES-
NOT-EXIST-ERROR) (DEFINE-CONDITION METABANG.UTILITIES:SOURCE/TARGET-
SOURCE-DOES-NOT-EXIST-ERROR))
; (DEFINE-CONDITION METABANG.UTILITIES:SOURCE/TARGET-SOURCE-DOES-NOT-
EXIST-ERROR)
; (DEFINE-CONDITION METABANG.UTILITIES:SOURCE/TARGET-SOURCE-DOES-NOT-
EXIST-ERROR)
; METABANG.UTILITIES:COPY-FILE
; METABANG.UTILITIES::MOVE-FILE
; (DEFVAR METABANG.UTILITIES::*STREAM-BUFFER-SIZE*)
; METABANG.UTILITIES::COPY-STREAM
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\l0-strings.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\l0-arrays.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\l0-clos.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\l0-files.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\l0-time.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\set-equal.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\generic-interface.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\defclass-star.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities-base\dev\copy-file.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\package.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "METABANG.CL-CONTAINERS")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\package.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\conditions.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (SUBFUNCTION (DEFCLASS METABANG.CL-CONTAINERS::CONTAINER-CONDITION)
(DEFINE-CONDITION METABANG.CL-CONTAINERS::CONTAINER-CONDITION))
; (DEFINE-CONDITION METABANG.CL-CONTAINERS::CONTAINER-CONDITION)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (SUBFUNCTION (DEFCLASS METABANG.CL-CONTAINERS:CONTAINER-ERROR)
(DEFINE-CONDITION METABANG.CL-CONTAINERS:CONTAINER-ERROR))
; (DEFINE-CONDITION METABANG.CL-CONTAINERS:CONTAINER-ERROR)
; (SUBFUNCTION (DEFCLASS METABANG.CL-CONTAINERS::INDEX-OUT-OF-RANGE-
ERROR) (DEFINE-CONDITION METABANG.CL-CONTAINERS::INDEX-OUT-OF-RANGE-
ERROR))
; (DEFINE-CONDITION METABANG.CL-CONTAINERS::INDEX-OUT-OF-RANGE-ERROR)
; (DEFINE-CONDITION METABANG.CL-CONTAINERS::INDEX-OUT-OF-RANGE-ERROR)
; (SUBFUNCTION (DEFCLASS METABANG.CL-CONTAINERS::KEY-DOES-NOT-EXIST-
ERROR) (DEFINE-CONDITION METABANG.CL-CONTAINERS::KEY-DOES-NOT-EXIST-
ERROR))
; (DEFINE-CONDITION METABANG.CL-CONTAINERS::KEY-DOES-NOT-EXIST-ERROR)
; (SUBFUNCTION (DEFCLASS METABANG.CL-CONTAINERS::QUEUE-EMPTY) (DEFINE-
CONDITION METABANG.CL-CONTAINERS::QUEUE-EMPTY))
; (DEFINE-CONDITION METABANG.CL-CONTAINERS::QUEUE-EMPTY)
; (DEFINE-CONDITION METABANG.CL-CONTAINERS::QUEUE-EMPTY)
; (SUBFUNCTION (DEFCLASS METABANG.CL-CONTAINERS::RECORD-NOT-FOUND-
ERROR) (DEFINE-CONDITION METABANG.CL-CONTAINERS::RECORD-NOT-FOUND-
ERROR))
; (DEFINE-CONDITION METABANG.CL-CONTAINERS::RECORD-NOT-FOUND-ERROR)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 8)
; (SUBFUNCTION (DEFCLASS METABANG.CL-CONTAINERS:ELEMENT-NOT-FOUND-
ERROR) (DEFINE-CONDITION METABANG.CL-CONTAINERS:ELEMENT-NOT-FOUND-
ERROR))
; (DEFINE-CONDITION METABANG.CL-CONTAINERS:ELEMENT-NOT-FOUND-ERROR)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\conditions.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\container-api.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFGENERIC METABANG.CL-CONTAINERS:SAMPLE-ELEMENTS)
; (DEFGENERIC METABANG.CL-CONTAINERS::SAMPLE-KEY)
; (DEFGENERIC METABANG.CL-CONTAINERS:SAMPLE-UNIQUE-ELEMENTS)
; (DEFGENERIC METABANG.CL-CONTAINERS:SAMPLE-ELEMENT)
; (DEFGENERIC METABANG.CL-CONTAINERS:SAMPLE-ITEM)
; (DEFGENERIC METABANG.UTILITIES:BEST-ITEM)
; (DEFGENERIC METABANG.UTILITIES:ARGMAX)
; (DEFGENERIC METABANG.UTILITIES:ARGMIN)
; (DEFGENERIC METABANG.UTILITIES:SIZE)
; (DEFGENERIC METABANG.CL-CONTAINERS:EMPTY!)
; (DEFGENERIC METABANG.CL-CONTAINERS:SOME-ITEM-P)
; (DEFGENERIC METABANG.CL-CONTAINERS:EVERY-ITEM-P)
; (DEFGENERIC METABANG.CL-CONTAINERS::MAKE-CONTAINER-FOR-CONTENTS)
; (DEFGENERIC METABANG.CL-CONTAINERS:NTH-ELEMENT)
; (DEFGENERIC METABANG.CL-CONTAINERS:NTH-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITEM-AT)
; (DEFGENERIC (SETF METABANG.CL-CONTAINERS:ITEM-AT))
; (DEFGENERIC METABANG.CL-CONTAINERS:ITEM-AT!)
; (DEFGENERIC (SETF METABANG.CL-CONTAINERS:ITEM-AT-1))
; (DEFGENERIC METABANG.CL-CONTAINERS:FIND-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:FIND-NODE)
; (DEFGENERIC METABANG.CL-CONTAINERS:FIND-ELEMENT)
; (DEFGENERIC METABANG.CL-CONTAINERS:SEARCH-FOR-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:SEARCH-FOR-MATCH)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-NODES)
; (DEFGENERIC METABANG.CL-CONTAINERS:PRINT-CONTAINER)
; (DEFGENERIC METABANG.CL-CONTAINERS:COLLECT-NODES)
; (DEFGENERIC METABANG.CL-CONTAINERS:COLLECT-ELEMENTS)
; (DEFGENERIC METABANG.CL-CONTAINERS:COLLECT-KEY-VALUE)
; (DEFGENERIC METABANG.CL-CONTAINERS:COLLECT-KEYS)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-VALUE-KEY)
; (DEFGENERIC (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT))
; METABANG.CL-CONTAINERS:FIRST-ITEM
; METABANG.CL-CONTAINERS:LAST-ITEM
; (DEFGENERIC METABANG.CL-CONTAINERS:DELETE-FIRST)
; (DEFGENERIC METABANG.CL-CONTAINERS:DELETE-LAST)
; (DEFGENERIC METABANG.CL-CONTAINERS:INSERT-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:APPEND-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:INSERT-NEW-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:APPEND-NEW-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:INSERT-SEQUENCE)
; (DEFGENERIC METABANG.CL-CONTAINERS:INSERT-LIST)
; (DEFGENERIC METABANG.CL-CONTAINERS:DELETE-LIST)
; (DEFGENERIC METABANG.CL-CONTAINERS:REVERSE-FIND)
; (DEFGENERIC METABANG.CL-CONTAINERS:ENSURE-SORTED)
; (DEFGENERIC METABANG.CL-CONTAINERS:FORCE-SORT)
; (DEFGENERIC METABANG.CL-CONTAINERS:REMOVE-ITEMS-IF)
; (DEFGENERIC METABANG.CL-CONTAINERS:CONTAINER->ARRAY)
; (DEFGENERIC METABANG.CL-CONTAINERS:ELEMENT-POSITION)
; (DEFGENERIC METABANG.CL-CONTAINERS:REVERSE-CONTAINER)
; (DEFGENERIC METABANG.CL-CONTAINERS:UNIQUE-ELEMENTS)
; (DEFGENERIC METABANG.CL-CONTAINERS:UNIQUE-NODES)
; (DEFGENERIC METABANG.CL-CONTAINERS::ADD-DEFAULT-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS::ADD-INITIAL-CONTENTS)
; (DEFGENERIC METABANG.CL-CONTAINERS:BEST-ELEMENT)
; (DEFGENERIC METABANG.CL-CONTAINERS:BEST-NODE)
; (DEFGENERIC METABANG.CL-CONTAINERS:BIGGEST-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:CHILDREN)
; (DEFGENERIC METABANG.CL-CONTAINERS::CLEAN-UP)
; (DEFGENERIC METABANG.CL-CONTAINERS:COLLECT-ELEMENTS-STABLY)
; (DEFGENERIC METABANG.CL-CONTAINERS:COLLECT-ITEMS)
; (DEFGENERIC METABANG.CL-CONTAINERS:COLLECT-KEY-VALUE-STABLY)
; (DEFGENERIC METABANG.CL-CONTAINERS::COMBINE-ELEMENTS)
; (DEFGENERIC METABANG.CL-CONTAINERS::CONTAINER-DIFFERENCE)
; (DEFGENERIC METABANG.CL-CONTAINERS::CONTAINER-DIMENSION)
; (DEFGENERIC METABANG.CL-CONTAINERS:COUNT-ELEMENTS)
; (DEFGENERIC METABANG.CL-CONTAINERS:COUNT-ELEMENTS-IF)
; (DEFGENERIC METABANG.CL-CONTAINERS::COUNT-ITEMS)
; (DEFGENERIC METABANG.CL-CONTAINERS:DELETE-BIGGEST-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:DELETE-ELEMENT)
; (DEFGENERIC METABANG.CL-CONTAINERS:DELETE-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:DELETE-ITEM-AFTER)
; (DEFGENERIC METABANG.CL-CONTAINERS:DELETE-ITEM-AT)
; (DEFGENERIC METABANG.CL-CONTAINERS:DELETE-ITEM-BEFORE)
; (DEFGENERIC METABANG.CL-CONTAINERS:DELETE-ITEM-IF)
; (DEFGENERIC METABANG.CL-CONTAINERS:DELETE-NODE)
; (DEFGENERIC METABANG.CL-CONTAINERS:DEQUEUE)
; (DEFGENERIC METABANG.CL-CONTAINERS:ENQUEUE)
; (DEFGENERIC METABANG.CL-CONTAINERS::ERROR-IF-QUEUE-EMPTY)
; (DEFGENERIC METABANG.CL-CONTAINERS:EVERY-ELEMENT-P)
; (DEFGENERIC METABANG.CL-CONTAINERS:EVERY-KEY-VALUE-P)
; (DEFGENERIC METABANG.CL-CONTAINERS::EXCHANGE-HEAP-NODES)
; (DEFGENERIC METABANG.CL-CONTAINERS:FIND-CHILD-NODE)
; (DEFGENERIC METABANG.CL-CONTAINERS:FIND-SET)
; (DEFGENERIC METABANG.CL-CONTAINERS:FIND-VALUE)
; (DEFGENERIC METABANG.CL-CONTAINERS:FIRST-ELEMENT)
; (DEFGENERIC METABANG.CL-CONTAINERS:GRAFT-NODES)
; (DEFGENERIC METABANG.CL-CONTAINERS::HAS-CHILDREN-P)
; (DEFGENERIC METABANG.CL-CONTAINERS::HEAP-NODE-PARENT)
; (DEFGENERIC METABANG.CL-CONTAINERS::HEAPIFY)
; (DEFGENERIC METABANG.CL-CONTAINERS::HEIGHT)
; (DEFGENERIC METABANG.CL-CONTAINERS::INCREMENT-END)
; (DEFGENERIC METABANG.CL-CONTAINERS::INITIALIZE-CONTAINER)
; (DEFGENERIC METABANG.CL-CONTAINERS:INORDER-WALK)
; (DEFGENERIC METABANG.CL-CONTAINERS::INORDER-WALK-NODES)
; (DEFGENERIC METABANG.CL-CONTAINERS:INSERT-ITEM-AFTER)
; (DEFGENERIC METABANG.CL-CONTAINERS:INSERT-ITEM-AT)
; (DEFGENERIC METABANG.CL-CONTAINERS:INSERT-ITEM-BEFORE)
; (DEFGENERIC METABANG.CL-CONTAINERS:INSERT-ITEM-ORDERED)
; (DEFGENERIC METABANG.CL-CONTAINERS:INSERT-ITEM-ORDERED-ABOUT-NODE)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITEM-AT-1)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITEM-AT-1!)
; (DEFGENERIC METABANG.CL-CONTAINERS::ITEM-KEY)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-CONTAINER)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-ELEMENTS)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-ELEMENTS-STABLY)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-KEY-VALUE)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-KEY-VALUE-STABLY)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-KEYS)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-LEFT)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-LEFT-NODES)
; (DEFGENERIC METABANG.CL-CONTAINERS::ITERATE-NODES-ABOUT-NODE)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-RIGHT)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-RIGHT-NODES)
; (DEFGENERIC METABANG.CL-CONTAINERS::L-CHILD)
; (DEFGENERIC METABANG.CL-CONTAINERS::L-CHILD-INDEX)
; (DEFGENERIC METABANG.CL-CONTAINERS:LAST-ELEMENT)
; (DEFGENERIC (SETF METABANG.CL-CONTAINERS:LAST-ELEMENT))
; (DEFGENERIC METABANG.CL-CONTAINERS:LEFT-AND-RIGHT-NODES-FOR-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:LEFT-NODE-FOR-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS::LINK-NODES)
; (DEFGENERIC METABANG.CL-CONTAINERS::MAKE-INITIAL-ELEMENT)
; (DEFGENERIC METABANG.CL-CONTAINERS:MAKE-NODE-FOR-CONTAINER)
; (DEFGENERIC METABANG.CL-CONTAINERS::MAKE-SET)
; (DEFGENERIC METABANG.CL-CONTAINERS:NEXT-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS::NODE-EMPTY-P)
; (DEFGENERIC METABANG.CL-CONTAINERS::NODE-PARENT-INDEX)
; (DEFGENERIC METABANG.CL-CONTAINERS:POP-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:POSTORDER-WALK)
; (DEFGENERIC METABANG.CL-CONTAINERS::POSTORDER-WALK-NODES)
; (DEFGENERIC METABANG.CL-CONTAINERS:PREDECESSOR)
; (DEFGENERIC METABANG.CL-CONTAINERS:PREORDER-WALK)
; (DEFGENERIC METABANG.CL-CONTAINERS::PREORDER-WALK-NODES)
; (DEFGENERIC METABANG.CL-CONTAINERS::PRINT-CONTAINER-CONTENTS)
; (DEFGENERIC METABANG.CL-CONTAINERS::PRINT-CONTAINER-SUMMARY)
; (DEFGENERIC METABANG.CL-CONTAINERS:PUSH-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS::R-CHILD)
; (DEFGENERIC METABANG.CL-CONTAINERS::R-CHILD-INDEX)
; (DEFGENERIC METABANG.CL-CONTAINERS::RB-DELETE-FIXUP)
; (DEFGENERIC METABANG.CL-CONTAINERS:REDUCE-CONTAINER)
; (DEFGENERIC METABANG.CL-CONTAINERS:REDUCE-ELEMENTS)
; (DEFGENERIC METABANG.CL-CONTAINERS:REDUCE-NODES)
; (DEFGENERIC METABANG.CL-CONTAINERS:REPLACE-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:REPRESENTATIVE)
; (DEFGENERIC METABANG.CL-CONTAINERS:REPRESENTATIVE-NODE)
; (DEFGENERIC METABANG.CL-CONTAINERS:RIGHT-NODE-FOR-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS::ROTATE-LEFT)
; (DEFGENERIC METABANG.CL-CONTAINERS::ROTATE-RIGHT)
; (DEFGENERIC METABANG.CL-CONTAINERS:SEARCH-FOR-ELEMENT)
; (DEFGENERIC METABANG.CL-CONTAINERS:SEARCH-FOR-KEY)
; (DEFGENERIC METABANG.CL-CONTAINERS:SEARCH-FOR-MATCHING-NODE)
; (DEFGENERIC METABANG.CL-CONTAINERS:SEARCH-FOR-NODE)
; (DEFGENERIC METABANG.CL-CONTAINERS:SEARCH-FOR-NODE*)
; (DEFGENERIC METABANG.CL-CONTAINERS::SET-DIRTY-FLAG)
; (DEFGENERIC METABANG.CL-CONTAINERS:SOME-ELEMENT-P)
; (DEFGENERIC METABANG.CL-CONTAINERS:SOME-KEY-VALUE-P)
; (DEFGENERIC METABANG.CL-CONTAINERS::SORT-CONTAINER)
; (DEFGENERIC METABANG.CL-CONTAINERS:SORT-ELEMENTS)
; (DEFGENERIC METABANG.CL-CONTAINERS:SORT-KEYS)
; (DEFGENERIC METABANG.CL-CONTAINERS::SORT-UPDATE-LEFT)
; (DEFGENERIC METABANG.CL-CONTAINERS::SORT-UPDATE-RIGHT)
; (DEFGENERIC METABANG.CL-CONTAINERS:SUCCESSOR)
; (DEFGENERIC METABANG.UTILITIES:TOTAL-SIZE)
; (DEFGENERIC METABANG.CL-CONTAINERS::UPDATE-ELEMENT)
; (DEFGENERIC METABANG.CL-CONTAINERS:UPDATE-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS::WALK-TREE)
; (DEFGENERIC METABANG.CL-CONTAINERS::WALK-TREE-NODES)
; (DEFGENERIC (SETF METABANG.CL-CONTAINERS:PACKAGES))
; (DEFGENERIC METABANG.CL-CONTAINERS:CONTAINER->LIST)
; (DEFGENERIC METABANG.CL-CONTAINERS:CURRENT-ITEM)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-CHILDREN)
; (DEFGENERIC METABANG.CL-CONTAINERS::FIRST-NODE)
; (DEFGENERIC METABANG.CL-CONTAINERS::%OPERATE-AFTER-FINDING)
; (DEFGENERIC METABANG.CL-CONTAINERS::INSERT-INITIAL-CONTENTS-P)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATABLE-P)
; (DEFGENERIC METABANG.CL-CONTAINERS:KEY-VALUE-ITERATABLE-P)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\containers.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPARAMETER METABANG.CL-CONTAINERS::+EMPTY-INITIAL-ELEMENT+)
; (TOP-LEVEL-FORM 3)
; (DEFCLASS METABANG.CL-CONTAINERS:ABSTRACT-CONTAINER)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (DEFCLASS METABANG.CL-CONTAINERS::CONCRETE-CONTAINER)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 5)
; (DEFCLASS METABANG.CL-CONTAINERS:CONTAINER-NODE-MIXIN)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 5)
; (DEFCLASS METABANG.CL-CONTAINERS:PARENT-NODE-MIXIN)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 6)
; (DEFCLASS METABANG.CL-CONTAINERS::TWO-CHILD-NODE)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 7)
; (DEFCLASS METABANG.CL-CONTAINERS::KEYED-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 8)
; (DEFCLASS METABANG.CL-CONTAINERS::TYPED-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 9)
; (DEFCLASS METABANG.CL-CONTAINERS::BOUNDED-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
; (DEFCLASS METABANG.CL-CONTAINERS::INDEXED-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; (METHOD (SETF METABANG.CL-CONTAINERS:ITEM-AT) (T T))
; (DEFCLASS METABANG.CL-CONTAINERS::INITIAL-ELEMENT-MIXIN)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 13)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-CONTAINERS::INITIAL-
ELEMENT-MIXIN))
; METABANG.CL-CONTAINERS::RETURN-EMPTY-INITIAL-ELEMENT
; (METHOD METABANG.CL-CONTAINERS::MAKE-INITIAL-ELEMENT (METABANG.CL-
CONTAINERS::INITIAL-ELEMENT-MIXIN))
; (DEFCLASS METABANG.CL-CONTAINERS::BASIC-INITIAL-CONTENTS-MIXIN)
; (TOP-LEVEL-FORM 17)
; (TOP-LEVEL-FORM 17)
; (TOP-LEVEL-FORM 17)
; (TOP-LEVEL-FORM 18)
; (DEFCLASS METABANG.CL-CONTAINERS:INITIAL-CONTENTS-MIXIN)
; (TOP-LEVEL-FORM 18)
; (TOP-LEVEL-FORM 18)
; (TOP-LEVEL-FORM 18)
; (DEFCLASS METABANG.CL-CONTAINERS::INITIAL-CONTENTS-KEY-VALUE-MIXIN)
; (TOP-LEVEL-FORM 19)
; (TOP-LEVEL-FORM 19)
; (TOP-LEVEL-FORM 19)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-CONTAINERS::BASIC-
INITIAL-CONTENTS-MIXIN))
; (DEFCLASS METABANG.CL-CONTAINERS:TEST-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 21)
; (TOP-LEVEL-FORM 21)
; (TOP-LEVEL-FORM 21)
; (TOP-LEVEL-FORM 22)
; (DEFCLASS METABANG.CL-CONTAINERS:CONTAINER-USES-NODES-MIXIN)
; (TOP-LEVEL-FORM 22)
; (TOP-LEVEL-FORM 22)
; (TOP-LEVEL-FORM 22)
; (DEFCLASS METABANG.CL-CONTAINERS::FINDABLE-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 23)
; (TOP-LEVEL-FORM 23)
; (TOP-LEVEL-FORM 23)
; (DEFCLASS METABANG.CL-CONTAINERS::SEARCHABLE-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 24)
; (TOP-LEVEL-FORM 24)
; (TOP-LEVEL-FORM 24)
; (DEFCLASS METABANG.CL-CONTAINERS:ITERATABLE-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 25)
; (TOP-LEVEL-FORM 25)
; (TOP-LEVEL-FORM 25)
; (DEFCLASS METABANG.CL-CONTAINERS:KEY-VALUE-ITERATABLE-CONTAINER-
MIXIN)
; (TOP-LEVEL-FORM 26)
; (TOP-LEVEL-FORM 26)
; (TOP-LEVEL-FORM 26)
; (METHOD METABANG.CL-CONTAINERS:ITERATE-CONTAINER (T T))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-ITEMS (T))
; (TOP-LEVEL-FORM 29)
; (TOP-LEVEL-FORM 29)
; (DEFCLASS METABANG.CL-CONTAINERS:I-KNOW-MY-NODE-MIXIN)
; (TOP-LEVEL-FORM 29)
; (TOP-LEVEL-FORM 29)
; (TOP-LEVEL-FORM 29)
; (METHOD METABANG.CL-CONTAINERS:MAKE-NODE-FOR-CONTAINER :AROUND (T
METABANG.CL-CONTAINERS:I-KNOW-MY-NODE-MIXIN))
; (TOP-LEVEL-FORM 31)
; (DEFCLASS METABANG.CL-CONTAINERS:NON-ASSOCIATIVE-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 31)
; (TOP-LEVEL-FORM 31)
; (TOP-LEVEL-FORM 31)
; (DEFCLASS METABANG.CL-CONTAINERS::UNORDERED-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 32)
; (TOP-LEVEL-FORM 32)
; (TOP-LEVEL-FORM 32)
; (DEFCLASS METABANG.CL-CONTAINERS::ORDERED-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 33)
; (TOP-LEVEL-FORM 33)
; (TOP-LEVEL-FORM 33)
; (DEFCLASS METABANG.CL-CONTAINERS::SORTED-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 34)
; (TOP-LEVEL-FORM 34)
; (TOP-LEVEL-FORM 34)
; (DEFCLASS METABANG.CL-CONTAINERS::CLASSIFIED-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 35)
; (TOP-LEVEL-FORM 35)
; (TOP-LEVEL-FORM 35)
; (DEFCLASS METABANG.CL-CONTAINERS::USES-CONTENTS-MIXIN)
; (TOP-LEVEL-FORM 36)
; (TOP-LEVEL-FORM 36)
; (TOP-LEVEL-FORM 36)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-CONTAINERS::USES-
CONTENTS-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-ELEMENTS (METABANG.CL-
CONTAINERS::USES-CONTENTS-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS::USES-CONTENTS-MIXIN T))
; (DEFCLASS METABANG.CL-CONTAINERS::CONTENTS-AS-SEQUENCE-MIXIN)
; (TOP-LEVEL-FORM 40)
; (TOP-LEVEL-FORM 40)
; (TOP-LEVEL-FORM 40)
; (DEFCLASS METABANG.CL-CONTAINERS:CONTENTS-AS-ARRAY-MIXIN)
; (TOP-LEVEL-FORM 41)
; (TOP-LEVEL-FORM 41)
; (TOP-LEVEL-FORM 41)
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS:CONTENTS-AS-
ARRAY-MIXIN))
; (METHOD METABANG.UTILITIES:TOTAL-SIZE (METABANG.CL-
CONTAINERS:CONTENTS-AS-ARRAY-MIXIN))
; (METHOD METABANG.CL-CONTAINERS::INSERT-INITIAL-CONTENTS-P
(METABANG.CL-CONTAINERS:CONTENTS-AS-ARRAY-MIXIN))
; (METHOD METABANG.CL-CONTAINERS::MAKE-CONTAINER-FOR-CONTENTS
(METABANG.CL-CONTAINERS:CONTENTS-AS-ARRAY-MIXIN))
; (DEFCLASS METABANG.CL-CONTAINERS:CONTENTS-AS-LIST-MIXIN)
; (TOP-LEVEL-FORM 46)
; (TOP-LEVEL-FORM 46)
; (TOP-LEVEL-FORM 46)
; (METHOD METABANG.CL-CONTAINERS::MAKE-CONTAINER-FOR-CONTENTS
(METABANG.CL-CONTAINERS:CONTENTS-AS-LIST-MIXIN))
; (DEFCLASS METABANG.CL-CONTAINERS:LIST-CONTAINER)
; (TOP-LEVEL-FORM 48)
; (TOP-LEVEL-FORM 48)
; (TOP-LEVEL-FORM 48)
; (DEFCLASS METABANG.CL-CONTAINERS:CONTENTS-AS-HASHTABLE-MIXIN)
; (TOP-LEVEL-FORM 49)
; (TOP-LEVEL-FORM 49)
; (TOP-LEVEL-FORM 49)
; (DEFCLASS METABANG.CL-CONTAINERS:ASSOCIATIVE-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 50)
; (TOP-LEVEL-FORM 50)
; (TOP-LEVEL-FORM 50)
; (DEFCLASS METABANG.CL-CONTAINERS::ARRAY-CONTAINER-ABSTRACT)
; (TOP-LEVEL-FORM 51)
; (TOP-LEVEL-FORM 51)
; (TOP-LEVEL-FORM 51)
; (DEFCLASS METABANG.CL-CONTAINERS:ARRAY-CONTAINER)
; (TOP-LEVEL-FORM 52)
; (TOP-LEVEL-FORM 52)
; (TOP-LEVEL-FORM 52)
; (DEFCLASS METABANG.CL-CONTAINERS:SPARSE-ARRAY-CONTAINER)
; (TOP-LEVEL-FORM 53)
; (TOP-LEVEL-FORM 53)
; (TOP-LEVEL-FORM 53)
; (DEFCLASS METABANG.CL-CONTAINERS:SIMPLE-ASSOCIATIVE-CONTAINER)
; (TOP-LEVEL-FORM 54)
; (TOP-LEVEL-FORM 54)
; (TOP-LEVEL-FORM 54)
; (DEFCLASS METABANG.CL-CONTAINERS:ASSOCIATIVE-CONTAINER)
; (TOP-LEVEL-FORM 55)
; (TOP-LEVEL-FORM 55)
; (TOP-LEVEL-FORM 55)
; (DEFCLASS METABANG.CL-CONTAINERS:BIASSOCIATIVE-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 56)
; (TOP-LEVEL-FORM 56)
; (TOP-LEVEL-FORM 56)
; (DEFCLASS METABANG.CL-CONTAINERS:ALIST-CONTAINER)
; (TOP-LEVEL-FORM 57)
; (TOP-LEVEL-FORM 57)
; (TOP-LEVEL-FORM 57)
; (TOP-LEVEL-FORM 58)
; (DEFCLASS METABANG.CL-CONTAINERS:STABLE-ASSOCIATIVE-CONTAINER)
; (TOP-LEVEL-FORM 58)
; (TOP-LEVEL-FORM 58)
; (TOP-LEVEL-FORM 58)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-CONTAINERS:STABLE-
ASSOCIATIVE-CONTAINER))
; (DEFCLASS METABANG.CL-CONTAINERS::ASSOCIATIVE-ARRAY)
; (TOP-LEVEL-FORM 60)
; (TOP-LEVEL-FORM 60)
; (TOP-LEVEL-FORM 60)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-
CONTAINERS::ASSOCIATIVE-ARRAY))
; (METHOD METABANG.CL-CONTAINERS::INSERT-INITIAL-CONTENTS-P
(METABANG.CL-CONTAINERS::BASIC-INITIAL-CONTENTS-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:ITERATABLE-P (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:KEY-VALUE-ITERATABLE-P (METABANG.CL-
CONTAINERS:KEY-VALUE-ITERATABLE-CONTAINER-MIXIN))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\container-api.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\containers.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\basic-operations.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFGENERIC METABANG.CL-CONTAINERS:MAKE-CONTAINER)
; (DEFGENERIC METABANG.CL-CONTAINERS:EMPTY-P)
; (METHOD METABANG.CL-CONTAINERS:ITERATE-ELEMENTS (METABANG.CL-
CONTAINERS:ABSTRACT-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-ELEMENTS (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:FIND-ELEMENT (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ELEMENT (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:PRINT-CONTAINER (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:NTH-ELEMENT :AROUND (T INTEGER))
; (METHOD METABANG.CL-CONTAINERS:NTH-ELEMENT (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN INTEGER))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-NODES (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-ELEMENTS (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN))
; METABANG.CL-CONTAINERS::COLLECTOR-INTERNAL
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-ITEM (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-ELEMENT (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-NODE (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; METABANG.CL-CONTAINERS::%SEARCH-IN-CONTAINER
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-MATCH (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; METABANG.CL-CONTAINERS::%SEARCH-FOR-MATCH
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-MATCHING-NODE (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-NODE (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-NODE (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN METABANG.CL-CONTAINERS:CONTAINER-
NODE-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-NODE* (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-NODE* (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN METABANG.CL-CONTAINERS:CONTAINER-
NODE-MIXIN))
; (METHOD METABANG.UTILITIES:BEST-ITEM (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; (METHOD METABANG.UTILITIES:BEST-ITEM (LIST T))
; (METHOD METABANG.CL-CONTAINERS:BEST-NODE (T T))
; (METHOD METABANG.CL-CONTAINERS:BEST-ELEMENT (T T))
; METABANG.CL-CONTAINERS::%BEST-HELPER
; (METHOD METABANG.UTILITIES:ARGMAX (T T))
; (METHOD METABANG.UTILITIES:ARGMIN (T T))
; (METHOD METABANG.CL-CONTAINERS:REDUCE-CONTAINER (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:REDUCE-ELEMENTS (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:REDUCE-NODES (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; METABANG.CL-CONTAINERS::REDUCE-INTERNAL
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM-IF (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN))
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM :AFTER (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN METABANG.CL-CONTAINERS:I-KNOW-MY-
NODE-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:DELETE-LIST (METABANG.CL-
CONTAINERS:NON-ASSOCIATIVE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:INSERT-LIST (METABANG.CL-
CONTAINERS:NON-ASSOCIATIVE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:INSERT-SEQUENCE (METABANG.CL-
CONTAINERS::ORDERED-CONTAINER-MIXIN ARRAY))
; (METHOD METABANG.CL-CONTAINERS:INSERT-SEQUENCE (METABANG.CL-
CONTAINERS::ORDERED-CONTAINER-MIXIN LIST))
; (METHOD METABANG.CL-CONTAINERS:INSERT-SEQUENCE (METABANG.CL-
CONTAINERS::ORDERED-CONTAINER-MIXIN METABANG.CL-CONTAINERS:ITERATABLE-
CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:INSERT-NEW-ITEM (METABANG.CL-
CONTAINERS::SEARCHABLE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:SUCCESSOR (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:PREDECESSOR (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS::%OPERATE-AFTER-FINDING (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN T T))
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS::CONTENTS-AS-
SEQUENCE-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:EMPTY-P (METABANG.CL-
CONTAINERS::CONTENTS-AS-SEQUENCE-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:SORT-ELEMENTS (METABANG.CL-
CONTAINERS::CONTENTS-AS-SEQUENCE-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-
CONTAINERS:CONTENTS-AS-ARRAY-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-ITEM (METABANG.CL-
CONTAINERS:CONTENTS-AS-ARRAY-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS:CONTENTS-AS-ARRAY-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:FIND-ITEM (METABANG.CL-
CONTAINERS:CONTENTS-AS-ARRAY-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:SOME-ITEM-P (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN FUNCTION))
; (METHOD METABANG.CL-CONTAINERS:EVERY-ITEM-P (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN FUNCTION))
; (METHOD METABANG.CL-CONTAINERS:SOME-ELEMENT-P (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN FUNCTION))
; (METHOD METABANG.CL-CONTAINERS:EVERY-ELEMENT-P (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN FUNCTION))
; METABANG.CL-CONTAINERS::%EVERY-THING-P
; METABANG.CL-CONTAINERS::%SOME-THING-P
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:CONTENTS-AS-LIST-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:APPEND-ITEM (METABANG.CL-
CONTAINERS:CONTENTS-AS-LIST-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:APPEND-NEW-ITEM (METABANG.CL-
CONTAINERS:CONTENTS-AS-LIST-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:EMPTY-P (METABANG.CL-
CONTAINERS:CONTENTS-AS-LIST-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-
CONTAINERS:CONTENTS-AS-LIST-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-ITEM (METABANG.CL-
CONTAINERS:CONTENTS-AS-LIST-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS::MAKE-CONTAINER-FOR-CONTENTS
(METABANG.CL-CONTAINERS:CONTENTS-AS-HASHTABLE-MIXIN))
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS:CONTENTS-AS-
HASHTABLE-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-
CONTAINERS:CONTENTS-AS-HASHTABLE-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-ITEM (METABANG.CL-
CONTAINERS:CONTENTS-AS-HASHTABLE-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS:CONTENTS-AS-HASHTABLE-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-KEYS (METABANG.CL-
CONTAINERS:CONTENTS-AS-HASHTABLE-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-KEY-VALUE (METABANG.CL-
CONTAINERS:KEY-VALUE-ITERATABLE-CONTAINER-MIXIN))
; METABANG.CL-CONTAINERS::%COLLECT-KEY-VALUE
; (METHOD METABANG.CL-CONTAINERS:FIND-ITEM (METABANG.CL-
CONTAINERS:CONTENTS-AS-HASHTABLE-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:REVERSE-FIND (METABANG.CL-
CONTAINERS:CONTENTS-AS-HASHTABLE-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:FIND-VALUE (METABANG.CL-
CONTAINERS:CONTENTS-AS-HASHTABLE-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT! (METABANG.CL-
CONTAINERS:STABLE-ASSOCIATIVE-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS::ADD-DEFAULT-ITEM (METABANG.CL-
CONTAINERS:STABLE-ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-
CONTAINERS:STABLE-ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS:STABLE-
ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-KEYS (METABANG.CL-
CONTAINERS:STABLE-ASSOCIATIVE-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS:STABLE-ASSOCIATIVE-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-ELEMENTS-STABLY (METABANG.CL-
CONTAINERS:STABLE-ASSOCIATIVE-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-KEY-VALUE (METABANG.CL-
CONTAINERS:STABLE-ASSOCIATIVE-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-KEYS (METABANG.CL-
CONTAINERS:STABLE-ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-KEY-VALUE-STABLY (METABANG.CL-
CONTAINERS:STABLE-ASSOCIATIVE-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-KEY-VALUE-STABLY (METABANG.CL-
CONTAINERS:STABLE-ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-ELEMENTS-STABLY (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-CONTAINERS:STABLE-
ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT! (METABANG.CL-
CONTAINERS::ASSOCIATIVE-ARRAY T))
; METABANG.CL-CONTAINERS::TUPLE-INDEX
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-
CONTAINERS::ASSOCIATIVE-ARRAY))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS::ASSOCIATIVE-ARRAY T))
; (METHOD METABANG.CL-CONTAINERS::CONTAINER-DIMENSION (METABANG.CL-
CONTAINERS::ASSOCIATIVE-ARRAY T))
; (METHOD METABANG.CL-CONTAINERS:DIMENSIONS (METABANG.CL-
CONTAINERS::ASSOCIATIVE-ARRAY))
; (METHOD METABANG.CL-CONTAINERS:FIND-ITEM (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:CONTAINER-USES-NODES-MIXIN T))
; METABANG.CL-CONTAINERS:COLLECT-USING
; METABANG.CL-CONTAINERS:COUNT-USING
; (METHOD METABANG.CL-CONTAINERS::CONTAINER-DIFFERENCE (T T))
; METABANG.CL-CONTAINERS::ASSOCIATIVE-CONTAINER-P
; (METHOD METABANG.CL-CONTAINERS::ADD-INITIAL-CONTENTS (METABANG.CL-
CONTAINERS:INITIAL-CONTENTS-MIXIN LIST))
; (METHOD METABANG.CL-CONTAINERS::ADD-INITIAL-CONTENTS (METABANG.CL-
CONTAINERS:INITIAL-CONTENTS-MIXIN METABANG.CL-CONTAINERS:ITERATABLE-
CONTAINER-MIXIN))
; METABANG.CL-CONTAINERS::ADD-INITIAL-CONTENTS-INTERNAL
; (METHOD METABANG.CL-CONTAINERS::ADD-INITIAL-CONTENTS (METABANG.CL-
CONTAINERS::INITIAL-CONTENTS-KEY-VALUE-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:ELEMENT-POSITION (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:ELEMENT-POSITION (METABANG.CL-
CONTAINERS::CONTENTS-AS-SEQUENCE-MIXIN T))
; (METHOD METABANG.UTILITIES:SAMEP (METABANG.CL-CONTAINERS:LIST-
CONTAINER METABANG.CL-CONTAINERS:LIST-CONTAINER))
; (METHOD METABANG.UTILITIES:SAMEP (LIST METABANG.CL-CONTAINERS:LIST-
CONTAINER))
; (METHOD METABANG.UTILITIES:SAMEP (METABANG.CL-CONTAINERS:LIST-
CONTAINER LIST))
; (METHOD METABANG.UTILITIES:SAMEP (LIST LIST))
; (METHOD METABANG.CL-CONTAINERS:REVERSE-CONTAINER (METABANG.CL-
CONTAINERS::ORDERED-CONTAINER-MIXIN))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\basic-operations.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\queues.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS METABANG.CL-CONTAINERS:ABSTRACT-QUEUE)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (METHOD METABANG.CL-CONTAINERS:ENQUEUE (METABANG.CL-
CONTAINERS:ABSTRACT-QUEUE T))
; (METHOD METABANG.CL-CONTAINERS:DEQUEUE (METABANG.CL-
CONTAINERS:ABSTRACT-QUEUE))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-
CONTAINERS:ABSTRACT-QUEUE))
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT :BEFORE (METABANG.CL-
CONTAINERS:ABSTRACT-QUEUE))
; (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST :BEFORE (METABANG.CL-
CONTAINERS:ABSTRACT-QUEUE))
; (METHOD METABANG.CL-CONTAINERS::ERROR-IF-QUEUE-EMPTY (METABANG.CL-
CONTAINERS:ABSTRACT-QUEUE))
; (DEFCLASS METABANG.CL-CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 9)
; (METHOD INITIALIZE-INSTANCE :AROUND (METABANG.CL-CONTAINERS:PRIORITY-
QUEUE-ON-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST (METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:EMPTY-P (METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER))
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS:PRIORITY-
QUEUE-ON-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT (METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER))
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:FIND-ITEM (METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:FIND-NODE (METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:FIND-ELEMENT (METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-NODE (METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ELEMENT (METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM-IF (T METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-ELEMENTS (METABANG.CL-
CONTAINERS:PRIORITY-QUEUE-ON-CONTAINER T))
; (DEFCLASS METABANG.CL-CONTAINERS:BASIC-QUEUE)
; (TOP-LEVEL-FORM 27)
; (TOP-LEVEL-FORM 27)
; (TOP-LEVEL-FORM 27)
; METABANG.CL-CONTAINERS::FRONT-OF-QUEUE
; METABANG.CL-CONTAINERS::FRONT-OF-QUEUE!
; (DEFSETF METABANG.CL-CONTAINERS::FRONT-OF-QUEUE)
; METABANG.CL-CONTAINERS::TAIL-OF-QUEUE
; METABANG.CL-CONTAINERS::TAIL-OF-QUEUE!
; (DEFSETF METABANG.CL-CONTAINERS::TAIL-OF-QUEUE)
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::TAIL-OF-QUEUE not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::TAIL-OF-QUEUE! not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::TAIL-OF-QUEUE not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::TAIL-OF-QUEUE! not found
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:BASIC-QUEUE T))
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST
(METABANG.CL-CONTAINERS:BASIC-QUEUE)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST
(METABANG.CL-CONTAINERS:BASIC-QUEUE)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE! not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST
(METABANG.CL-CONTAINERS:BASIC-QUEUE)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST
(METABANG.CL-CONTAINERS:BASIC-QUEUE)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST
(METABANG.CL-CONTAINERS:BASIC-QUEUE)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST
(METABANG.CL-CONTAINERS:BASIC-QUEUE)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE! not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST
(METABANG.CL-CONTAINERS:BASIC-QUEUE)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE not found
; (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST (METABANG.CL-
CONTAINERS:BASIC-QUEUE))
; (METHOD METABANG.CL-CONTAINERS:EMPTY-P (METABANG.CL-CONTAINERS:BASIC-
QUEUE))
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE not found
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS:BASIC-QUEUE T))
;;;*** Warning in (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-
CONTAINERS:BASIC-QUEUE)): Inline expansion for METABANG.CL-
CONTAINERS::FRONT-OF-QUEUE not found
;;;*** Warning in (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-
CONTAINERS:BASIC-QUEUE)): Inline expansion for METABANG.CL-
CONTAINERS::FRONT-OF-QUEUE not found
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS:BASIC-
QUEUE))
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT
(METABANG.CL-CONTAINERS:BASIC-QUEUE)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT
(METABANG.CL-CONTAINERS:BASIC-QUEUE)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE not found
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT (METABANG.CL-
CONTAINERS:BASIC-QUEUE))
;;;*** Warning in (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT)
(T METABANG.CL-CONTAINERS:BASIC-QUEUE)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE not found
;;;*** Warning in (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT)
(T METABANG.CL-CONTAINERS:BASIC-QUEUE)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE not found
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T METABANG.CL-
CONTAINERS:BASIC-QUEUE))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-CONTAINERS:BASIC-
QUEUE))
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::TAIL-OF-QUEUE not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE! not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::TAIL-OF-QUEUE! not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::TAIL-OF-QUEUE not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE! not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::FRONT-OF-QUEUE not found
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM
(METABANG.CL-CONTAINERS:BASIC-QUEUE T)): Inline expansion for
METABANG.CL-CONTAINERS::TAIL-OF-QUEUE! not found
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:BASIC-QUEUE T))
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
219BE577> on #<ASDF:CL-SOURCE-FILE "queues" 219B8A4F>.
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\stacks.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS METABANG.CL-CONTAINERS::ABSTRACT-STACK)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T METABANG.CL-
CONTAINERS::ABSTRACT-STACK))
; (METHOD METABANG.CL-CONTAINERS:PUSH-ITEM (METABANG.CL-
CONTAINERS::ABSTRACT-STACK T))
; (DEFCLASS METABANG.CL-CONTAINERS:STACK-CONTAINER)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 5)
; (METHOD METABANG.CL-CONTAINERS::MAKE-CONTAINER-FOR-CONTENTS
(METABANG.CL-CONTAINERS:STACK-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT (METABANG.CL-
CONTAINERS:STACK-CONTAINER))
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T METABANG.CL-
CONTAINERS:STACK-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:POP-ITEM (METABANG.CL-
CONTAINERS:STACK-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:STACK-CONTAINER T))
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS:STACK-
CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:EMPTY-P (METABANG.CL-CONTAINERS:STACK-
CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-CONTAINERS:STACK-
CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-ITEM (METABANG.CL-
CONTAINERS:STACK-CONTAINER T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\vectors.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS METABANG.CL-CONTAINERS::VECTOR-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-
CONTAINERS::VECTOR-CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT! (METABANG.CL-
CONTAINERS::VECTOR-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:NTH-ELEMENT (METABANG.CL-
CONTAINERS::VECTOR-CONTAINER-MIXIN INTEGER))
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT (METABANG.CL-
CONTAINERS::VECTOR-CONTAINER-MIXIN))
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T METABANG.CL-
CONTAINERS::VECTOR-CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:LAST-ELEMENT (METABANG.CL-
CONTAINERS::VECTOR-CONTAINER-MIXIN))
; (METHOD (SETF METABANG.CL-CONTAINERS:LAST-ELEMENT) (T METABANG.CL-
CONTAINERS::VECTOR-CONTAINER-MIXIN))
; (DEFCLASS METABANG.CL-CONTAINERS::BASIC-VECTOR-CONTAINER)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
; (DEFCLASS METABANG.CL-CONTAINERS:BOUNDED-VECTOR-CONTAINER)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; (METHOD INITIALIZE-INSTANCE :AROUND (METABANG.CL-CONTAINERS:BOUNDED-
VECTOR-CONTAINER))
; (DEFCLASS METABANG.CL-CONTAINERS:VECTOR-CONTAINER)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 13)
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:VECTOR-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM-AT (METABANG.CL-
CONTAINERS:VECTOR-CONTAINER T T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM-AT (METABANG.CL-
CONTAINERS:VECTOR-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:VECTOR-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST (METABANG.CL-
CONTAINERS:VECTOR-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:DELETE-LAST (METABANG.CL-
CONTAINERS:VECTOR-CONTAINER))
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS:VECTOR-
CONTAINER))
; (DEFCLASS METABANG.CL-CONTAINERS:FLEXIBLE-VECTOR-CONTAINER)
; (TOP-LEVEL-FORM 21)
; (TOP-LEVEL-FORM 21)
; (TOP-LEVEL-FORM 21)
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT! :BEFORE (METABANG.CL-
CONTAINERS:FLEXIBLE-VECTOR-CONTAINER T))
; METABANG.CL-CONTAINERS::RESIZE-VECTOR
; (METHOD METABANG.UTILITIES:SAMEP (METABANG.CL-CONTAINERS::VECTOR-
CONTAINER-MIXIN METABANG.CL-CONTAINERS::VECTOR-CONTAINER-MIXIN))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\vectors.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\trees.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS METABANG.CL-CONTAINERS::ABSTRACT-TREE-CONTAINER)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS METABANG.CL-CONTAINERS:ROOTED-TREE-CONTAINER)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (DEFCLASS METABANG.CL-CONTAINERS:MANY-CHILD-NODE)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (METHOD METABANG.CL-CONTAINERS:ITERATE-CHILDREN (METABANG.CL-
CONTAINERS:MANY-CHILD-NODE T))
; (METHOD METABANG.CL-CONTAINERS::HAS-CHILDREN-P (METABANG.CL-
CONTAINERS:MANY-CHILD-NODE))
; (METHOD METABANG.CL-CONTAINERS:FIND-CHILD-NODE (METABANG.CL-
CONTAINERS:MANY-CHILD-NODE T))
; (DEFCLASS METABANG.CL-CONTAINERS:MANY-ORDERED-CHILD-NODE)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 8)
; (METHOD METABANG.CL-CONTAINERS:CHILDREN (METABANG.CL-CONTAINERS:MANY-
ORDERED-CHILD-NODE))
; (DEFCLASS METABANG.CL-CONTAINERS:MANY-UNORDERED-CHILD-NODE)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
; (DEFCLASS METABANG.CL-CONTAINERS:BINARY-SEARCH-TREE)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; (DEFCLASS METABANG.CL-CONTAINERS::BST-NODE)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; (METHOD METABANG.CL-CONTAINERS:MAKE-NODE-FOR-CONTAINER (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE T))
; (METHOD METABANG.CL-CONTAINERS::NODE-EMPTY-P (METABANG.CL-
CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS::NODE-EMPTY-P ((EQL NIL)))
; (METHOD PRINT-OBJECT (METABANG.CL-CONTAINERS::BST-NODE T))
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS:BINARY-
SEARCH-TREE))
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS:EMPTY-P (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-CONTAINERS:BINARY-
SEARCH-TREE))
; (METHOD METABANG.CL-CONTAINERS:FIND-ITEM (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE METABANG.CL-CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS:FIND-NODE (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE T))
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT (METABANG.CL-
CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS::FIRST-NODE (METABANG.CL-
CONTAINERS::BST-NODE))
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T METABANG.CL-
CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE))
; (METHOD METABANG.CL-CONTAINERS::FIRST-NODE (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE))
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE))
; (METHOD METABANG.CL-CONTAINERS:LAST-ELEMENT (METABANG.CL-
CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS:LAST-ELEMENT (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE))
; (METHOD (SETF METABANG.CL-CONTAINERS:LAST-ELEMENT) (T METABANG.CL-
CONTAINERS::BST-NODE))
; (METHOD (SETF METABANG.CL-CONTAINERS:LAST-ELEMENT) (T METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE))
; (METHOD METABANG.CL-CONTAINERS:SUCCESSOR (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE METABANG.CL-CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS:PREDECESSOR (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE METABANG.CL-CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE METABANG.CL-CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS:DELETE-NODE (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE METABANG.CL-CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS:DELETE-NODE :AFTER (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE METABANG.CL-CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE METABANG.CL-CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM-IF (T METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE T))
; (METHOD METABANG.CL-CONTAINERS:INORDER-WALK (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE T))
; (METHOD METABANG.CL-CONTAINERS:PREORDER-WALK (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE T))
; (METHOD METABANG.CL-CONTAINERS:POSTORDER-WALK (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE T))
; (METHOD METABANG.CL-CONTAINERS::INORDER-WALK-NODES (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE T))
; (METHOD METABANG.CL-CONTAINERS::PREORDER-WALK-NODES (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE T))
; (METHOD METABANG.CL-CONTAINERS::POSTORDER-WALK-NODES (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE T))
; (METHOD METABANG.CL-CONTAINERS::WALK-TREE (METABANG.CL-
CONTAINERS::BST-NODE T))
; (METHOD METABANG.CL-CONTAINERS::WALK-TREE ((EQL NIL) T))
; (METHOD METABANG.CL-CONTAINERS::WALK-TREE-NODES (METABANG.CL-
CONTAINERS::BST-NODE T))
; (METHOD METABANG.CL-CONTAINERS::WALK-TREE-NODES ((EQL NIL) T))
; (DEFCONSTANT METABANG.CL-CONTAINERS::+RBT-COLOR-BLACK+)
; (DEFCONSTANT METABANG.CL-CONTAINERS::+RBT-COLOR-RED+)
; (DEFVAR METABANG.CL-CONTAINERS::*RBT-EMPTY-NODE*)
; (DEFCLASS METABANG.CL-CONTAINERS:RED-BLACK-TREE)
; (TOP-LEVEL-FORM 55)
; (TOP-LEVEL-FORM 55)
; (TOP-LEVEL-FORM 55)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-CONTAINERS:RED-BLACK-
TREE))
; (DEFCLASS METABANG.CL-CONTAINERS::RED-BLACK-NODE)
; (TOP-LEVEL-FORM 57)
; (TOP-LEVEL-FORM 57)
; (TOP-LEVEL-FORM 57)
; (METHOD METABANG.CL-CONTAINERS::NODE-EMPTY-P (METABANG.CL-
CONTAINERS::RED-BLACK-NODE))
; (METHOD METABANG.CL-CONTAINERS:MAKE-NODE-FOR-CONTAINER (METABANG.CL-
CONTAINERS:RED-BLACK-TREE T))
; (METHOD PRINT-OBJECT (METABANG.CL-CONTAINERS::RED-BLACK-NODE T))
; (TOP-LEVEL-FORM 61)
; (METHOD METABANG.CL-CONTAINERS::ROTATE-LEFT (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE METABANG.CL-CONTAINERS::TWO-CHILD-NODE))
; (METHOD METABANG.CL-CONTAINERS::ROTATE-RIGHT (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE METABANG.CL-CONTAINERS::TWO-CHILD-NODE))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM :AFTER (METABANG.CL-
CONTAINERS:RED-BLACK-TREE METABANG.CL-CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:RED-BLACK-TREE METABANG.CL-CONTAINERS::RED-BLACK-NODE))
; (METHOD METABANG.CL-CONTAINERS::RB-DELETE-FIXUP (METABANG.CL-
CONTAINERS:RED-BLACK-TREE METABANG.CL-CONTAINERS::RED-BLACK-NODE))
; (METHOD METABANG.CL-CONTAINERS::WALK-TREE-NODES ((EQL METABANG.CL-
CONTAINERS::*RBT-EMPTY-NODE*) T))
; (METHOD METABANG.CL-CONTAINERS::WALK-TREE ((EQL METABANG.CL-
CONTAINERS::*RBT-EMPTY-NODE*) T))
; (METHOD METABANG.CL-CONTAINERS::HEIGHT (METABANG.CL-CONTAINERS::TWO-
CHILD-NODE))
; (METHOD METABANG.CL-CONTAINERS::HEIGHT (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE))
; (METHOD METABANG.CL-CONTAINERS::UPDATE-ELEMENT (METABANG.CL-
CONTAINERS:BINARY-SEARCH-TREE T))
; (DEFGENERIC METABANG.CL-CONTAINERS::BST-NODE-IS-LEFT-CHILD)
; (DEFGENERIC METABANG.CL-CONTAINERS::BST-NODE-IS-RIGHT-CHILD)
; (DEFGENERIC METABANG.CL-CONTAINERS::BST-NODE-SET-RIGHT-CHILD)
; (DEFGENERIC METABANG.CL-CONTAINERS::BST-NODE-SET-LEFT-CHILD)
; (DEFGENERIC METABANG.CL-CONTAINERS::BST-NODE-REPLACE-CHILD)
; (DEFCLASS METABANG.CL-CONTAINERS::SPLAY-TREE)
; (TOP-LEVEL-FORM 78)
; (TOP-LEVEL-FORM 78)
; (TOP-LEVEL-FORM 78)
; (DEFGENERIC METABANG.CL-CONTAINERS::SPLAY-TREE-ROTATE)
; (DEFGENERIC METABANG.CL-CONTAINERS::SPLAY-TREE-SPLAY)
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM :AFTER (METABANG.CL-
CONTAINERS::SPLAY-TREE METABANG.CL-CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-
CONTAINERS::SPLAY-TREE))
; (METHOD METABANG.CL-CONTAINERS::UPDATE-ELEMENT (METABANG.CL-
CONTAINERS::SPLAY-TREE T))
; (METHOD METABANG.CL-CONTAINERS:FIND-ITEM (METABANG.CL-
CONTAINERS::SPLAY-TREE METABANG.CL-CONTAINERS::BST-NODE))
; (DEFGENERIC METABANG.CL-CONTAINERS::RIGHT-MOST-CHILD)
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS::SPLAY-TREE METABANG.CL-CONTAINERS::BST-NODE))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS::SPLAY-TREE T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM-AT (METABANG.CL-
CONTAINERS::SPLAY-TREE))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\lists.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (METHOD METABANG.CL-CONTAINERS:INSERT-LIST (METABANG.CL-
CONTAINERS:LIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT (METABANG.CL-
CONTAINERS:LIST-CONTAINER))
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T METABANG.CL-
CONTAINERS:LIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:LIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:FIND-ITEM (METABANG.CL-
CONTAINERS:LIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST (METABANG.CL-
CONTAINERS:LIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:NTH-ELEMENT (METABANG.CL-
CONTAINERS:LIST-CONTAINER INTEGER))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-CONTAINERS:LIST-
CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:PRINT-CONTAINER (METABANG.CL-
CONTAINERS:LIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:LAST-ELEMENT (METABANG.CL-
CONTAINERS:LIST-CONTAINER))
; (METHOD (SETF METABANG.CL-CONTAINERS:LAST-ELEMENT) (T METABANG.CL-
CONTAINERS:LIST-CONTAINER))
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 13)
; (DEFCLASS METABANG.CL-CONTAINERS:SORTED-LIST-CONTAINER)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 13)
; (METHOD METABANG.CL-CONTAINERS::SET-DIRTY-FLAG (METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS::CLEAN-UP (METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:INSERT-LIST (METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT (METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER))
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST (METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:PRINT-CONTAINER (METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-ELEMENTS (METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ENSURE-SORTED (METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:FORCE-SORT (METABANG.CL-
CONTAINERS:SORTED-LIST-CONTAINER))
; (DEFCLASS METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE)
; (TOP-LEVEL-FORM 28)
; (TOP-LEVEL-FORM 28)
; (TOP-LEVEL-FORM 28)
; (METHOD PRINT-OBJECT (METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE
T))
; (DEFCLASS METABANG.CL-CONTAINERS:DLIST-CONTAINER)
; (TOP-LEVEL-FORM 30)
; (TOP-LEVEL-FORM 30)
; (TOP-LEVEL-FORM 30)
; (METHOD METABANG.CL-CONTAINERS:MAKE-NODE-FOR-CONTAINER (METABANG.CL-
CONTAINERS:DLIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-CONTAINERS:DLIST-
CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-CONTAINER-
NODE))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM-AFTER (METABANG.CL-
CONTAINERS:DLIST-CONTAINER T T))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM-AFTER (METABANG.CL-
CONTAINERS:DLIST-CONTAINER T METABANG.CL-CONTAINERS:DLIST-CONTAINER-
NODE))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM-AFTER (METABANG.CL-
CONTAINERS:DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE
T))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM-AFTER (METABANG.CL-
CONTAINERS:DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE
METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM-BEFORE (METABANG.CL-
CONTAINERS:DLIST-CONTAINER T T))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM-BEFORE (METABANG.CL-
CONTAINERS:DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE
T))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM-BEFORE (METABANG.CL-
CONTAINERS:DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE
METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM-AFTER (METABANG.CL-
CONTAINERS:DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-CONTAINER-
NODE))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM-BEFORE (METABANG.CL-
CONTAINERS:DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-CONTAINER-
NODE))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:DLIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-CONTAINER-
NODE))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS:DLIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-CONTAINERS:DLIST-
CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:REPLACE-ITEM (METABANG.CL-
CONTAINERS:DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE
T))
; (METHOD METABANG.CL-CONTAINERS:REPLACE-ITEM (METABANG.CL-
CONTAINERS:DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE
METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE))
; (METHOD METABANG.CL-CONTAINERS:SUCCESSOR (METABANG.CL-
CONTAINERS:DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-CONTAINER-
NODE))
; (METHOD METABANG.CL-CONTAINERS:PREDECESSOR (METABANG.CL-
CONTAINERS:DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-CONTAINER-
NODE))
; (TOP-LEVEL-FORM 51)
; (DEFCLASS METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER)
; (TOP-LEVEL-FORM 51)
; (TOP-LEVEL-FORM 51)
; (TOP-LEVEL-FORM 51)
; (METHOD METABANG.CL-CONTAINERS::ITERATE-NODES-ABOUT-NODE
(METABANG.CL-CONTAINERS:SORTED-LIST-CONTAINER METABANG.CL-
CONTAINERS:DLIST-CONTAINER-NODE T T))
; (METHOD METABANG.CL-CONTAINERS::ITERATE-NODES-ABOUT-NODE
(METABANG.CL-CONTAINERS:SORTED-LIST-CONTAINER METABANG.CL-CONTAINERS:I-
KNOW-MY-NODE-MIXIN T T))
; (METHOD METABANG.CL-CONTAINERS::ITERATE-NODES-ABOUT-NODE
(METABANG.CL-CONTAINERS:SORTED-LIST-CONTAINER T T T))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-
CONTAINER-NODE))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM-ORDERED-ABOUT-NODE
(METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-
CONTAINERS:DLIST-CONTAINER-NODE METABANG.CL-CONTAINERS:DLIST-CONTAINER-
NODE))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM-ORDERED-ABOUT-NODE
(METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER T METABANG.CL-
CONTAINERS:DLIST-CONTAINER-NODE))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM-ORDERED-ABOUT-NODE
(METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER T T))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM-ORDERED (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-
CONTAINER-NODE))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM-ORDERED (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:I-KNOW-MY-
NODE-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:FORCE-SORT (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ENSURE-SORTED (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:LEFT-NODE-FOR-ITEM (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:RIGHT-NODE-FOR-ITEM (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:LEFT-AND-RIGHT-NODES-FOR-ITEM
(METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-LEFT-NODES (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-
CONTAINER-NODE T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-LEFT-NODES (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:I-KNOW-MY-
NODE-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-LEFT-NODES (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER T T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-RIGHT-NODES (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-
CONTAINER-NODE T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-RIGHT-NODES (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:I-KNOW-MY-
NODE-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-RIGHT-NODES (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER T T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-LEFT (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-
CONTAINER-NODE T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-LEFT (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:I-KNOW-MY-
NODE-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-LEFT (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER T T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-RIGHT (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-
CONTAINER-NODE T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-RIGHT (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:I-KNOW-MY-
NODE-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-RIGHT (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER T T))
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS::SORT-UPDATE-LEFT
(METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-
CONTAINERS:DLIST-CONTAINER-NODE)): symbol-macro TEST is bound but not
referenced
; (METHOD METABANG.CL-CONTAINERS::SORT-UPDATE-LEFT (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-
CONTAINER-NODE))
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS::SORT-UPDATE-RIGHT
(METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-
CONTAINERS:DLIST-CONTAINER-NODE)): symbol-macro TEST is bound but not
referenced
; (METHOD METABANG.CL-CONTAINERS::SORT-UPDATE-RIGHT (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-
CONTAINER-NODE))
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:UPDATE-ITEM
(METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-
CONTAINERS:DLIST-CONTAINER-NODE)): symbol-macro TEST is bound but not
referenced
; (METHOD METABANG.CL-CONTAINERS:UPDATE-ITEM (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:DLIST-
CONTAINER-NODE))
; (METHOD METABANG.CL-CONTAINERS:UPDATE-ITEM (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER METABANG.CL-CONTAINERS:I-KNOW-MY-
NODE-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:UPDATE-ITEM (METABANG.CL-
CONTAINERS:SORTED-DLIST-CONTAINER T))
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E16F13> on #<ASDF:CL-SOURCE-FILE "lists" 21E1E37B>.
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\bags-and-sets.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS METABANG.CL-CONTAINERS::ABSTRACT-BAG/SET-CONTAINER)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (METHOD METABANG.CL-CONTAINERS::MAKE-CONTAINER-FOR-CONTENTS
(METABANG.CL-CONTAINERS::ABSTRACT-BAG/SET-CONTAINER))
; (DEFCLASS METABANG.CL-CONTAINERS:BAG-CONTAINER)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:BAG-CONTAINER T))
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS::ABSTRACT-
BAG/SET-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:EMPTY-P (METABANG.CL-
CONTAINERS::ABSTRACT-BAG/SET-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-
CONTAINERS::ABSTRACT-BAG/SET-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-ITEM (METABANG.CL-
CONTAINERS::ABSTRACT-BAG/SET-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-MATCH (METABANG.CL-
CONTAINERS::ABSTRACT-BAG/SET-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS::ABSTRACT-BAG/SET-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:FIND-ITEM (METABANG.CL-
CONTAINERS::ABSTRACT-BAG/SET-CONTAINER T))
; (DEFCLASS METABANG.CL-CONTAINERS:SET-CONTAINER)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 13)
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:SET-CONTAINER T))
; (DEFCLASS METABANG.CL-CONTAINERS::BAG/SET-CONTAINER)
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 15)
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS::BAG/SET-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS::BAG/SET-CONTAINER T))
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS::BAG/SET-
CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-ITEM (METABANG.CL-
CONTAINERS::BAG/SET-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS::BAG/SET-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:FIND-ITEM (METABANG.CL-
CONTAINERS::BAG/SET-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:FIND-VALUE (METABANG.CL-
CONTAINERS::BAG/SET-CONTAINER T))
; (TOP-LEVEL-FORM 23)
; (DEFCLASS METABANG.CL-CONTAINERS:KEYED-BAG/SET-CONTAINER)
; (TOP-LEVEL-FORM 23)
; (TOP-LEVEL-FORM 23)
; (TOP-LEVEL-FORM 23)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-CONTAINERS:KEYED-BAG/
SET-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:KEYED-BAG/SET-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:KEYED-BAG/SET-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:FIND-ITEM (METABANG.CL-
CONTAINERS:KEYED-BAG/SET-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS:KEYED-BAG/SET-CONTAINER T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\ring-buffers.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS METABANG.CL-CONTAINERS:RING-BUFFER)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; METABANG.CL-CONTAINERS::MAKE-RING-BUFFER
; (METHOD METABANG.CL-CONTAINERS:MAKE-CONTAINER ((EQL (QUOTE
METABANG.CL-CONTAINERS:RING-BUFFER))))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-CONTAINERS:RING-
BUFFER))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT! (METABANG.CL-CONTAINERS:RING-
BUFFER T))
; (METHOD METABANG.CL-CONTAINERS::INCREMENT-END (METABANG.CL-
CONTAINERS:RING-BUFFER))
; (METHOD METABANG.CL-CONTAINERS:NEXT-ITEM (METABANG.CL-
CONTAINERS:RING-BUFFER))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ITEM (METABANG.CL-
CONTAINERS:RING-BUFFER))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:RING-BUFFER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-FIRST (METABANG.CL-
CONTAINERS:RING-BUFFER))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-CONTAINERS:RING-
BUFFER))
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS:RING-
BUFFER))
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT (METABANG.CL-
CONTAINERS:RING-BUFFER))
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T METABANG.CL-
CONTAINERS:RING-BUFFER))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS:RING-BUFFER T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\miscellaneous.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; METABANG.CL-CONTAINERS:MERGE-ELEMENTS
; METABANG.CL-CONTAINERS:MERGE-NODES
; METABANG.CL-CONTAINERS::%MERGE-HELPER
; METABANG.CL-CONTAINERS:ELEMENT-COUNTS
; METABANG.CL-CONTAINERS:NODE-COUNTS
; METABANG.CL-CONTAINERS::%CONTAINER-COUNTS
; METABANG.CL-CONTAINERS:MAP-WINDOW-OVER-ELEMENTS
; METABANG.CL-CONTAINERS:MAP-WINDOW-OVER-NODES
; METABANG.CL-CONTAINERS:COLLECT-WINDOW-OVER-ELEMENTS
; METABANG.CL-CONTAINERS:COLLECT-WINDOW-OVER-NODES
; METABANG.CL-CONTAINERS::MAP-WINDOW-OVER-ELEMENTS-HELPER
; METABANG.CL-CONTAINERS:MAP-PAIRS
; METABANG.CL-CONTAINERS:COLLECT-PAIRS
; (METHOD METABANG.CL-CONTAINERS:UNIQUE-ELEMENTS (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:UNIQUE-ELEMENTS (LIST))
; (METHOD METABANG.CL-CONTAINERS:UNIQUE-NODES (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:UNIQUE-NODES (LIST))
; METABANG.CL-CONTAINERS::%UNIQUE-ELEMENTS
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\associative.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (METHOD METABANG.CL-CONTAINERS:SOME-KEY-VALUE-P (METABANG.CL-
CONTAINERS:ASSOCIATIVE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:EVERY-KEY-VALUE-P (METABANG.CL-
CONTAINERS:ASSOCIATIVE-CONTAINER-MIXIN T))
; (METHOD METABANG.UTILITIES:SAMEP (METABANG.CL-CONTAINERS:ASSOCIATIVE-
CONTAINER-MIXIN METABANG.CL-CONTAINERS:ASSOCIATIVE-CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-KEYS (METABANG.CL-
CONTAINERS:ASSOCIATIVE-CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-KEY (METABANG.CL-
CONTAINERS:ASSOCIATIVE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:REMOVE-ITEMS-IF (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:REMOVE-ITEMS-IF (METABANG.CL-
CONTAINERS:ASSOCIATIVE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS::COUNT-ITEMS (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:COUNT-ELEMENTS (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:COUNT-ELEMENTS (LIST T))
; (METHOD METABANG.CL-CONTAINERS:COUNT-ELEMENTS-IF (METABANG.CL-
CONTAINERS:ITERATABLE-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:COUNT-ELEMENTS-IF (LIST T))
; (METHOD METABANG.CL-CONTAINERS::PRINT-CONTAINER-SUMMARY (METABANG.CL-
CONTAINERS:ARRAY-CONTAINER T))
; METABANG.CL-CONTAINERS::MAKE-ARRAY-CONTAINER
; (METHOD METABANG.CL-CONTAINERS::MAKE-CONTAINER-FOR-CONTENTS
(METABANG.CL-CONTAINERS:ARRAY-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:MAKE-CONTAINER ((EQL (QUOTE
METABANG.CL-CONTAINERS:ARRAY-CONTAINER))))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-CONTAINERS:ARRAY-
CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT! (METABANG.CL-
CONTAINERS:ARRAY-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DIMENSIONS (METABANG.CL-
CONTAINERS:ARRAY-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS:ARRAY-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:NTH-ELEMENT (METABANG.CL-
CONTAINERS:ARRAY-CONTAINER INTEGER))
; (METHOD INITIALIZE-INSTANCE :AROUND (METABANG.CL-CONTAINERS:SPARSE-
ARRAY-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS::MAKE-CONTAINER-FOR-CONTENTS
(METABANG.CL-CONTAINERS:SPARSE-ARRAY-CONTAINER))
; (METHOD METABANG.UTILITIES:TOTAL-SIZE (METABANG.CL-CONTAINERS:SPARSE-
ARRAY-CONTAINER))
; METABANG.CL-CONTAINERS::SPARSE-ARRAY-ROW-MAJOR-INDEX
; METABANG.CL-CONTAINERS::SPARSE-ARRAY-VALUE-TO-INDEX
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-
CONTAINERS:SPARSE-ARRAY-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT! (METABANG.CL-
CONTAINERS:SPARSE-ARRAY-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT-1 (METABANG.CL-
CONTAINERS:SIMPLE-ASSOCIATIVE-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT-1! (METABANG.CL-
CONTAINERS:SIMPLE-ASSOCIATIVE-CONTAINER T T))
; (METHOD (SETF METABANG.CL-CONTAINERS:ITEM-AT-1) (T T T))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-
CONTAINERS:SIMPLE-ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT! (METABANG.CL-
CONTAINERS:SIMPLE-ASSOCIATIVE-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM-AT (METABANG.CL-
CONTAINERS:SIMPLE-ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-KEY-VALUE (METABANG.CL-
CONTAINERS:SIMPLE-ASSOCIATIVE-CONTAINER T))
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-
CONTAINERS:ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-
CONTAINERS:ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM-AT (METABANG.CL-
CONTAINERS:ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-KEY-VALUE (METABANG.CL-
CONTAINERS:CONTENTS-AS-HASHTABLE-MIXIN T))
; METABANG.CL-CONTAINERS::DESCEND-HT
; METABANG.CL-CONTAINERS::FIND-OR-CREATE-HT
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT! (METABANG.CL-
CONTAINERS:ASSOCIATIVE-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:PRINT-CONTAINER (METABANG.CL-
CONTAINERS:ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:PRINT-CONTAINER (METABANG.CL-
CONTAINERS:STABLE-ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS::INITIALIZE-CONTAINER (METABANG.CL-
CONTAINERS:ALIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS::MAKE-CONTAINER-FOR-CONTENTS
(METABANG.CL-CONTAINERS:ALIST-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (METABANG.CL-CONTAINERS:ALIST-
CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT-1 (METABANG.CL-
CONTAINERS:ALIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT-1! (METABANG.CL-
CONTAINERS:ALIST-CONTAINER T T))
; METABANG.CL-CONTAINERS::MAYBE-SET-INITIAL-ELEMENT
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT! (METABANG.CL-
CONTAINERS:ALIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM-AT (METABANG.CL-
CONTAINERS:ALIST-CONTAINER))
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS:ALIST-
CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS:ALIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-KEYS (METABANG.CL-
CONTAINERS:ALIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:REVERSE-FIND (METABANG.CL-
CONTAINERS:ALIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-CONTAINERS:ALIST-
CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-KEY-VALUE (METABANG.CL-
CONTAINERS:ALIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:SORT-KEYS (METABANG.CL-
CONTAINERS:ALIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:SORT-ELEMENTS (METABANG.CL-
CONTAINERS:ALIST-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS::SORT-CONTAINER (METABANG.CL-
CONTAINERS::USES-CONTENTS-MIXIN T T))
; (DEFCLASS METABANG.CL-CONTAINERS:KEYED-ASSOCIATIVE-CONTAINER)
; (TOP-LEVEL-FORM 63)
; (TOP-LEVEL-FORM 63)
; (TOP-LEVEL-FORM 63)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-CONTAINERS:KEYED-
ASSOCIATIVE-CONTAINER))
; METABANG.CL-CONTAINERS::IDENTITY-2
; (METHOD METABANG.CL-CONTAINERS::ITEM-KEY (METABANG.CL-
CONTAINERS:KEYED-ASSOCIATIVE-CONTAINER))
;;;*** Warning in (METHOD METABANG.CL-CONTAINERS:ITEM-AT :AROUND
(METABANG.CL-CONTAINERS:KEYED-ASSOCIATIVE-CONTAINER)): (MULTIPLE-VALUE-
CALL (FUNCTION CALL-NEXT-METHOD) METABANG.CL-CONTAINERS::CONTAINER
(APPLY (FUNCTION METABANG.CL-CONTAINERS::ITEM-KEY) METABANG.CL-
CONTAINERS::CONTAINER METABANG.CL-CONTAINERS::INDEXES)) Multi form
multi-value-call is inefficient
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT :AROUND (METABANG.CL-
CONTAINERS:KEYED-ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM-AT :AROUND (METABANG.CL-
CONTAINERS:KEYED-ASSOCIATIVE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT! :AROUND (METABANG.CL-
CONTAINERS:KEYED-ASSOCIATIVE-CONTAINER T))
; (DEFGENERIC METABANG.CL-CONTAINERS:KEY-EXISTS-P)
; (METHOD METABANG.CL-CONTAINERS:KEY-EXISTS-P (METABANG.CL-
CONTAINERS:ASSOCIATIVE-CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-KEY-VALUE ((EQL NIL) T))
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E16F13> on #<ASDF:CL-SOURCE-FILE "associative" 21E1D873>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\associative.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\compatibility.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (METHOD METABANG.CL-CONTAINERS:ITERATABLE-P (LIST))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-ELEMENTS (NULL T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (NULL T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-ELEMENTS (LIST T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (LIST T))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-ELEMENTS (LIST))
; (METHOD METABANG.CL-CONTAINERS:ELEMENT-POSITION (LIST T))
; (METHOD METABANG.CL-CONTAINERS:EMPTY-P (LIST))
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT (LIST))
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T LIST))
; (METHOD METABANG.CL-CONTAINERS:LAST-ELEMENT (LIST))
; (METHOD (SETF METABANG.CL-CONTAINERS:LAST-ELEMENT) (T LIST))
; (METHOD METABANG.CL-CONTAINERS:NTH-ELEMENT (LIST INTEGER))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-MATCH (LIST T))
; (METHOD METABANG.UTILITIES:SIZE (LIST))
; (METHOD METABANG.CL-CONTAINERS:FIND-ITEM (LIST T))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-ITEM (LIST T))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-ELEMENT (LIST T))
; (METHOD METABANG.CL-CONTAINERS:REDUCE-ELEMENTS (LIST T))
; (METHOD METABANG.CL-CONTAINERS:SOME-ITEM-P (LIST FUNCTION))
; (METHOD METABANG.CL-CONTAINERS:SOME-ELEMENT-P (LIST T))
; (METHOD METABANG.CL-CONTAINERS:EVERY-ITEM-P (LIST FUNCTION))
; (METHOD METABANG.CL-CONTAINERS:EVERY-ELEMENT-P (LIST T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-ELEMENTS (VECTOR T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (VECTOR T))
; (METHOD METABANG.CL-CONTAINERS:ITERATABLE-P (VECTOR))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-ELEMENTS (VECTOR))
; (METHOD METABANG.UTILITIES:SIZE (VECTOR))
; (METHOD METABANG.CL-CONTAINERS:EMPTY-P (VECTOR))
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT (VECTOR))
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T VECTOR))
; (METHOD METABANG.CL-CONTAINERS:LAST-ELEMENT (VECTOR))
; (METHOD (SETF METABANG.CL-CONTAINERS:LAST-ELEMENT) (T VECTOR))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-MATCH (VECTOR T))
; (METHOD METABANG.CL-CONTAINERS:SOME-ITEM-P (VECTOR FUNCTION))
; (METHOD METABANG.CL-CONTAINERS:SOME-ELEMENT-P (VECTOR T))
; (METHOD METABANG.CL-CONTAINERS:EVERY-ITEM-P (VECTOR FUNCTION))
; (METHOD METABANG.CL-CONTAINERS:EVERY-ELEMENT-P (VECTOR T))
; (METHOD METABANG.CL-CONTAINERS:SORT-ELEMENTS (SEQUENCE T))
; (METHOD METABANG.CL-CONTAINERS:NTH-ELEMENT (VECTOR NUMBER))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-ELEMENTS (ARRAY T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (ARRAY T))
; (METHOD METABANG.CL-CONTAINERS:ITERATABLE-P (ARRAY))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-ELEMENTS (ARRAY))
; (METHOD METABANG.UTILITIES:SIZE (ARRAY))
; (METHOD METABANG.CL-CONTAINERS:FIRST-ELEMENT (ARRAY))
; (METHOD (SETF METABANG.CL-CONTAINERS:FIRST-ELEMENT) (T ARRAY))
; (METHOD METABANG.CL-CONTAINERS:LAST-ELEMENT (ARRAY))
; (METHOD (SETF METABANG.CL-CONTAINERS:LAST-ELEMENT) (T ARRAY))
; (METHOD METABANG.CL-CONTAINERS:SEARCH-FOR-MATCH (ARRAY T))
; (METHOD METABANG.CL-CONTAINERS:SOME-ELEMENT-P (ARRAY T))
; (METHOD METABANG.CL-CONTAINERS:EVERY-ELEMENT-P (ARRAY T))
; (METHOD METABANG.CL-CONTAINERS:NTH-ELEMENT (ARRAY NUMBER))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (ARRAY))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT! (ARRAY T))
; (METHOD METABANG.CL-CONTAINERS:ITERATABLE-P (HASH-TABLE))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-ELEMENTS (HASH-TABLE T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (HASH-TABLE T))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-ELEMENTS (HASH-TABLE))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-KEYS (HASH-TABLE))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-KEY-VALUE (HASH-TABLE T))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (HASH-TABLE))
; (METHOD METABANG.CL-CONTAINERS:EMPTY-P (HASH-TABLE))
; (METHOD METABANG.UTILITIES:SIZE (HASH-TABLE))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (HASH-TABLE))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT! (T HASH-TABLE))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT-1 (HASH-TABLE T))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT-1! (HASH-TABLE T T))
; (METHOD METABANG.CL-CONTAINERS:PRINT-CONTAINER (HASH-TABLE))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT (LIST))
; (METHOD METABANG.CL-CONTAINERS:ITEM-AT-1 (LIST T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-KEY-VALUE (LIST T))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-KEY-VALUE (LIST))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-KEYS (LIST))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM-AT (LIST))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\quad-tree.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS METABANG.CL-CONTAINERS:QUAD-TREE)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS METABANG.CL-CONTAINERS::FOUR-CHILD-NODE)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (DEFCLASS METABANG.CL-CONTAINERS::QUAD-TREE-NODE)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (METHOD METABANG.CL-CONTAINERS:MAKE-NODE-FOR-CONTAINER (METABANG.CL-
CONTAINERS:QUAD-TREE T))
; (METHOD METABANG.CL-CONTAINERS::NODE-EMPTY-P (METABANG.CL-
CONTAINERS::QUAD-TREE-NODE))
; (METHOD PRINT-OBJECT (METABANG.CL-CONTAINERS::QUAD-TREE-NODE T))
; (DEFGENERIC METABANG.CL-CONTAINERS:NOTIFY-ELEMENT-OF-CHILD-STATUS)
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:QUAD-TREE METABANG.CL-CONTAINERS::QUAD-TREE-NODE))
; (METHOD METABANG.CL-CONTAINERS:EMPTY-P (METABANG.CL-CONTAINERS:QUAD-
TREE))
; (METHOD METABANG.CL-CONTAINERS:EMPTY! (METABANG.CL-CONTAINERS:QUAD-
TREE))
; (METHOD METABANG.CL-CONTAINERS:FIND-ITEM (METABANG.CL-
CONTAINERS:QUAD-TREE METABANG.CL-CONTAINERS::QUAD-TREE-NODE))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\heaps.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS METABANG.CL-CONTAINERS:HEAP-CONTAINER)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS METABANG.CL-CONTAINERS::HEAP-NODE)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (METHOD PRINT-OBJECT (METABANG.CL-CONTAINERS::HEAP-NODE T))
; (METHOD METABANG.CL-CONTAINERS::L-CHILD (METABANG.CL-
CONTAINERS::HEAP-NODE METABANG.CL-CONTAINERS:HEAP-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS::R-CHILD (METABANG.CL-
CONTAINERS::HEAP-NODE METABANG.CL-CONTAINERS:HEAP-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS::HEAP-NODE-PARENT (METABANG.CL-
CONTAINERS::HEAP-NODE METABANG.CL-CONTAINERS:HEAP-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS::L-CHILD-INDEX (METABANG.CL-
CONTAINERS::HEAP-NODE))
; (METHOD METABANG.CL-CONTAINERS::R-CHILD-INDEX (METABANG.CL-
CONTAINERS::HEAP-NODE))
; (METHOD METABANG.CL-CONTAINERS::NODE-PARENT-INDEX (METABANG.CL-
CONTAINERS::HEAP-NODE))
; (METHOD METABANG.CL-CONTAINERS::EXCHANGE-HEAP-NODES (METABANG.CL-
CONTAINERS::HEAP-NODE METABANG.CL-CONTAINERS::HEAP-NODE METABANG.CL-
CONTAINERS:HEAP-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:MAKE-NODE-FOR-CONTAINER (METABANG.CL-
CONTAINERS:HEAP-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS::HEAPIFY (METABANG.CL-CONTAINERS:HEAP-
CONTAINER METABANG.CL-CONTAINERS::HEAP-NODE))
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-CONTAINERS:HEAP-
CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:BIGGEST-ITEM (METABANG.CL-
CONTAINERS:HEAP-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:DELETE-BIGGEST-ITEM (METABANG.CL-
CONTAINERS:HEAP-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:DELETE-ITEM (METABANG.CL-
CONTAINERS:HEAP-CONTAINER METABANG.CL-CONTAINERS::HEAP-NODE))
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:HEAP-CONTAINER METABANG.CL-CONTAINERS::HEAP-NODE))
; (DEFCLASS METABANG.CL-CONTAINERS:K-BEST-HEAP-CONTAINER)
; (TOP-LEVEL-FORM 19)
; (TOP-LEVEL-FORM 19)
; (TOP-LEVEL-FORM 19)
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM :AROUND (METABANG.CL-
CONTAINERS:K-BEST-HEAP-CONTAINER T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\container-mixins.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS METABANG.CL-CONTAINERS::FILTERED-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (METHOD METABANG.CL-CONTAINERS:ITERATE-ELEMENTS :AROUND (METABANG.CL-
CONTAINERS::FILTERED-CONTAINER-MIXIN T))
; (METHOD METABANG.CL-CONTAINERS:COLLECT-ELEMENTS :AROUND (METABANG.CL-
CONTAINERS::FILTERED-CONTAINER-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-KEY-VALUE :AROUND
(METABANG.CL-CONTAINERS::FILTERED-CONTAINER-MIXIN T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\union-find-container.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS METABANG.CL-CONTAINERS::UNION-FIND-NODE)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-CONTAINERS::UNION-
FIND-NODE))
; (METHOD PRINT-OBJECT (METABANG.CL-CONTAINERS::UNION-FIND-NODE T))
; (METHOD METABANG.CL-CONTAINERS::MAKE-SET (T))
; (METHOD METABANG.CL-CONTAINERS:GRAFT-NODES (T T))
; (METHOD METABANG.CL-CONTAINERS:FIND-SET (T))
; (METHOD METABANG.CL-CONTAINERS::LINK-NODES (T T))
; (DEFCLASS METABANG.CL-CONTAINERS:UNION-FIND-CONTAINER)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 9)
; (METHOD METABANG.CL-CONTAINERS:INSERT-ITEM (METABANG.CL-
CONTAINERS:UNION-FIND-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:REPRESENTATIVE (METABANG.CL-
CONTAINERS:UNION-FIND-CONTAINER T))
; (METHOD METABANG.CL-CONTAINERS:REPRESENTATIVE-NODE (METABANG.CL-
CONTAINERS:UNION-FIND-CONTAINER T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\package-container.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS METABANG.CL-CONTAINERS:PACKAGE-CONTAINER)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (METHOD (SETF METABANG.CL-CONTAINERS:PACKAGES) (SYMBOL METABANG.CL-
CONTAINERS:PACKAGE-CONTAINER))
; (METHOD (SETF METABANG.CL-CONTAINERS:PACKAGES) (CONS METABANG.CL-
CONTAINERS:PACKAGE-CONTAINER))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-ELEMENTS (METABANG.CL-
CONTAINERS:PACKAGE-CONTAINER T))
; (METHOD METABANG.UTILITIES:SIZE (METABANG.CL-CONTAINERS:PACKAGE-
CONTAINER))
; METABANG.CL-CONTAINERS::BOUND-SYMBOLS-IN-PACKAGE
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\iterator-api.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFGENERIC METABANG.CL-CONTAINERS:MAKE-ITERATOR)
; (DEFGENERIC METABANG.CL-CONTAINERS::PRINT-ITERATOR)
; (DEFGENERIC METABANG.CL-CONTAINERS:FINISH)
; (DEFGENERIC METABANG.CL-CONTAINERS:MOVE-P)
; (DEFGENERIC METABANG.CL-CONTAINERS::ELEMENT-PASSES-P)
; (DEFGENERIC METABANG.CL-CONTAINERS:MOVE)
; (DEFGENERIC METABANG.CL-CONTAINERS::BASE-CLASS-FOR-ITERATEE)
; (DEFGENERIC METABANG.CL-CONTAINERS::CLASS-FOR-CONTENTS-AS)
; (DEFGENERIC METABANG.CL-CONTAINERS:CURRENT-ELEMENT)
; (DEFGENERIC METABANG.CL-CONTAINERS:CURRENT-ELEMENT-P)
; (DEFGENERIC METABANG.CL-CONTAINERS::SETUP-INITIAL-CONTAINER)
; (DEFGENERIC METABANG.CL-CONTAINERS::ADVANCE)
; (DEFGENERIC METABANG.CL-CONTAINERS:ITERATE-FORWARD)
; (DEFGENERIC METABANG.CL-CONTAINERS::MAKE-INTERNAL-ITERATOR)
; (DEFGENERIC METABANG.CL-CONTAINERS:MOVE-FORWARD)
; (DEFGENERIC METABANG.CL-CONTAINERS::MOVE-FORWARD-TO-NEXT-ELEMENT)
; (DEFGENERIC METABANG.CL-CONTAINERS::MOVE-INTERNAL)
; (DEFGENERIC METABANG.UTILITIES:NEXT-ELEMENT)
; (DEFGENERIC METABANG.CL-CONTAINERS::OPEN-FILE-FOR-ITERATOR)
; (DEFGENERIC METABANG.CL-CONTAINERS::RESET)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\iterator-api.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\iterators.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCONSTANT METABANG.CL-CONTAINERS::+ITERATOR-BEFORE-BEGINNING+)
; (DEFCONSTANT METABANG.CL-CONTAINERS::+ITERATOR-AFTER-END+)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (SUBFUNCTION (DEFCLASS METABANG.CL-CONTAINERS:BASIC-ITERATOR-
CONDITION) (DEFINE-CONDITION METABANG.CL-CONTAINERS:BASIC-ITERATOR-
CONDITION))
; (DEFINE-CONDITION METABANG.CL-CONTAINERS:BASIC-ITERATOR-CONDITION)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 5)
; (SUBFUNCTION (DEFCLASS METABANG.CL-CONTAINERS:NO-CURRENT-ELEMENT-
ERROR) (DEFINE-CONDITION METABANG.CL-CONTAINERS:NO-CURRENT-ELEMENT-
ERROR))
; (DEFINE-CONDITION METABANG.CL-CONTAINERS:NO-CURRENT-ELEMENT-ERROR)
; (DEFCLASS METABANG.CL-CONTAINERS::ABSTRACT-GENERATOR)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 6)
; (METHOD METABANG.CL-CONTAINERS:FINISH (METABANG.CL-
CONTAINERS::ABSTRACT-GENERATOR))
; (DEFCLASS METABANG.CL-CONTAINERS::BASIC-ITERATOR)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 8)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-CONTAINERS::BASIC-
ITERATOR))
; (METHOD METABANG.CL-CONTAINERS::SETUP-INITIAL-CONTAINER (METABANG.CL-
CONTAINERS::BASIC-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS::PRINT-ITERATOR (METABANG.CL-
CONTAINERS::ABSTRACT-GENERATOR T))
; (METHOD METABANG.CL-CONTAINERS::RESET :BEFORE (METABANG.CL-
CONTAINERS::ABSTRACT-GENERATOR))
; (METHOD METABANG.CL-CONTAINERS:MOVE-P (METABANG.CL-
CONTAINERS::ABSTRACT-GENERATOR T))
; (METHOD PRINT-OBJECT (METABANG.CL-CONTAINERS::ABSTRACT-GENERATOR T))
; (METHOD METABANG.CL-CONTAINERS::PRINT-ITERATOR (METABANG.CL-
CONTAINERS::BASIC-ITERATOR T))
; (DEFCLASS METABANG.CL-CONTAINERS:FORWARD-ITERATOR)
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 16)
; (METHOD METABANG.CL-CONTAINERS:ITERATE-CONTAINER (METABANG.CL-
CONTAINERS:FORWARD-ITERATOR T))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-NODES (METABANG.CL-
CONTAINERS:FORWARD-ITERATOR T))
; (METHOD METABANG.CL-CONTAINERS:EMPTY-P (METABANG.CL-
CONTAINERS:FORWARD-ITERATOR))
; (METHOD METABANG.UTILITIES:ELEMENT (METABANG.CL-CONTAINERS::ABSTRACT-
GENERATOR))
; (METHOD METABANG.UTILITIES:NEXT-ELEMENT (METABANG.CL-
CONTAINERS::ABSTRACT-GENERATOR))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT-P (METABANG.CL-
CONTAINERS::BASIC-ITERATOR))
; (METHOD METABANG.UTILITIES:ELEMENT :AROUND (METABANG.CL-
CONTAINERS::ABSTRACT-GENERATOR))
; (METHOD METABANG.CL-CONTAINERS:MOVE :AROUND (METABANG.CL-
CONTAINERS::BASIC-ITERATOR T))
; METABANG.CL-CONTAINERS:MOVE-FORWARD-P
; (METHOD METABANG.CL-CONTAINERS:MOVE-FORWARD (METABANG.CL-
CONTAINERS:FORWARD-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:ITERATE-FORWARD (METABANG.CL-
CONTAINERS::BASIC-ITERATOR T))
; (DEFCLASS METABANG.CL-CONTAINERS::TRANSFORMING-ITERATOR-MIXIN)
; (TOP-LEVEL-FORM 28)
; (TOP-LEVEL-FORM 28)
; (TOP-LEVEL-FORM 28)
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT :AROUND (METABANG.CL-
CONTAINERS::TRANSFORMING-ITERATOR-MIXIN))
; (METHOD METABANG.CL-CONTAINERS:MOVE :AFTER (METABANG.CL-
CONTAINERS::TRANSFORMING-ITERATOR-MIXIN T))
; (DEFCLASS METABANG.CL-CONTAINERS::BASIC-FILTERED-ITERATOR-MIXIN)
; (TOP-LEVEL-FORM 31)
; (TOP-LEVEL-FORM 31)
; (TOP-LEVEL-FORM 31)
; (METHOD METABANG.CL-CONTAINERS:MOVE :AFTER (METABANG.CL-
CONTAINERS::BASIC-FILTERED-ITERATOR-MIXIN (EQL :FORWARD)))
; (DEFCLASS METABANG.CL-CONTAINERS:FILTERED-ITERATOR-MIXIN)
; (TOP-LEVEL-FORM 33)
; (TOP-LEVEL-FORM 33)
; (TOP-LEVEL-FORM 33)
; (METHOD METABANG.CL-CONTAINERS::ELEMENT-PASSES-P AND (METABANG.CL-
CONTAINERS:FILTERED-ITERATOR-MIXIN))
; (METHOD INITIALIZE-INSTANCE :AROUND (METABANG.CL-CONTAINERS:FILTERED-
ITERATOR-MIXIN))
; (METHOD METABANG.CL-CONTAINERS::MOVE-FORWARD-TO-NEXT-ELEMENT
(METABANG.CL-CONTAINERS::BASIC-ITERATOR))
; (DEFCLASS METABANG.CL-CONTAINERS:UNIQUE-VALUE-ITERATOR-MIXIN)
; (TOP-LEVEL-FORM 37)
; (TOP-LEVEL-FORM 37)
; (TOP-LEVEL-FORM 37)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-CONTAINERS:UNIQUE-
VALUE-ITERATOR-MIXIN))
; (METHOD METABANG.CL-CONTAINERS::ELEMENT-PASSES-P AND (METABANG.CL-
CONTAINERS:UNIQUE-VALUE-ITERATOR-MIXIN))
; (METHOD METABANG.UTILITIES:ELEMENT :AROUND (METABANG.CL-
CONTAINERS:UNIQUE-VALUE-ITERATOR-MIXIN))
; (DEFCLASS METABANG.CL-CONTAINERS::CIRCULAR-ITERATOR-MIXIN)
; (TOP-LEVEL-FORM 41)
; (TOP-LEVEL-FORM 41)
; (TOP-LEVEL-FORM 41)
; (METHOD METABANG.CL-CONTAINERS:MOVE-P (METABANG.CL-
CONTAINERS::CIRCULAR-ITERATOR-MIXIN (EQL :FORWARD)))
; (DEFCLASS METABANG.CL-CONTAINERS:LIST-ITERATOR)
; (TOP-LEVEL-FORM 43)
; (TOP-LEVEL-FORM 43)
; (TOP-LEVEL-FORM 43)
; (METHOD METABANG.CL-CONTAINERS::RESET (METABANG.CL-CONTAINERS:LIST-
ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:MOVE (METABANG.CL-CONTAINERS:LIST-
ITERATOR (EQL :FORWARD)))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT (METABANG.CL-
CONTAINERS:LIST-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:MOVE-P (METABANG.CL-CONTAINERS:LIST-
ITERATOR (EQL :FORWARD)))
; (DEFCLASS METABANG.CL-CONTAINERS::ARRAY-ITERATOR)
; (TOP-LEVEL-FORM 48)
; (TOP-LEVEL-FORM 48)
; (TOP-LEVEL-FORM 48)
; (METHOD METABANG.CL-CONTAINERS::RESET (METABANG.CL-CONTAINERS::ARRAY-
ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:MOVE (METABANG.CL-CONTAINERS::ARRAY-
ITERATOR (EQL :FORWARD)))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT-P (METABANG.CL-
CONTAINERS::ARRAY-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT (METABANG.CL-
CONTAINERS::ARRAY-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:MOVE-P (METABANG.CL-CONTAINERS::ARRAY-
ITERATOR (EQL :FORWARD)))
; (DEFCLASS METABANG.CL-CONTAINERS::HASH-TABLE-ITERATOR)
; (TOP-LEVEL-FORM 54)
; (TOP-LEVEL-FORM 54)
; (TOP-LEVEL-FORM 54)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-CONTAINERS::HASH-
TABLE-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS::RESET (METABANG.CL-CONTAINERS::HASH-
TABLE-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:MAKE-ITERATOR (T))
; (METHOD METABANG.CL-CONTAINERS:MAKE-ITERATOR (METABANG.CL-
CONTAINERS::BASIC-ITERATOR))
; METABANG.CL-CONTAINERS:MAKE-GENERATOR
; (DEFCLASS METABANG.CL-CONTAINERS::BASIC-GENERATOR)
; (TOP-LEVEL-FORM 60)
; (TOP-LEVEL-FORM 60)
; (TOP-LEVEL-FORM 60)
; (DEFCLASS METABANG.CL-CONTAINERS::ARITHMETIC-SEQUENCE-GENERATOR)
; (TOP-LEVEL-FORM 61)
; (TOP-LEVEL-FORM 61)
; (TOP-LEVEL-FORM 61)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-
CONTAINERS::ARITHMETIC-SEQUENCE-GENERATOR))
; (METHOD METABANG.CL-CONTAINERS:MOVE (METABANG.CL-
CONTAINERS::ARITHMETIC-SEQUENCE-GENERATOR (EQL :FORWARD)))
; (METHOD METABANG.CL-CONTAINERS:MOVE-P (METABANG.CL-
CONTAINERS::ARITHMETIC-SEQUENCE-GENERATOR (EQL :FORWARD)))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT (METABANG.CL-
CONTAINERS::ARITHMETIC-SEQUENCE-GENERATOR))
; (DEFCLASS METABANG.CL-CONTAINERS::FINITE-ARITHMETIC-SEQUENCE-
GENERATOR)
; (TOP-LEVEL-FORM 66)
; (TOP-LEVEL-FORM 66)
; (TOP-LEVEL-FORM 66)
; (METHOD METABANG.CL-CONTAINERS:MOVE-P (METABANG.CL-
CONTAINERS::FINITE-ARITHMETIC-SEQUENCE-GENERATOR (EQL :FORWARD)))
; METABANG.CL-CONTAINERS:MAP-CONTAINERS
; METABANG.CL-CONTAINERS:COLLECT-CONTAINERS
; METABANG.CL-CONTAINERS:WITH-ITERATOR
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\iterators.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\file-iterators.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS METABANG.CL-CONTAINERS::BASIC-STREAM-ITERATOR)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-CONTAINERS::BASIC-
STREAM-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:FINISH (METABANG.CL-CONTAINERS::BASIC-
STREAM-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS::OPEN-FILE-FOR-ITERATOR (METABANG.CL-
CONTAINERS::BASIC-STREAM-ITERATOR STRING))
; (METHOD METABANG.CL-CONTAINERS::OPEN-FILE-FOR-ITERATOR (METABANG.CL-
CONTAINERS::BASIC-STREAM-ITERATOR PATHNAME))
; (METHOD METABANG.CL-CONTAINERS::OPEN-FILE-FOR-ITERATOR (METABANG.CL-
CONTAINERS::BASIC-STREAM-ITERATOR STREAM))
; (DEFCLASS METABANG.CL-CONTAINERS::FILE-ITERATOR)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 8)
; (METHOD METABANG.CL-CONTAINERS::BASE-CLASS-FOR-ITERATEE (PATHNAME))
; (METHOD METABANG.CL-CONTAINERS:MOVE (METABANG.CL-CONTAINERS::FILE-
ITERATOR (EQL :FORWARD)))
; (METHOD METABANG.CL-CONTAINERS::ADVANCE (METABANG.CL-
CONTAINERS::FILE-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT (METABANG.CL-
CONTAINERS::FILE-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT-P (METABANG.CL-
CONTAINERS::FILE-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:MOVE-P (METABANG.CL-CONTAINERS::FILE-
ITERATOR (EQL :FORWARD)))
; (DEFCLASS METABANG.CL-CONTAINERS::FILE-LINE-ITERATOR)
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 15)
; (METHOD METABANG.CL-CONTAINERS:MOVE (METABANG.CL-CONTAINERS::FILE-
LINE-ITERATOR (EQL :FORWARD)))
; (METHOD METABANG.CL-CONTAINERS::ADVANCE (METABANG.CL-
CONTAINERS::FILE-LINE-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT (METABANG.CL-
CONTAINERS::FILE-LINE-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT-P (METABANG.CL-
CONTAINERS::FILE-LINE-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:MOVE-P (METABANG.CL-CONTAINERS::FILE-
LINE-ITERATOR (EQL :FORWARD)))
; (METHOD METABANG.CL-CONTAINERS::CLASS-FOR-CONTENTS-AS (PATHNAME
(EQL :LINES)))
; (DEFCLASS METABANG.CL-CONTAINERS::FILE-FORM-ITERATOR)
; (TOP-LEVEL-FORM 22)
; (TOP-LEVEL-FORM 22)
; (TOP-LEVEL-FORM 22)
; (METHOD METABANG.CL-CONTAINERS:MOVE (METABANG.CL-CONTAINERS::FILE-
FORM-ITERATOR (EQL :FORWARD)))
; (METHOD METABANG.CL-CONTAINERS::ADVANCE (METABANG.CL-
CONTAINERS::FILE-FORM-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT (METABANG.CL-
CONTAINERS::FILE-FORM-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT-P (METABANG.CL-
CONTAINERS::FILE-FORM-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:MOVE-P (METABANG.CL-CONTAINERS::FILE-
FORM-ITERATOR (EQL :FORWARD)))
; (METHOD METABANG.CL-CONTAINERS::CLASS-FOR-CONTENTS-AS (PATHNAME
(EQL :FORMS)))
; (DEFCLASS METABANG.CL-CONTAINERS::DELIMITED-ITERATOR)
; (TOP-LEVEL-FORM 29)
; (TOP-LEVEL-FORM 29)
; (TOP-LEVEL-FORM 29)
; (DEFCLASS METABANG.CL-CONTAINERS::INTERNAL-ITERATOR-MIXIN)
; (TOP-LEVEL-FORM 30)
; (TOP-LEVEL-FORM 30)
; (TOP-LEVEL-FORM 30)
; (METHOD INITIALIZE-INSTANCE :AFTER (METABANG.CL-
CONTAINERS::DELIMITED-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS::MAKE-INTERNAL-ITERATOR (METABANG.CL-
CONTAINERS::DELIMITED-ITERATOR T))
; (DEFGENERIC METABANG.CL-CONTAINERS::CHARACTERIZE-ELEMENT)
; (METHOD METABANG.CL-CONTAINERS::CHARACTERIZE-ELEMENT (METABANG.CL-
CONTAINERS::DELIMITED-ITERATOR T))
; (METHOD METABANG.CL-CONTAINERS:MOVE (METABANG.CL-
CONTAINERS::DELIMITED-ITERATOR (EQL :FORWARD)))
; (METHOD METABANG.CL-CONTAINERS::MOVE-INTERNAL (METABANG.CL-
CONTAINERS::DELIMITED-ITERATOR (EQL :FORWARD)))
; (METHOD METABANG.CL-CONTAINERS::ADVANCE (METABANG.CL-
CONTAINERS::DELIMITED-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS::COMBINE-ELEMENTS (METABANG.CL-
CONTAINERS::DELIMITED-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT (METABANG.CL-
CONTAINERS::DELIMITED-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:CURRENT-ELEMENT-P (METABANG.CL-
CONTAINERS::DELIMITED-ITERATOR))
; (METHOD METABANG.CL-CONTAINERS:MOVE-P (METABANG.CL-
CONTAINERS::DELIMITED-ITERATOR (EQL :FORWARD)))
; (DEFCLASS METABANG.CL-CONTAINERS::WORD-ITERATOR)
; (TOP-LEVEL-FORM 42)
; (TOP-LEVEL-FORM 42)
; (TOP-LEVEL-FORM 42)
; (DEFCLASS METABANG.CL-CONTAINERS::LINE-ITERATOR)
; (TOP-LEVEL-FORM 43)
; (TOP-LEVEL-FORM 43)
; (TOP-LEVEL-FORM 43)
; (METHOD METABANG.CL-CONTAINERS::CLASS-FOR-CONTENTS-AS (T
(EQL :LINES)))
; (METHOD METABANG.CL-CONTAINERS::CLASS-FOR-CONTENTS-AS (T
(EQL :WORDS)))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\closer-
mop_0.55\lispworks\closer-mop-packages.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "CLOSER-MOP")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\closer-mop_0.55\lispworks\closer-mop-packages.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\closer-
mop_0.55\lispworks\closer-mop.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; CLOSER-MOP:REQUIRED-ARGS
; CLOSER-MOP:ENSURE-FINALIZED
; CLOSER-MOP:SUBCLASSP
; (DEFCLASS CLOSER-MOP:STANDARD-GENERIC-FUNCTION)
; CLOSER-MOP:ENSURE-GENERIC-FUNCTION
; (DEFCLASS CLOSER-MOP:STANDARD-CLASS)
; (METHOD VALIDATE-SUPERCLASS (CLOSER-MOP:STANDARD-CLASS STANDARD-
CLASS))
; CLOSER-MOP:DEFCLASS
; (DEFCLASS CLOSER-MOP:FUNCALLABLE-STANDARD-CLASS)
; (METHOD VALIDATE-SUPERCLASS (CLOSER-MOP:FUNCALLABLE-STANDARD-CLASS
FUNCALLABLE-STANDARD-CLASS))
; (DEFCLASS CLOSER-MOP:FUNCALLABLE-STANDARD-OBJECT)
; CLOSER-MOP::MODIFY-SUPERCLASSES
; (METHOD INITIALIZE-INSTANCE :AROUND (CLOSER-MOP:STANDARD-CLASS))
; (METHOD REINITIALIZE-INSTANCE :AROUND (CLOSER-MOP:STANDARD-CLASS))
; (METHOD INITIALIZE-INSTANCE :AROUND (CLOSER-MOP:FUNCALLABLE-STANDARD-
CLASS))
; (METHOD REINITIALIZE-INSTANCE :AROUND (CLOSER-MOP:FUNCALLABLE-
STANDARD-CLASS))
; (METHOD CHANGE-CLASS :AROUND (FORWARD-REFERENCED-CLASS CLOSER-
MOP:FUNCALLABLE-STANDARD-CLASS))
; (METHOD CLOS:SLOT-VALUE-USING-CLASS (CLOSER-MOP:STANDARD-CLASS T
SYMBOL))
; (METHOD CLOS:SLOT-VALUE-USING-CLASS (CLOSER-MOP:STANDARD-CLASS T
STANDARD-EFFECTIVE-SLOT-DEFINITION))
; (METHOD (SETF CLOS:SLOT-VALUE-USING-CLASS) (T CLOSER-MOP:STANDARD-
CLASS T SYMBOL))
; (METHOD (SETF CLOS:SLOT-VALUE-USING-CLASS) (T CLOSER-MOP:STANDARD-
CLASS T STANDARD-EFFECTIVE-SLOT-DEFINITION))
; (METHOD CLOS:SLOT-BOUNDP-USING-CLASS (CLOSER-MOP:STANDARD-CLASS T
SYMBOL))
; (METHOD CLOS:SLOT-BOUNDP-USING-CLASS (CLOSER-MOP:STANDARD-CLASS T
STANDARD-EFFECTIVE-SLOT-DEFINITION))
; (METHOD CLOS:SLOT-MAKUNBOUND-USING-CLASS (CLOSER-MOP:STANDARD-CLASS
T SYMBOL))
; (METHOD CLOS:SLOT-MAKUNBOUND-USING-CLASS (CLOSER-MOP:STANDARD-CLASS
T STANDARD-EFFECTIVE-SLOT-DEFINITION))
; (DEFTYPE CLOSER-MOP:EQL-SPECIALIZER)
; (DEFGENERIC CLOSER-MOP:EQL-SPECIALIZER-OBJECT)
; CLOSER-MOP:INTERN-EQL-SPECIALIZER
; (DEFCLASS CLOSER-MOP:EQL-SPECIALIZER*)
; (DEFVAR CLOSER-MOP::*EQL-SPECIALIZERS*)
; CLOSER-MOP:INTERN-EQL-SPECIALIZER*
; (METHOD CLOS:ADD-DIRECT-METHOD (CLOSER-MOP:EQL-SPECIALIZER* METHOD))
; (METHOD CLOS:REMOVE-DIRECT-METHOD (CLOSER-MOP:EQL-SPECIALIZER*
METHOD))
; (DEFGENERIC CLOSER-MOP:SPECIALIZER-DIRECT-GENERIC-FUNCTIONS)
; (METHOD ADD-METHOD :BEFORE (CLOSER-MOP:STANDARD-GENERIC-FUNCTION
METHOD))
; (METHOD ADD-METHOD :AFTER (CLOSER-MOP:STANDARD-GENERIC-FUNCTION
METHOD))
; (METHOD REMOVE-METHOD :AFTER (CLOSER-MOP:STANDARD-GENERIC-FUNCTION
METHOD))
; (DEFGENERIC CLOSER-MOP:FIND-METHOD-COMBINATION)
; (DEFGENERIC CLOSER-MOP:MAKE-METHOD-LAMBDA)
; CLOSER-MOP:ENSURE-METHOD
; CLOSER-MOP::CREATE-GF-LAMBDA-LIST
; CLOSER-MOP:DEFMETHOD
; CLOSER-MOP:DEFGENERIC
; (DEFVAR CLOSER-MOP::*STANDARD-SLOT-KEYS*)
; CLOSER-MOP:FIX-SLOT-INITARGS
; (TOP-LEVEL-FORM 47)
; CLOSER-MOP:STANDARD-INSTANCE-ACCESS
; CLOSER-MOP:STANDARD-INSTANCE-ACCESS
; (SETF CLOSER-MOP:STANDARD-INSTANCE-ACCESS)
; (SETF CLOSER-MOP:STANDARD-INSTANCE-ACCESS)
; (TOP-LEVEL-FORM 50)
; CLOSER-MOP::FUNCALLABLE-INSTANCE-ACCESS
; CLOSER-MOP::FUNCALLABLE-INSTANCE-ACCESS
; CLOSER-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS
; (SETF CLOSER-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS)
; (TOP-LEVEL-FORM 54)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\closer-mop_0.55\lispworks\closer-mop.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\closer-
mop_0.55\closer-mop-utility-packages.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "CLOSER-COMMON-LISP")
; (TOP-LEVEL-FORM 3)
; (DEFPACKAGE "CLOSER-COMMON-LISP-USER")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\closer-mop_0.55\closer-mop-utility-packages.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\moptilities\dev
\moptilities.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "METABANG.MOPTILITIES")
; (TOP-LEVEL-FORM 3)
; METABANG.MOPTILITIES::NYI
; (TOP-LEVEL-FORM 5)
; (DEFGENERIC METABANG.MOPTILITIES:GET-CLASS)
; (TOP-LEVEL-FORM 5)
; METABANG.MOPTILITIES:FINALIZE-CLASS-IF-NECESSARY
; METABANG.MOPTILITIES:SUPERCLASSES
; METABANG.MOPTILITIES:DIRECT-SUPERCLASSES
; METABANG.MOPTILITIES:DIRECT-SUBCLASSES
; (TOP-LEVEL-FORM 10)
; (DEFGENERIC METABANG.MOPTILITIES:METHOD-NAME)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 11)
; (DEFGENERIC METABANG.MOPTILITIES:GET-METHOD)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 12)
; (DEFGENERIC METABANG.MOPTILITIES::GET-FUNCTION)
; (TOP-LEVEL-FORM 12)
; METABANG.MOPTILITIES:REMOVE-GENERIC-FUNCTION
; (TOP-LEVEL-FORM 14)
; (DEFGENERIC METABANG.MOPTILITIES:SLOT-NAMES)
; (TOP-LEVEL-FORM 14)
; (TOP-LEVEL-FORM 15)
; (DEFGENERIC METABANG.MOPTILITIES:SLOT-PROPERTIES)
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 16)
; (DEFGENERIC METABANG.MOPTILITIES:GET-SLOT-DEFINITION)
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 17)
; (DEFGENERIC METABANG.MOPTILITIES:DIRECT-SLOT-NAMES)
; (TOP-LEVEL-FORM 17)
; (TOP-LEVEL-FORM 18)
; (DEFGENERIC METABANG.MOPTILITIES:READER-METHOD-P)
; (TOP-LEVEL-FORM 18)
; (TOP-LEVEL-FORM 19)
; (DEFGENERIC METABANG.MOPTILITIES:WRITER-METHOD-P)
; (TOP-LEVEL-FORM 19)
; METABANG.MOPTILITIES:MAP-METHODS
; METABANG.MOPTILITIES:REMOVE-METHODS
; METABANG.MOPTILITIES:REMOVE-METHODS-IF
; METABANG.MOPTILITIES:GENERIC-FUNCTIONS
; METABANG.MOPTILITIES:DIRECT-SPECIALIZERS-OF
; METABANG.MOPTILITIES:SPECIALIZERS-OF
; METABANG.MOPTILITIES:MAP-SUBCLASSES
; METABANG.MOPTILITIES:SUBCLASSES
; METABANG.MOPTILITIES::IN-ORDER-P
; METABANG.MOPTILITIES::GET-STRUCTURE
; METABANG.MOPTILITIES:FUNCTION-ARGLIST
; METABANG.MOPTILITIES:MOPU-CLASS-INITARGS
; (TOP-LEVEL-FORM 32)
; (DEFGENERIC METABANG.MOPTILITIES:EQL-SPECIALIZER-P)
; (TOP-LEVEL-FORM 32)
; METABANG.MOPTILITIES:DEFAULT-INITARGS
; METABANG.MOPTILITIES:LEAF-CLASS-P
; METABANG.MOPTILITIES:LEAF-SUBCLASSES
; (TOP-LEVEL-FORM 36)
; (DEFGENERIC METABANG.MOPTILITIES:CLASS-NAME-OF)
; (TOP-LEVEL-FORM 36)
; (TOP-LEVEL-FORM 37)
; (DEFGENERIC METABANG.MOPTILITIES:COPY-TEMPLATE)
; (TOP-LEVEL-FORM 37)
; (METHOD METABANG.MOPTILITIES:COPY-TEMPLATE (STANDARD-OBJECT))
; (DEFVAR METABANG.MOPTILITIES:*DEBUGGING-FINALIZATION*)
; (TOP-LEVEL-FORM 40)
; (DEFGENERIC METABANG.MOPTILITIES:WHEN-FINALIZED)
; (TOP-LEVEL-FORM 40)
; (METHOD METABANG.MOPTILITIES:WHEN-FINALIZED (T))
; (METHOD METABANG.MOPTILITIES:WHEN-FINALIZED :AROUND (T))
;;;*** Warning in METABANG.MOPTILITIES:CARE-WHEN-FINALIZED: OBJECT is
bound but not referenced
; METABANG.MOPTILITIES:CARE-WHEN-FINALIZED
; METABANG.MOPTILITIES:IGNORE-FINALIZATION
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E3A7DF> on #<ASDF:CL-SOURCE-FILE "moptilities" 21E39F4F>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\moptilities\dev\moptilities.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\queues.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\stacks.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\trees.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\lists.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\bags-and-sets.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\ring-buffers.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\miscellaneous.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\compatibility.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\quad-tree.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\heaps.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\container-mixins.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\union-find-container.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\package-container.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\file-iterators.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\utilities-integration.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (METHOD MAKE-LOAD-FORM (METABANG.CL-CONTAINERS:ABSTRACT-CONTAINER))
; (METHOD MAKE-LOAD-FORM (METABANG.CL-CONTAINERS:CONTAINER-NODE-
MIXIN))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\utilities-integration.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-containers\dev
\containers-moptilities.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (METHOD METABANG.MOPTILITIES:WHEN-FINALIZED (METABANG.CL-
CONTAINERS::BASIC-STREAM-ITERATOR))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-containers\dev\containers-moptilities.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metabang-bind\dev\bind.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\metabang-bind\dev
\bind-cl-ppcre.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (METHOD METABANG.BIND::BIND-GENERATE-BINDINGS ((EQL :RE) T T T T T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metabang-bind\dev\bind-cl-ppcre.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\utilities\package-additional.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 4)
; (METHOD MAKE-LOAD-FORM (METABANG.CL-CONTAINERS::BST-NODE))
; (METHOD MAKE-LOAD-FORM (METABANG.CL-CONTAINERS::QUAD-TREE-NODE))
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\utilities\package-additional.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\utilities\anaphoric.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; METABANG.UTILITIES::AIF
; METABANG.UTILITIES::AWHEN
; METABANG.UTILITIES::AWHILE
; METABANG.UTILITIES::AAND
; METABANG.UTILITIES::ACOND
; METABANG.UTILITIES::ALAMBDA
; METABANG.UTILITIES::ABLOCK
; METABANG.UTILITIES::AIF2
; METABANG.UTILITIES::AWHEN2
; METABANG.UTILITIES::AWHILE2
; METABANG.UTILITIES::ACOND2
; METABANG.UTILITIES::APROG1
; METABANG.UTILITIES::ATYPECASE
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\utilities\anaphoric.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\utilities\graham.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; METABANG.UTILITIES:MOST
; METABANG.UTILITIES:BEST
; METABANG.UTILITIES:MOSTN
; METABANG.UTILITIES:MAP0-N
; METABANG.UTILITIES:MAP1-N
; METABANG.UTILITIES:MAPA-B
; METABANG.UTILITIES:MAP->
; METABANG.UTILITIES:MAPCARS
; METABANG.UTILITIES:FILTER-VALUES
; METABANG.UTILITIES:ALLF
; METABANG.UTILITIES:NILF
; METABANG.UTILITIES:TF
; METABANG.UTILITIES:TOGGLE!
; METABANG.UTILITIES::TOGGLE-AUX
; METABANG.UTILITIES:CONCF
; METABANG.UTILITIES::FN
; METABANG.UTILITIES::RBUILD
; METABANG.UTILITIES::BUILD-CALL
; METABANG.UTILITIES::BUILD-COMPOSE
; METABANG.UTILITIES:WITH-MATRIX
; METABANG.UTILITIES:WITH-ARRAY
; METABANG.UTILITIES:WITH-STRUCT
; METABANG.UTILITIES:MATCH
; METABANG.UTILITIES::VARSYM?
; METABANG.UTILITIES::BINDING
; METABANG.UTILITIES:IF-MATCH
; METABANG.UTILITIES::VARS-IN
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\utilities\macros.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; METABANG.UTILITIES:MAKE-OBSOLETE
; METABANG.UTILITIES:NAMED-LAMBDA
; METABANG.UTILITIES:DELETEF
; METABANG.UTILITIES:REMOVEF
; METABANG.UTILITIES:DOPLIST
; METABANG.UTILITIES:ASSERT*
; METABANG.UTILITIES:MAXF
; METABANG.UTILITIES:MINF
; METABANG.UTILITIES:MULTF
; METABANG.UTILITIES:SOME*
; METABANG.UTILITIES:HANDLER-CASE-IF
; METABANG.UTILITIES:GENSYM*
; METABANG.UTILITIES:REBINDING
; METABANG.UTILITIES::FUNCTION-EXPRESSION-P
; METABANG.UTILITIES::EXTRACT-HEAD-FORM
; METABANG.UTILITIES:\\
; METABANG.UTILITIES:ENSURE-TYPE
; METABANG.UTILITIES:WITH-SLOT-BINDINGS
; METABANG.UTILITIES:FUNCALL-IF
; METABANG.UTILITIES:PUSH-END
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\utilities\macros.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\utilities\dates-and-times.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPARAMETER METABANG.UTILITIES::+MONTH-LIST+)
; (DEFPARAMETER METABANG.UTILITIES::+DAY-LIST+)
; (DEFPARAMETER METABANG.UTILITIES::+FLUFF-LIST+)
; METABANG.UTILITIES:STRING->MONTH
; METABANG.UTILITIES:PRINT-DATE
; METABANG.UTILITIES:DATE-STRING
; METABANG.UTILITIES:DATE-STRING-BRIEF
; METABANG.UTILITIES::PRINT-TIME-WITH-NO-COLONS
; METABANG.UTILITIES:PRINT-TIME
; METABANG.UTILITIES::PRINT-UNIVERSAL-TIME-WITH-NO-COLONS
; METABANG.UTILITIES:PRINT-UNIVERSAL-TIME
; METABANG.UTILITIES:TIME-STRING
; METABANG.UTILITIES:TIME-STRING-WITH-NO-COLONS
; METABANG.UTILITIES:DATE-AND-TIME-STRING
; (TOP-LEVEL-FORM 16)
; METABANG.UTILITIES::NTH-OK-P
; METABANG.UTILITIES::NTH-OK-P
; METABANG.UTILITIES::MONTH-OK-P
; METABANG.UTILITIES::MONTH-OK-P
; METABANG.UTILITIES::DAY-OK-P
; METABANG.UTILITIES::DAY-OK-P
; METABANG.UTILITIES::YEARP
; METABANG.UTILITIES::YEARP
; METABANG.UTILITIES::INDEX-OF
; METABANG.UTILITIES::TOKEN-TYPE
; METABANG.UTILITIES::READ-TIME
; METABANG.UTILITIES::READ-DATE
; METABANG.UTILITIES::HANDLE-TOKEN
; METABANG.UTILITIES:PARSE-DATE-AND-TIME-STRING
; METABANG.UTILITIES:PARSE-DATE-AND-TIME
; METABANG.UTILITIES:PRINT-BRIEF-UT
; METABANG.UTILITIES:PRINT-UT
; METABANG.UTILITIES:PRINT-TIME-INTERVAL
; METABANG.UTILITIES:PRINT-BRIEF-TIME-INTERVAL
; METABANG.UTILITIES::PARSE-NUMBER
; (DEFVAR METABANG.UTILITIES::TIME-INTERVAL-ARRAY)
; (DEFVAR METABANG.UTILITIES::TIME-INTERVAL-UNIT-TYPES)
; METABANG.UTILITIES::TIME-INTERVAL-TO-SECONDS
; METABANG.UTILITIES:PARSE-INTERVAL-OR-NEVER
; METABANG.UTILITIES::PARSE-TIME
; METABANG.UTILITIES::INIT-TIME-INTERVAL-ARRAY
; (TOP-LEVEL-FORM 39)
; METABANG.UTILITIES::PRINT-UNIVERSAL-DATE-VERBOSE
; METABANG.UTILITIES::PRINT-DATE-VERBOSE
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\utilities\graham.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\utilities\files.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCONSTANT METABANG.UTILITIES::+MAC-OS-FILENAME-LIMIT+)
; (DEFGENERIC METABANG.UTILITIES:MAP-LINES-IN-FILE)
; (DEFGENERIC METABANG.UTILITIES:MAP-FORMS-IN-FILE)
; METABANG.UTILITIES:FILE-TO-LIST
; METABANG.UTILITIES:UNIQUE-FILE-NAME-FROM-DATE
; METABANG.UTILITIES:PRETTY-NAMESTRING-FROM-DATE
; METABANG.UTILITIES:EOS-NAMESTRING-FROM-DATE
; METABANG.UTILITIES:SHORT-EOS-NAMESTRING-FROM-DATE
; METABANG.UTILITIES:RENAME-FILE-IF-PRESENT
; (DEFGENERIC METABANG.UTILITIES:UNIQUIFY-FILE-NAME)
; (METHOD METABANG.UTILITIES:UNIQUIFY-FILE-NAME (PATHNAME))
; (METHOD METABANG.UTILITIES:UNIQUIFY-FILE-NAME (STRING))
; METABANG.UTILITIES:MAP-FILES
; (METHOD METABANG.UTILITIES:MAP-FORMS-IN-FILE (T STRING))
; (METHOD METABANG.UTILITIES:MAP-FORMS-IN-FILE (T PATHNAME))
; (METHOD METABANG.UTILITIES:MAP-FORMS-IN-FILE (T T))
; (METHOD METABANG.UTILITIES:MAP-LINES-IN-FILE (T STRING))
; (METHOD METABANG.UTILITIES:MAP-LINES-IN-FILE (T PATHNAME))
; (METHOD METABANG.UTILITIES:MAP-LINES-IN-FILE (T T))
; METABANG.UTILITIES::ITERATE-LINES
; METABANG.UTILITIES::ENSURE-WILD-FILE-SPEC
; METABANG.UTILITIES::REMOVE-DEAD-VERSIONS
; METABANG.UTILITIES:FILE-PACKAGE
; (DEFVAR METABANG.UTILITIES::*GLU-BLAST-PATHNAME-DEFAULTS*)
; (DEFVAR METABANG.UTILITIES::*GLU-BLAST-DEFAULT-SELECTOR*)
; METABANG.UTILITIES::GLU-BLAST
; METABANG.UTILITIES::PATHNAME-IS-OLD-CVS-JUNK-P
; (DEFPARAMETER METABANG.UTILITIES::*FILENAME-ESCAPE-CHARACTERS*)
; METABANG.UTILITIES:ENSURE-FILENAME-SAFE-FOR-OS
; METABANG.UTILITIES::GOOD-FILENAME-CHAR-P
; METABANG.UTILITIES:REMOVE-ILLEGAL-FILENAME-CHARACTERS
; (DEFGENERIC METABANG.UTILITIES:SHORTEN-FILENAME-FOR-OS)
; (METHOD METABANG.UTILITIES:SHORTEN-FILENAME-FOR-OS (PATHNAME))
; (METHOD METABANG.UTILITIES:SHORTEN-FILENAME-FOR-OS (STRING))
; METABANG.UTILITIES::MAXIMUM-FILENAME-LENGTH
; METABANG.UTILITIES:DELETE-DIRECTORY
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\utilities\sequences.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; METABANG.UTILITIES:REDUCE-IF
; METABANG.UTILITIES:MINIMIZE
; METABANG.UTILITIES::MAPCAN1
;;;*** Warning in METABANG.UTILITIES:FLATTEN: Failed to find name
METABANG.UTILITIES::REC in declaration (DYNAMIC-EXTENT
METABANG.UTILITIES::REC).
; METABANG.UTILITIES:FLATTEN
; METABANG.UTILITIES:POWER-SET
; METABANG.UTILITIES:ALL-PAIRS
; METABANG.UTILITIES:MAP-COMBINATIONS
; METABANG.UTILITIES:COMBINATIONS
; METABANG.UTILITIES:PERMUTE
; METABANG.UTILITIES:REMOVE-MEMBERS
; METABANG.UTILITIES:TRANSPOSE
; METABANG.UTILITIES:TRANSPOSE2
; METABANG.UTILITIES::LIST-CHOOSE-K
; METABANG.UTILITIES:SAME-LENGTH-P
; METABANG.UTILITIES:LENGTH-EXACTLY-P
; METABANG.UTILITIES:PERCENT-OVERLAP
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21DDAFC7> on #<ASDF:CL-SOURCE-FILE "sequences" 21DD89B7>.
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\utilities\spy.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPARAMETER METABANG.UTILITIES::*SPY-DEBUGGING*)
; (DEFPARAMETER METABANG.UTILITIES::*SPY-OUTPUT*)
; (DEFPARAMETER METABANG.UTILITIES::*SPY-NO-NEWLINE*)
; (DEFPARAMETER METABANG.UTILITIES::*SPY-NO-EXPAND*)
; METABANG.UTILITIES::SPY-PRIN1
; METABANG.UTILITIES::SPY-PARSE-ARGLIST
; METABANG.UTILITIES::SPY-DO-FORM
; METABANG.UTILITIES::SPY-EXPAND-FORM
; METABANG.UTILITIES:SPY
; METABANG.UTILITIES::SPY*
; METABANG.UTILITIES:SPYX
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\utilities\strings.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; METABANG.UTILITIES:STRING-BEFORE
; METABANG.UTILITIES:STRING-AFTER
; METABANG.UTILITIES:SUBSTRING
; (SETF METABANG.UTILITIES:SUBSTRING)
; METABANG.UTILITIES:STRING-CONTAINS-P
; METABANG.UTILITIES::COLLECT-TO-CHAR
; METABANG.UTILITIES::COLLECT-TO-NOT
; METABANG.UTILITIES:STRING->SYMBOL
; METABANG.UTILITIES:SYMBOL->STRING
; METABANG.UTILITIES:TOKENIZE-STRING
; METABANG.UTILITIES:LIST->FORMATTED-STRING
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\utilities\utilities.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; METABANG.UTILITIES:MAPAPPEND
; (TOP-LEVEL-FORM 3)
; METABANG.UTILITIES:TREE-MAP
; METABANG.UTILITIES:TREE-FIND
; METABANG.UTILITIES:TREE-FIND-IF
; METABANG.UTILITIES:TREE-REMOVE-IF
; METABANG.UTILITIES:PARTITION
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 11)
; METABANG.UTILITIES:FIND-ALL
; METABANG.UTILITIES:FIND-ALL
; METABANG.UTILITIES:NMERGE-LIST
; METABANG.UTILITIES::DELETE-IF!
; METABANG.UTILITIES:COMPACT-ARRAY
; METABANG.UTILITIES:CIRCULAR-LIST
; METABANG.UTILITIES:GENSYM0
; METABANG.UTILITIES:GROUP
; METABANG.UTILITIES:MAKE-INITIALIZED-ARRAY
; METABANG.UTILITIES:OBJECT->STRING
; METABANG.UTILITIES:FLOAT->INTEGER
; METABANG.UTILITIES:SORT-USING-LIST-ORDER
; METABANG.UTILITIES:UNUSED-VARIABLES
; METABANG.UTILITIES:LAMBDA-LIST->ARGS
; (TOP-LEVEL-FORM 25)
; METABANG.UTILITIES:CAR-SAFE
; METABANG.UTILITIES:CAR-SAFE
; (TOP-LEVEL-FORM 27)
; METABANG.UTILITIES:CDR-SAFE
; (DEFPARAMETER METABANG.UTILITIES:+VERY-SMALL-NUMBER+)
; METABANG.UTILITIES:VERY-SMALL-NUMBER-P
; METABANG.UTILITIES:CONVERT-CLAUSES-INTO-LISTS
; METABANG.UTILITIES:CONVERT-CLAUSES-INTO-LISTS*
; METABANG.UTILITIES:CLEANUP-PARSED-PARAMETER
; METABANG.UTILITIES:FIRSTN
; METABANG.UTILITIES:CURRY
; (DEFINE-COMPILER-MACRO METABANG.UTILITIES:CURRY)
; METABANG.UTILITIES:CURRY-AFTER
; METABANG.UTILITIES:COMPOSE
; METABANG.UTILITIES:CONJOIN
; (DEFINE-COMPILER-MACRO METABANG.UTILITIES:CONJOIN)
; METABANG.UTILITIES:DISJOIN
; (DEFINE-COMPILER-MACRO METABANG.UTILITIES:DISJOIN)
; METABANG.UTILITIES:ADD-CLASSES-IF-NECESSARY
; METABANG.UTILITIES::DIRECT-SUPERCLASSES-DEFCLASS*
; METABANG.UTILITIES::SUPERCLASSES-DEFCLASS*
; METABANG.UTILITIES:ADD-CLASS-IF-NECESSARY
; METABANG.UTILITIES:REMOVE-LEADING-QUOTE
; METABANG.UTILITIES:NTH-ELT-OF-CROSS-PRODUCT
; METABANG.UTILITIES:NTH-ELT-OF-CROSS-PRODUCT-AS-MULTIPLE-VALUES
; METABANG.UTILITIES:CONSTANT-EXPRESSION-P
; METABANG.UTILITIES::CONSTANT-FUNCTION-P
; METABANG.UTILITIES:MAKE-SORTER
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\utilities\searching.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; METABANG.UTILITIES:BINARY-SEARCH
; METABANG.UTILITIES:TREE-SEARCH
; METABANG.UTILITIES::PREPEND
; METABANG.UTILITIES::DEPTH-FIRST-SEARCH
; METABANG.UTILITIES::BREADTH-FIRST-SEARCH
; METABANG.UTILITIES::MAKE-SORTER-FN
; METABANG.UTILITIES::BEST-FIRST-SEARCH
; METABANG.UTILITIES::BEAM-SEARCH
; METABANG.UTILITIES::ITER-WIDE-SEARCH
; METABANG.UTILITIES:GRAPH-SEARCH
; METABANG.UTILITIES::NEW-STATES
; (DEFVAR METABANG.UTILITIES::*A*-COUNT*)
; (DEFVAR METABANG.UTILITIES::*A*-LIMIT*)
; METABANG.UTILITIES::SEARCH-ALL
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\utilities\views-and-windows.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS METABANG.UTILITIES:VIEW-REQUIRING-CLEANUP-MIXIN)
; (DEFGENERIC METABANG.UTILITIES:CLEAN-UP-VIEW)
; (DEFGENERIC METABANG.UTILITIES:UPDATE-DIALOG-UI)
; (TOP-LEVEL-FORM 5)
; (DEFCLASS METABANG.UTILITIES:HELP-TEXT-MIXIN)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 5)
; (METHOD METABANG.UTILITIES::HELP-SPEC (METABANG.UTILITIES:HELP-TEXT-
MIXIN))
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 7)
; (DEFCLASS METABANG.UTILITIES:MARGINS-MIXIN)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 7)
; (METHOD (SETF METABANG.UTILITIES:LEFT-MARGIN) :AFTER (T
METABANG.UTILITIES:MARGINS-MIXIN))
; (METHOD (SETF METABANG.UTILITIES:TOP-MARGIN) :AFTER (T
METABANG.UTILITIES:MARGINS-MIXIN))
; (METHOD (SETF METABANG.UTILITIES:RIGHT-MARGIN) :AFTER (T
METABANG.UTILITIES:MARGINS-MIXIN))
; (METHOD (SETF METABANG.UTILITIES:BOTTOM-MARGIN) :AFTER (T
METABANG.UTILITIES:MARGINS-MIXIN))
; (METHOD METABANG.UTILITIES:VIEW-X/VIEW-Y->X/Y (T T T))
; (METHOD METABANG.UTILITIES:VIEW-SCALE (T))
; (DEFGENERIC METABANG.UTILITIES:ADJUST-POINT-FOR-SCALING)
; (DEFGENERIC METABANG.UTILITIES:VIEW-X/VIEW-Y->POINT)
; (DEFGENERIC METABANG.UTILITIES:NOTE-VIEW-SETTINGS-CHANGED)
; (DEFGENERIC METABANG.UTILITIES:REDRAW)
; (DEFGENERIC METABANG.UTILITIES:DIALOG-ITEM-VALUE)
; (DEFGENERIC (SETF METABANG.UTILITIES:DIALOG-ITEM-VALUE))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\unsupported\generic-lisp.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
;;;*** Warning between functions: Metatilities does not provide
generic-support or generic-interface-support for this Lisp. As these
are mostly convenience functions, it probably won't be a big issue.
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21DDAFC7> on #<ASDF:CL-SOURCE-FILE "generic-lisp" 21DD7E53>.
Warning: COMPILE-FILE failed while performing #<ASDF:COMPILE-OP NIL
21DDAFC7> on #<ASDF:CL-SOURCE-FILE "generic-lisp" 21DD7E53>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\unsupported\generic-lisp.ofasl
Warning: Metatilities does not provide generic-support or generic-
interface-support for this Lisp. As these are mostly convenience
functions, it probably won't be a big issue.
;;; Compiling file d:\ue31057\old\base\external\site\metatilities\dev
\unsupported\generic-interface-support.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\bordeaux-
threads_0.5.1\src\bordeaux-threads.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (DEFPACKAGE "BORDEAUX-THREADS")
; (TOP-LEVEL-FORM 2)
; (DEFVAR BORDEAUX-THREADS:*SUPPORTS-THREADS-P*)
; BORDEAUX-THREADS::MARK-SUPPORTED
; (SUBFUNCTION (DEFCLASS BORDEAUX-THREADS::BORDEAUX-MP-CONDITION)
(DEFINE-CONDITION BORDEAUX-THREADS::BORDEAUX-MP-CONDITION))
; (DEFINE-CONDITION BORDEAUX-THREADS::BORDEAUX-MP-CONDITION)
; (DEFINE-CONDITION BORDEAUX-THREADS::BORDEAUX-MP-CONDITION)
; (DEFGENERIC BORDEAUX-THREADS::MAKE-THREADING-SUPPORT-ERROR)
; (SUBFUNCTION (DEFCLASS BORDEAUX-THREADS:TIMEOUT) (DEFINE-CONDITION
BORDEAUX-THREADS:TIMEOUT))
; (DEFINE-CONDITION BORDEAUX-THREADS:TIMEOUT)
; (DEFVAR BORDEAUX-THREADS:*DEFAULT-SPECIAL-BINDINGS*)
; BORDEAUX-THREADS::SIGNAL-ERROR-IF-CURRENT-THREAD
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\bordeaux-threads_0.5.1\src\bordeaux-threads.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\bordeaux-
threads_0.5.1\src\lispworks.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; BORDEAUX-THREADS:MAKE-THREAD
; BORDEAUX-THREADS:CURRENT-THREAD
; BORDEAUX-THREADS:THREADP
; BORDEAUX-THREADS:THREAD-NAME
; BORDEAUX-THREADS:MAKE-LOCK
; BORDEAUX-THREADS:ACQUIRE-LOCK
; BORDEAUX-THREADS:RELEASE-LOCK
; BORDEAUX-THREADS:WITH-LOCK-HELD
; BORDEAUX-THREADS:THREAD-YIELD
; BORDEAUX-THREADS:ALL-THREADS
; BORDEAUX-THREADS:INTERRUPT-THREAD
; BORDEAUX-THREADS:DESTROY-THREAD
; BORDEAUX-THREADS:THREAD-ALIVE-P
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\bordeaux-threads_0.5.1\src\lispworks.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\bordeaux-
threads_0.5.1\src\default-implementations.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; BORDEAUX-THREADS::DEFDFUN
; BORDEAUX-THREADS::DEFDMACRO
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; BORDEAUX-THREADS:MAKE-RECURSIVE-LOCK
; (TOP-LEVEL-FORM 12)
; BORDEAUX-THREADS:ACQUIRE-RECURSIVE-LOCK
; (TOP-LEVEL-FORM 13)
; BORDEAUX-THREADS:RELEASE-RECURSIVE-LOCK
; (TOP-LEVEL-FORM 14)
; BORDEAUX-THREADS:WITH-RECURSIVE-LOCK-HELD
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 16)
; BORDEAUX-THREADS:MAKE-CONDITION-VARIABLE
; (TOP-LEVEL-FORM 17)
; BORDEAUX-THREADS:CONDITION-WAIT
; (TOP-LEVEL-FORM 18)
; BORDEAUX-THREADS:CONDITION-NOTIFY
; (TOP-LEVEL-FORM 19)
; BORDEAUX-THREADS:WITH-TIMEOUT
; (TOP-LEVEL-FORM 21)
; (TOP-LEVEL-FORM 21)
; (TOP-LEVEL-FORM 22)
; (TOP-LEVEL-FORM 22)
; (TOP-LEVEL-FORM 23)
; (TOP-LEVEL-FORM 23)
; (TOP-LEVEL-FORM 24)
; (TOP-LEVEL-FORM 24)
; BORDEAUX-THREADS::THREAD-JOIN
; (TOP-LEVEL-FORM 25)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\bordeaux-threads_0.5.1\src\default-
implementations.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\bordeaux-
threads_0.5.1\src\condition-variables.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (SUBFUNCTION (DEFSETF BORDEAUX-THREADS::CONDITION-VAR-ACTIVE)
(DEFSTRUCT BORDEAUX-THREADS::CONDITION-VAR))
; (SUBFUNCTION (DEFSETF BORDEAUX-THREADS::CONDITION-VAR-LOCK)
(DEFSTRUCT BORDEAUX-THREADS::CONDITION-VAR))
; (SUBFUNCTION BORDEAUX-THREADS::MAKE-CONDITION-VAR (DEFSTRUCT
BORDEAUX-THREADS::CONDITION-VAR))
; (SUBFUNCTION BORDEAUX-THREADS::MAKE-CONDITION-VAR (DEFSTRUCT
BORDEAUX-THREADS::CONDITION-VAR))
; BORDEAUX-THREADS:CONDITION-WAIT
; BORDEAUX-THREADS:CONDITION-NOTIFY
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\f-underscore\f-
underscore.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (DEFPACKAGE "F-UNDERSCORE")
; (TOP-LEVEL-FORM 2)
; F-UNDERSCORE:F
; F-UNDERSCORE:F0
; F-UNDERSCORE:F_
; F-UNDERSCORE:F_N
; F-UNDERSCORE:F_%
; F-UNDERSCORE:M
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site
\anaphora-0.9.3\packages.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (DEFPACKAGE "ANAPHORA")
; (DEFPACKAGE "ANAPHORA-BASIC")
; (DEFPACKAGE "ANAPHORA-SYMBOL")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\anaphora-0.9.3\packages.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\anaphora-0.9.3\early.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; ANAPHORA::WITH-UNIQUE-NAMES
; ANAPHORA::IGNORE-FIRST
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\anaphora-0.9.3\early.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\anaphora-0.9.3\symbolic.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; ANAPHORA::INTERNAL-SYMBOL-MACROLET
; (DEFINE-SETF-EXPANDER ANAPHORA::INTERNAL-SYMBOL-MACROLET)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\anaphora-0.9.3\symbolic.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\anaphora-0.9.3\anaphora.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; ANAPHORA::ANAPHORIC
; ANAPHORA:AAND
; ANAPHORA:SOR
; ANAPHORA:AIF
;;;*** Warning in ANAPHORA:SIF: ENV is bound but not referenced
; ANAPHORA:SIF
; ANAPHORA:ASIF
; ANAPHORA:APROG1
; ANAPHORA:AWHEN
; ANAPHORA:SWHEN
; ANAPHORA:SUNLESS
; ANAPHORA:ACASE
; ANAPHORA:SCASE
; ANAPHORA:AECASE
; ANAPHORA:SECASE
; ANAPHORA:ACCASE
; ANAPHORA:SCCASE
; ANAPHORA:ATYPECASE
; ANAPHORA:STYPECASE
; ANAPHORA:AETYPECASE
; ANAPHORA:SETYPECASE
; ANAPHORA:ACTYPECASE
; ANAPHORA:SCTYPECASE
; ANAPHORA:ACOND
; ANAPHORA:SCOND
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21EAEDEF> on #<ASDF:CL-SOURCE-FILE "anaphora" 21EA99DB>.
;;; Compiling file d:\ue31057\old\base\external\site
\parenscript-20090216\src\package.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPARAMETER *PARENSCRIPT-LANG-EXPORTS*)
; (DEFPARAMETER *PARENSCRIPT-INTERFACE-EXPORTS*)
; (DEFPARAMETER *PARENSCRIPT-INTERFACE-DEPRECATED-EXPORTS*)
; (DEFPACKAGE "PARENSCRIPT")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\parenscript-20090216\src\package.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\parenscript-20090216\src\utils.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; PARENSCRIPT::STRING-JOIN
; PARENSCRIPT::VAL-TO-STRING
; PARENSCRIPT::STRING-SPLIT
; (DEFPARAMETER PARENSCRIPT::*SPECIAL-CHARS*)
; PARENSCRIPT::CONSTANT-STRING-P
; PARENSCRIPT::FIRST-UPPERCASE-P
; PARENSCRIPT::UNTOUCHABLE-STRING-P
; PARENSCRIPT:SYMBOL-TO-JS-STRING
; PARENSCRIPT::ORDERED-SET-DIFFERENCE
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\parenscript-20090216\src\utils.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\parenscript-20090216\src\namespace.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; PARENSCRIPT::ENSURE-PS-SYMBOL
; (DEFVAR PARENSCRIPT::*OBFUSCATED-PACKAGES*)
; PARENSCRIPT:OBFUSCATE-PACKAGE
; PARENSCRIPT:UNOBFUSCATE-PACKAGE
; PARENSCRIPT::MAYBE-OBFUSCATE-SYMBOL
; (DEFVAR PARENSCRIPT::*PACKAGE-PREFIX-TABLE*)
; PARENSCRIPT:PS-PACKAGE-PREFIX
; PARENSCRIPT::JS-TRANSLATE-SYMBOL
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\parenscript-20090216\src\namespace.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\parenscript-20090216\src\parse-lambda-list.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; PARENSCRIPT::COLLECT-LIST-EXPANDER
; PARENSCRIPT::COLLECT
; (DEFPARAMETER PARENSCRIPT::*LAMBDA-LIST-KEYWORDS*)
; PARENSCRIPT::STYLE-WARN
; PARENSCRIPT::PARSE-LAMBDA-LIST-LIKE-THING
; PARENSCRIPT::PARSE-LAMBDA-LIST
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\parenscript-20090216\src\parse-lambda-list.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\parenscript-20090216\src\compiler.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFVAR PARENSCRIPT::*PS-RESERVED-SYMBOL-NAMES*)
; PARENSCRIPT::ADD-PS-LITERAL
; PARENSCRIPT::PS-LITERAL-P
; (DEFVAR PARENSCRIPT::*PS-SPECIAL-FORMS*)
; PARENSCRIPT::GET-PS-SPECIAL-FORM
; PARENSCRIPT::DEFINE-PS-SPECIAL-FORM
; PARENSCRIPT::UNDEFINE-PS-SPECIAL-FORM
; PARENSCRIPT::PS-SPECIAL-FORM-P
; (DEFVAR PARENSCRIPT::*ENCLOSING-LEXICAL-BLOCK-DECLARATIONS*)
; (DEFVAR PARENSCRIPT::*PS-SPECIAL-VARIABLES*)
; PARENSCRIPT::OP-FORM-P
; PARENSCRIPT::FUNCALL-FORM-P
; PARENSCRIPT::MAKE-MACRO-ENV-DICTIONARY
; (DEFVAR PARENSCRIPT::*PS-MACRO-TOPLEVEL*)
; (DEFVAR PARENSCRIPT::*PS-MACRO-ENV*)
; (DEFVAR PARENSCRIPT::*PS-SETF-EXPANDERS*)
; PARENSCRIPT::GET-MACRO-SPEC
; (DEFSETF PARENSCRIPT::GET-MACRO-SPEC)
; PARENSCRIPT::LOOKUP-MACRO-SPEC
; PARENSCRIPT::PS-SYMBOL-MACRO-P
; PARENSCRIPT::PS-MACRO-P
; PARENSCRIPT::LOOKUP-MACRO-EXPANSION-FUNCTION
; PARENSCRIPT::MAKE-PS-MACRO-FUNCTION
; PARENSCRIPT:DEFPSMACRO
; PARENSCRIPT:DEFINE-PS-SYMBOL-MACRO
; PARENSCRIPT:IMPORT-MACROS-FROM-LISP
; PARENSCRIPT:DEFMACRO/PS
; PARENSCRIPT:DEFMACRO+PS
; PARENSCRIPT::PS-MACROEXPAND
; (DEFGENERIC PARENSCRIPT::COMPILE-PARENSCRIPT-FORM)
; (METHOD PARENSCRIPT::COMPILE-PARENSCRIPT-FORM :AROUND (T))
; PARENSCRIPT::COMPILE-TO-SYMBOL
; (METHOD PARENSCRIPT::COMPILE-PARENSCRIPT-FORM (T))
; (METHOD PARENSCRIPT::COMPILE-PARENSCRIPT-FORM (NUMBER))
; (METHOD PARENSCRIPT::COMPILE-PARENSCRIPT-FORM (STRING))
; (METHOD PARENSCRIPT::COMPILE-PARENSCRIPT-FORM (CHARACTER))
; (METHOD PARENSCRIPT::COMPILE-PARENSCRIPT-FORM (SYMBOL))
; PARENSCRIPT::COMPILE-FUNCTION-ARGUMENT-FORMS
; PARENSCRIPT::PS-CONVERT-OP-NAME
; (METHOD PARENSCRIPT::COMPILE-PARENSCRIPT-FORM (CONS))
; (DEFVAR PARENSCRIPT:*PS-GENSYM-COUNTER*)
; PARENSCRIPT:PS-GENSYM
; PARENSCRIPT:WITH-PS-GENSYMS
; PARENSCRIPT::%CHECK-ONCE-ONLY-VARS
; PARENSCRIPT:PS-ONCE-ONLY
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\parenscript-20090216\src\compiler.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\parenscript-20090216\src\special-forms.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; PARENSCRIPT::DEFPSLITERAL
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 14)
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 17)
; (TOP-LEVEL-FORM 17)
; (TOP-LEVEL-FORM 17)
; (TOP-LEVEL-FORM 18)
; (TOP-LEVEL-FORM 19)
; (TOP-LEVEL-FORM 20)
; (TOP-LEVEL-FORM 21)
; PARENSCRIPT::FLATTEN-BLOCKS
; PARENSCRIPT::CONSTANT-LITERAL-FORM-P
; (TOP-LEVEL-FORM 24)
; (TOP-LEVEL-FORM 25)
; PARENSCRIPT::MAKE-COND-CLAUSES-INTO-NESTED-IFS
; (TOP-LEVEL-FORM 27)
; (TOP-LEVEL-FORM 28)
; (TOP-LEVEL-FORM 29)
; (TOP-LEVEL-FORM 29)
; (TOP-LEVEL-FORM 29)
; (TOP-LEVEL-FORM 30)
; (TOP-LEVEL-FORM 30)
; (TOP-LEVEL-FORM 30)
; (TOP-LEVEL-FORM 31)
; (TOP-LEVEL-FORM 31)
; (TOP-LEVEL-FORM 31)
; PARENSCRIPT::COMPILE-FUNCTION-DEFINITION
; (TOP-LEVEL-FORM 33)
; (TOP-LEVEL-FORM 34)
; PARENSCRIPT::PARSE-FUNCTION-BODY
; PARENSCRIPT::PARSE-KEY-SPEC
; PARENSCRIPT::PARSE-OPTIONAL-SPEC
; PARENSCRIPT::PARSE-AUX-SPEC
; (TOP-LEVEL-FORM 39)
; (TOP-LEVEL-FORM 39)
; (TOP-LEVEL-FORM 39)
; PARENSCRIPT::PARSE-EXTENDED-FUNCTION
; (TOP-LEVEL-FORM 41)
; (TOP-LEVEL-FORM 41)
; (TOP-LEVEL-FORM 41)
; (TOP-LEVEL-FORM 42)
; (TOP-LEVEL-FORM 42)
; (TOP-LEVEL-FORM 42)
; (DEFVAR PARENSCRIPT::*DEFUN-SETF-NAME-PREFIX*)
; (TOP-LEVEL-FORM 44)
; (TOP-LEVEL-FORM 44)
; (TOP-LEVEL-FORM 44)
; (TOP-LEVEL-FORM 45)
; (TOP-LEVEL-FORM 45)
; (TOP-LEVEL-FORM 45)
; (TOP-LEVEL-FORM 46)
; (TOP-LEVEL-FORM 46)
; (TOP-LEVEL-FORM 46)
; (TOP-LEVEL-FORM 47)
; (TOP-LEVEL-FORM 47)
; (TOP-LEVEL-FORM 47)
; (TOP-LEVEL-FORM 48)
; (TOP-LEVEL-FORM 48)
; (TOP-LEVEL-FORM 48)
; (TOP-LEVEL-FORM 49)
; (TOP-LEVEL-FORM 49)
; (TOP-LEVEL-FORM 49)
; (TOP-LEVEL-FORM 50)
; (TOP-LEVEL-FORM 50)
; (TOP-LEVEL-FORM 50)
; (TOP-LEVEL-FORM 51)
; (TOP-LEVEL-FORM 51)
; (TOP-LEVEL-FORM 51)
; PARENSCRIPT::WITH-TEMP-MACRO-ENVIRONMENT
; (TOP-LEVEL-FORM 53)
; (TOP-LEVEL-FORM 54)
; (TOP-LEVEL-FORM 55)
; (TOP-LEVEL-FORM 56)
; (TOP-LEVEL-FORM 57)
; (TOP-LEVEL-FORM 58)
; (TOP-LEVEL-FORM 58)
; (TOP-LEVEL-FORM 58)
; (TOP-LEVEL-FORM 59)
; (TOP-LEVEL-FORM 60)
; (TOP-LEVEL-FORM 61)
; (TOP-LEVEL-FORM 62)
; (TOP-LEVEL-FORM 62)
; (TOP-LEVEL-FORM 62)
; (TOP-LEVEL-FORM 63)
; (TOP-LEVEL-FORM 63)
; (TOP-LEVEL-FORM 63)
; PARENSCRIPT::ASSIGNMENT-OP
; PARENSCRIPT::SMART-SETF
; (TOP-LEVEL-FORM 66)
; (TOP-LEVEL-FORM 67)
; (TOP-LEVEL-FORM 67)
; (TOP-LEVEL-FORM 67)
; (TOP-LEVEL-FORM 68)
; (TOP-LEVEL-FORM 68)
; (TOP-LEVEL-FORM 68)
; PARENSCRIPT::CHECK-SETQ-ARGS
; (TOP-LEVEL-FORM 70)
; (TOP-LEVEL-FORM 70)
; (TOP-LEVEL-FORM 70)
; (TOP-LEVEL-FORM 71)
; (TOP-LEVEL-FORM 71)
; (TOP-LEVEL-FORM 71)
; (TOP-LEVEL-FORM 72)
; (TOP-LEVEL-FORM 73)
; (TOP-LEVEL-FORM 73)
; (TOP-LEVEL-FORM 73)
; PARENSCRIPT::MAKE-LET-VARS
; PARENSCRIPT::MAKE-LET-VALS
; (TOP-LEVEL-FORM 76)
; (TOP-LEVEL-FORM 76)
; (TOP-LEVEL-FORM 76)
; (TOP-LEVEL-FORM 77)
; (TOP-LEVEL-FORM 77)
; (TOP-LEVEL-FORM 77)
; (TOP-LEVEL-FORM 78)
; (TOP-LEVEL-FORM 78)
; (TOP-LEVEL-FORM 78)
; (TOP-LEVEL-FORM 79)
; (TOP-LEVEL-FORM 79)
; (TOP-LEVEL-FORM 79)
; (TOP-LEVEL-FORM 80)
; (TOP-LEVEL-FORM 80)
; (TOP-LEVEL-FORM 80)
; (TOP-LEVEL-FORM 81)
; (TOP-LEVEL-FORM 81)
; (TOP-LEVEL-FORM 81)
; (TOP-LEVEL-FORM 82)
; (TOP-LEVEL-FORM 83)
; (TOP-LEVEL-FORM 83)
; (TOP-LEVEL-FORM 83)
; PARENSCRIPT::MAKE-FOR-VARS/INITS
; (TOP-LEVEL-FORM 85)
; (TOP-LEVEL-FORM 86)
; (TOP-LEVEL-FORM 86)
; (TOP-LEVEL-FORM 86)
; PARENSCRIPT::DO-MAKE-LET-BINDINGS
; PARENSCRIPT::DO-MAKE-INIT-VARS
; PARENSCRIPT::DO-MAKE-INIT-VALS
; PARENSCRIPT::DO-MAKE-FOR-VARS/INIT
; PARENSCRIPT::DO-MAKE-FOR-STEPS
; PARENSCRIPT::DO-MAKE-ITER-PSTEPS
; (TOP-LEVEL-FORM 93)
; (TOP-LEVEL-FORM 93)
; (TOP-LEVEL-FORM 93)
; (TOP-LEVEL-FORM 94)
; (TOP-LEVEL-FORM 94)
; (TOP-LEVEL-FORM 94)
; (TOP-LEVEL-FORM 95)
; (TOP-LEVEL-FORM 96)
; (TOP-LEVEL-FORM 96)
; (TOP-LEVEL-FORM 96)
; (TOP-LEVEL-FORM 97)
; (TOP-LEVEL-FORM 98)
; (TOP-LEVEL-FORM 98)
; (TOP-LEVEL-FORM 98)
; (TOP-LEVEL-FORM 99)
; (TOP-LEVEL-FORM 99)
; (TOP-LEVEL-FORM 99)
; (TOP-LEVEL-FORM 100)
; (TOP-LEVEL-FORM 101)
; (TOP-LEVEL-FORM 102)
; (TOP-LEVEL-FORM 103)
; (TOP-LEVEL-FORM 104)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\parenscript-20090216\src\special-forms.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\parenscript-20090216\src\printer.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFVAR PARENSCRIPT:*PS-PRINT-PRETTY*)
; (DEFVAR PARENSCRIPT:*INDENT-NUM-SPACES*)
; (DEFVAR PARENSCRIPT:*JS-STRING-DELIMITER*)
; (DEFVAR PARENSCRIPT::*INDENT-LEVEL*)
; (DEFVAR PARENSCRIPT::*PRINT-ACCUMULATOR*)
; (METHOD PARENSCRIPT::PARENSCRIPT-PRINT (T))
; PARENSCRIPT::PSW
; (DEFGENERIC PARENSCRIPT::PS-PRINT%)
; PARENSCRIPT::DEFPRINTER
; (DEFGENERIC PARENSCRIPT::PS-PRINT)
; (METHOD PARENSCRIPT::PS-PRINT (NULL))
; (METHOD PARENSCRIPT::PS-PRINT (SYMBOL))
; (METHOD PARENSCRIPT::PS-PRINT (CONS))
; PARENSCRIPT::NEWLINE-AND-INDENT
; (DEFPARAMETER PARENSCRIPT::*JS-LISP-ESCAPED-CHARS*)
; (METHOD PARENSCRIPT::PS-PRINT (STRING))
; (METHOD PARENSCRIPT::PS-PRINT (NUMBER))
; PARENSCRIPT::EXPRESSION-PRECEDENCE
; (DEFPARAMETER PARENSCRIPT::*OP-PRECEDENCE-HASH*)
; (TOP-LEVEL-FORM 20)
; PARENSCRIPT::OP-PRECEDENCE
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::PS-QUOTE))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-
LITERAL)) T))
; PARENSCRIPT::PRINT-COMMA-DELIMITED-LIST
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::ARRAY-
LITERAL)) T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-AREF))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-
VARIABLE)) T))
; PARENSCRIPT::PARENTHESIZE-PRINT
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::OPERATOR))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::UNARY-
OPERATOR)) T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-
FUNCALL)) T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-BLOCK))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-LAMBDA))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-DEFUN))
T))
; PARENSCRIPT::PRINT-FUN-DEF
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-OBJECT))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-SLOT-
VALUE)) T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-COND-
STATEMENT)) T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-
STATEMENT-IF)) T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-
EXPRESSION-IF)) T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-ASSIGN))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-VAR))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-BREAK))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-
CONTINUE)) T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-FOR))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-FOR-IN))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-WHILE))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-WITH))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-SWITCH))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-TRY))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-REGEX))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT:CC-IF)) T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-
INSTANCEOF)) T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-ESCAPE))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-THROW))
T))
; (METHOD PARENSCRIPT::PS-PRINT% ((EQL (QUOTE PARENSCRIPT::JS-RETURN))
T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\parenscript-20090216\src\printer.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\parenscript-20090216\src\compilation-interface.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; PARENSCRIPT:PS
; PARENSCRIPT:PS-DOC
; PARENSCRIPT:PS1*
; PARENSCRIPT:PS*
; (DEFVAR PARENSCRIPT:*JS-INLINE-STRING-DELIMITER*)
; PARENSCRIPT:PS-INLINE*
; PARENSCRIPT:PS-INLINE
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\parenscript-20090216\src\compilation-interface.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\parenscript-20090216\src\deprecated-interface.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (SUBFUNCTION (DEFCLASS PARENSCRIPT::SIMPLE-STYLE-WARNING) (DEFINE-
CONDITION PARENSCRIPT::SIMPLE-STYLE-WARNING))
; (DEFINE-CONDITION PARENSCRIPT::SIMPLE-STYLE-WARNING)
; PARENSCRIPT::WARN-DEPRECATED
; PARENSCRIPT::DEFUN-JS
; PARENSCRIPT:DEFINE-SCRIPT-SYMBOL-MACRO
; PARENSCRIPT::JS-EQUAL
; PARENSCRIPT:JS-COMPILE
; PARENSCRIPT::JS-COMPILE-LIST
; PARENSCRIPT:DEFJSMACRO
; PARENSCRIPT:JS-INLINE
; PARENSCRIPT:JS-INLINE*
; PARENSCRIPT:WITH-UNIQUE-JS-NAMES
; PARENSCRIPT:GEN-JS-NAME
; PARENSCRIPT:JS
; PARENSCRIPT:JS*
; PARENSCRIPT:COMPILE-SCRIPT
; PARENSCRIPT:SYMBOL-TO-JS
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\parenscript-20090216\src\deprecated-interface.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\parenscript-20090216\src\js-dom-symbol-exports.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "PS-JS-SYMBOLS")
; (DEFPACKAGE "PS-DOM-SYMBOLS")
; (DEFPACKAGE "PS-PROTOTYPE-LIB-SYMBOLS")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\parenscript-20090216\src\js-dom-symbol-exports.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\parenscript-20090216\src\lib\ps-html.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFVAR PARENSCRIPT:*SELF-CLOSING-TAGS-P*)
; PARENSCRIPT::CONCAT-CONSTANT-STRINGS
; PARENSCRIPT::PROCESS-HTML-FORMS-LHTML
; PARENSCRIPT::PROCESS-HTML-FORMS-CL-WHO
; PARENSCRIPT:PS-HTML
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 6)
; PARENSCRIPT:WHO-PS-HTML
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site
\parenscript-20090216\src\lib\ps-macro-lib.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; PARENSCRIPT::DEF-JS-MATHS
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
; PARENSCRIPT:CONCAT-STRING
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 14)
; (TOP-LEVEL-FORM 14)
; (TOP-LEVEL-FORM 14)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\parenscript-20090216\src\lib\ps-html.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\parenscript-20090216\src\lib\ps-macro-lib.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\parenscript-20090216\runtime\ps-runtime-lib.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPARAMETER PARENSCRIPT:*PS-LISP-LIBRARY*)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-cont\src
\cont.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (DEFPACKAGE "CL-CONT")
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; (DEFPARAMETER CL-CONT::*SPECIAL-FORM-TRANSFORMERS*)
; CL-CONT::DEFCPSTRANSFORMER
; CL-CONT::CPSTRANSFORMER
; CL-CONT::EXPAND-FORM
; (SUBFUNCTION (DEFSETF CL-CONT::CTX-LOCAL-FUNCTIONS) (DEFSTRUCT CL-
CONT::CALL/CC-CONTEXT))
; (SUBFUNCTION (DEFSETF CL-CONT::CTX-GO-TAGS) (DEFSTRUCT CL-CONT::CALL/
CC-CONTEXT))
; (SUBFUNCTION (DEFSETF CL-CONT::CTX-BLOCK-TAGS) (DEFSTRUCT CL-
CONT::CALL/CC-CONTEXT))
; (SUBFUNCTION CL-CONT::MAKE-CALL/CC-CONTEXT (DEFSTRUCT CL-CONT::CALL/
CC-CONTEXT))
; CL-CONT::COPY-HASH-TABLE
; CL-CONT::COPY-TRANSFORMATION-CONTEXT
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-cont\src\cont.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-cont\src
\special-transformers.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; CL-CONT::CALL/CC
; CL-CONT::LET/CC
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 6)
; CL-CONT::EXTRACT-DECLARATIONS
; CL-CONT::REMOVE-DECLARATIONS
; CL-CONT::EXPR-SEQUENCE->CPS
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 12)
; CL-CONT::GROUP-TAGBODY-FORMS
; CL-CONT::NAMED-TB-FORMS>CPS
; CL-CONT::DUPLICATES-P
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 17)
; (TOP-LEVEL-FORM 18)
; (DEFCLASS CL-CONT::FUNCALLABLE/CC)
; CL-CONT::MAKE-FUNCALLABLE
;;;*** Warning in (SUBFUNCTION 1 CL-CONT::FDESIGNATOR-TO-FUNCTION/CC):
(MULTIPLE-VALUE-CALL CL-CONT::K (APPLY CL-CONT::LOOKUP CL-CONT::ARGS))
Multi form multi-value-call is inefficient
; CL-CONT::FDESIGNATOR-TO-FUNCTION/CC
; (TOP-LEVEL-FORM 22)
;;;*** Warning in CL-CONT::FUNCALL/CC: Inline expansion for CL-
CONT::FDESIGNATOR-TO-FUNCTION/CC not found
;;;*** Warning in CL-CONT::FUNCALL/CC: Inline expansion for CL-
CONT::FDESIGNATOR-TO-FUNCTION/CC not found
; CL-CONT::FUNCALL/CC
; (TOP-LEVEL-FORM 24)
;;;*** Warning in CL-CONT::APPLY/CC: Inline expansion for CL-
CONT::FDESIGNATOR-TO-FUNCTION/CC not found
;;;*** Warning in CL-CONT::APPLY/CC: Inline expansion for CL-
CONT::FDESIGNATOR-TO-FUNCTION/CC not found
; CL-CONT::APPLY/CC
; (TOP-LEVEL-FORM 26)
; CL-CONT::LAMBDA-EXPR->CPS
; (TOP-LEVEL-FORM 28)
; CL-CONT::LAMBDA/CC
; CL-CONT::LET*-VARLIST->CPS
; (TOP-LEVEL-FORM 31)
; CL-CONT::LET-VARLIST->CONS-PAIRS
; (TOP-LEVEL-FORM 33)
; CL-CONT::SETQ->CPS
; (TOP-LEVEL-FORM 35)
; (TOP-LEVEL-FORM 36)
; CL-CONT::TRANSFORM-FORMS-IN-ENV
; CL-CONT::TRANSFORM-LOCAL-FUNCTION
; CL-CONT::DECLARE-FUNCTION-NAMES-LOCAL
; CL-CONT::UNDECLARE-FUNCTION-NAMES-LOCAL
; CL-CONT::WITH-LOCAL-FUNCTION-NAMES
; (TOP-LEVEL-FORM 42)
; (TOP-LEVEL-FORM 43)
; (TOP-LEVEL-FORM 44)
; (TOP-LEVEL-FORM 45)
; (TOP-LEVEL-FORM 46)
; (TOP-LEVEL-FORM 47)
; (TOP-LEVEL-FORM 48)
; (TOP-LEVEL-FORM 49)
; CL-CONT::ACCUM-MC-SEQUENCE->CPS
; (TOP-LEVEL-FORM 51)
; (TOP-LEVEL-FORM 52)
; (TOP-LEVEL-FORM 53)
; (TOP-LEVEL-FORM 54)
; (TOP-LEVEL-FORM 55)
; (TOP-LEVEL-FORM 56)
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21ECF48B> on #<ASDF:CL-SOURCE-FILE "special-transformers" 21ECE48F>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-cont\src\special-transformers.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-cont\src
\helper-transformers.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; CL-CONT::WITHOUT-CALL/CC
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 6)
; CL-CONT::DEFUN/CC
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-cont\src
\walker.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; CL-CONT::WITH-CALL/CC
; CL-CONT::EXPR->CPS
; CL-CONT::ATOM->CPS
; CL-CONT::CONS->CPS
; CL-CONT::APPLICATION->CPS
; CL-CONT::FUNCALL->CPS
; CL-CONT::APPLY->CPS
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils
\package.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "FARE-UTILS")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\package.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils\basic-
utils.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FARE-UTILS:EVAL-NOW
; (TOP-LEVEL-FORM 4)
; FARE-UTILS:DECLAIM-TYPE
; FARE-UTILS:DECLARE-TYPE
; FARE-UTILS:THE*
; FARE-UTILS:STYLE-WARN
; (DEFPARAMETER FARE-UTILS:*PACKAGE-MISDEFINITION-WARNING-HOOK*)
; FARE-UTILS::PACKAGE-EXPORTED-SYMBOLS-SYMBOL
; FARE-UTILS::PACKAGE-EXPORTED-SYMBOLS-SYMBOL!
; FARE-UTILS::PACKAGE-EXPORTED-SYMBOLS
; (SETF FARE-UTILS::PACKAGE-EXPORTED-SYMBOLS)
; FARE-UTILS::PACKAGE-INITIALIZE-EXPORTED-SYMBOLS
; FARE-UTILS::PACKAGE-RESET-EXPORTED-SYMBOLS
; FARE-UTILS::PACKAGE-ENSURE-EXPORTED-SYMBOLS
; FARE-UTILS::PACKAGE-SYMBOL-DECLARED-EXPORTED-P
; FARE-UTILS::PACKAGE-SYMBOL-ACTUALLY-EXPORTED-P
; FARE-UTILS::PACKAGE-ENSURE-SYMBOL-EXPORTED
; FARE-UTILS:EXPORT-SYMBOLS*
; FARE-UTILS:EXPORT*
; FARE-UTILS:EXPORT-SYMBOLS
; FARE-UTILS:EXPORTING-DEFINITIONS
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; FARE-UTILS:DEFINE-EXPORTER
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEFINE*-EXPORTER
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEF*CLASS
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEF*CONSTANT
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEF*GENERIC
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEFINE*-COMPILER-MACRO
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEFINE*-CONDITION
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEFINE*-METHOD-COMBINATION
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEFINE*-MODIFY-MACRO
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEFINE*-SETF-EXPANDER
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEFINE*-SYMBOL-MACRO
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEF*MACRO
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEF*METHOD
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEF*PACKAGE
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEF*PARAMETER
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEF*SETF
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEF*STRUCT
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEF*TYPE
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEF*FUN
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:DEF*VAR
; (TOP-LEVEL-FORM 13)
; FARE-UTILS:FEATURIFY
; (TOP-LEVEL-FORM 14)
; FARE-UTILS:UNFEATURIFY
; (TOP-LEVEL-FORM 14)
; FARE-UTILS:NILF
; (TOP-LEVEL-FORM 14)
; FARE-UTILS:NIY
; (TOP-LEVEL-FORM 14)
; FARE-UTILS:QUIT
; (TOP-LEVEL-FORM 14)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\basic-utils.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils\basic-
strings.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPARAMETER FARE-UTILS:+ALL-CHARS-BASE-FEATURE+)
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:BASE-CHAR-P
; (TOP-LEVEL-FORM 3)
; FARE-UTILS:NULL-STRING-P
; (TOP-LEVEL-FORM 3)
; FARE-UTILS:STUFF->STRING
; (TOP-LEVEL-FORM 3)
; FARE-UTILS:CONC-STRING
; (TOP-LEVEL-FORM 3)
; FARE-UTILS:STRING-ALL-BASE-CHAR-P
; (TOP-LEVEL-FORM 4)
; FARE-UTILS:STRING-BASIC-P
; (TOP-LEVEL-FORM 4)
; FARE-UTILS:SIMPLIFY-STRING
; (TOP-LEVEL-FORM 4)
; FARE-UTILS:STRCAT
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\basic-strings.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils\basic-
symbols.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FARE-UTILS:CONC-SYMBOL-IN
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:CONC-SYMBOL
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:CONC-GENSYM
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:CONC-KEYWORD
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:MAKE-PREDICATE-SYMBOL
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\basic-symbols.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils\basic-
macros.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FARE-UTILS:WITH-GENSYMS
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:EVALUATING-ONCE
; (TOP-LEVEL-FORM 3)
; FARE-UTILS:DEFINE-ABBREVS
; (TOP-LEVEL-FORM 4)
; FARE-UTILS:DEFUN-INLINE
; (TOP-LEVEL-FORM 5)
; FARE-UTILS:DEFSUBST
; FARE-UTILS:DEFINE-VALUES-MODIFY-MACRO
; FARE-UTILS:DEFINE-VALUES-POST-MODIFY-MACRO
; FARE-UTILS:DEFINE-POST-MODIFY-MACRO
; FARE-UTILS:POST-INCF
; FARE-UTILS:POST-DECF
; FARE-UTILS:MULTIPLE-VALUE-QUOTE
; FARE-UTILS:MVBIND
; FARE-UTILS:MVCALL
; FARE-UTILS:MVLIST
; FARE-UTILS:MVPROG1
; FARE-UTILS:MVSETQ
; FARE-UTILS:MVQUOTE
; FARE-UTILS::SYMBOL-MACRO-EXPANSION
; FARE-UTILS::MAC
; FARE-UTILS:TEST-ONLY
; FARE-UTILS:IF-TESTING
; FARE-UTILS:DBG-TIME
; FARE-UTILS::REPORT-TESTING-ERROR
; (SUBFUNCTION (DEFCLASS FARE-UTILS::TESTING-ERROR) (DEFINE-CONDITION
FARE-UTILS::TESTING-ERROR))
; (DEFINE-CONDITION FARE-UTILS::TESTING-ERROR)
; (DEFINE-CONDITION FARE-UTILS::TESTING-ERROR)
; FARE-UTILS::TEST-FORM-HELPER
; FARE-UTILS::DO-TEST-FORM
; FARE-UTILS:TEST-FORM
; FARE-UTILS:TEST-FORMS
; FARE-UTILS:TTEST
; FARE-UTILS:TTEST*
; FARE-UTILS::DO-DEBUG-MESSAGE
; FARE-UTILS::DEBUG-MESSAGE
; FARE-UTILS:MSG
; FARE-UTILS:DBG
; FARE-UTILS:XTIME
; FARE-UTILS:NOP
; FARE-UTILS:DISABLE-FUN
; FARE-UTILS:ENABLE-FUN
; FARE-UTILS:COPY-ARRAY-SHAPE
; FARE-UTILS:COPY-ARRAY
; FARE-UTILS:FILL-ARRAY
; FARE-UTILS:VECTOR->LIST
; FARE-UTILS:LIST->VECTOR
; FARE-UTILS::N-STREAM-HAS-CHAR-P
; FARE-UTILS::N-STREAM-EOL-P
;;;*** Warning in (SUBFUNCTION 1 FARE-UTILS:COMPOSE/2): (MULTIPLE-
VALUE-CALL FARE-UTILS::F (APPLY FARE-UTILS::G REST)) Multi form multi-
value-call is inefficient
; FARE-UTILS:COMPOSE/2
; FARE-UTILS:COMPOSE
; FARE-UTILS::I
; FARE-UTILS::K
; FARE-UTILS::S
; FARE-UTILS::C
; FARE-UTILS:AIF
; (TOP-LEVEL-FORM 49)
; FARE-UTILS::BINDABLE-SYMBOL-P
; FARE-UTILS::NORMALIZE-OPTIONAL-BINDING
; FARE-UTILS::OPTIONAL-BINDING-SYMBOL
; FARE-UTILS::FIRST-BINDING
; FARE-UTILS:IF-BIND
; FARE-UTILS::DEFXCOND
; FARE-UTILS:ACOND
; FARE-UTILS:COND2
; FARE-UTILS:ACOND2
; FARE-UTILS:MAPMACRO
; FARE-UTILS:PROPMACRO
; FARE-UTILS:PROPMACROS
; FARE-UTILS:ERROR-BEHAVIOUR
; FARE-UTILS:SINGLE-ARG-FORM-P
; FARE-UTILS::PROPER-LIST-P
; FARE-UTILS:SINGLE-ARG
; FARE-UTILS:MAKE-SINGLE-ARG-FORM
; FARE-UTILS:KWOTE
; FARE-UTILS:QUOTEP
; FARE-UTILS:COMBINATIONP
; FARE-UTILS:LITERALP
; FARE-UTILS:COPY-SYMBOL-VALUE
; FARE-UTILS:COPY-SYMBOL-FUNCTION
; FARE-UTILS:DEFCONSTANT*
; (TOP-LEVEL-FORM 70)
; FARE-UTILS:EVAL-ONCE
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21EFFE6B> on #<ASDF:CL-SOURCE-FILE "basic-macros" 21EE998B>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\basic-macros.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils\basic-
lists.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FARE-UTILS:PLIST->ALIST
; FARE-UTILS:RLIST*
; FARE-UTILS:RCONS
; FARE-UTILS:FIRSTN
; FARE-UTILS:APPEND/LIST
; FARE-UTILS:MAPPEND
; FARE-UTILS:MAPCAR2
; FARE-UTILS:INTEGERS-BELOW
; FARE-UTILS:INTEGERS-BETWEEN
; FARE-UTILS:LIST-OF-INTEGERS
; FARE-UTILS:COPY-LIST-WITHOUT-NTH
; FARE-UTILS:REMOVE-NTH
; (TOP-LEVEL-FORM 14)
; (TOP-LEVEL-FORM 15)
; FARE-UTILS:NDOLIST-WITH-REST-FUN
; FARE-UTILS:NDOLIST-WITH-REST-FUN
; (TOP-LEVEL-FORM 16)
; FARE-UTILS:DOLIST-WITH-REST-FUN
; FARE-UTILS:DOLIST-WITH-REST-FUN
; FARE-UTILS:NDOLIST-WITH-REST
; FARE-UTILS:DOLIST-WITH-REST
; FARE-UTILS:EXTREMUM
; FARE-UTILS:LENGTH=-P
; FARE-UTILS:LENGTH=N-P
; FARE-UTILS:LENGTH<-P
; FARE-UTILS:LENGTH<N-P
; FARE-UTILS:LENGTH<=-P
; FARE-UTILS:LENGTH<=N-P
; FARE-UTILS:LENGTH>-P
; FARE-UTILS:LENGTH>N-P
; FARE-UTILS:LENGTH>=-P
; FARE-UTILS:LENGTH>=N-P
; FARE-UTILS:CONS-TREE-MAP
; FARE-UTILS::MAKE-KEYS
; FARE-UTILS::DEFAULT-BEHAVIOR
; FARE-UTILS:ASSOCIATION
; (DEFINE-SETF-EXPANDER FARE-UTILS:ASSOCIATION)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\basic-lists.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils\basic-
packages.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FARE-UTILS:MAKE-DEFPACKAGE-FORM
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils\basic-
objects.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FARE-UTILS:ACCESSORS-EQUAL-P
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils
\comparators.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; FARE-UTILS::NONZEROP
; FARE-UTILS::NONZEROP
; (TOP-LEVEL-FORM 3)
; FARE-UTILS::NUMBER-COMPARATOR
; FARE-UTILS::NUMBER-COMPARATOR
; (TOP-LEVEL-FORM 4)
; FARE-UTILS::COMPARATOR<
; FARE-UTILS::COMPARATOR<
; (TOP-LEVEL-FORM 5)
; FARE-UTILS::COMPARATOR=
; FARE-UTILS::COMPARATOR=
; (TOP-LEVEL-FORM 6)
; FARE-UTILS::COMPARATOR>
; FARE-UTILS::COMPARATOR>
; (TOP-LEVEL-FORM 7)
; FARE-UTILS::CHAR-COMPARATOR
; FARE-UTILS::CHAR-COMPARATOR
; FARE-UTILS::KEYED-COMPARATOR
; FARE-UTILS::PAIR-COMPARATOR
; FARE-UTILS::VECTOR-COMPARATOR
; (TOP-LEVEL-FORM 11)
; FARE-UTILS::COMPARATOR-FROM-LESSP
; FARE-UTILS::SORTED-LIST-DIFFERENCES
; (DEFCLASS FARE-UTILS::ORDER-MIXIN)
; (METHOD SHARED-INITIALIZE :AFTER (FARE-UTILS::ORDER-MIXIN T))
; (DEFGENERIC FARE-UTILS::ORDER<)
; (DEFGENERIC FARE-UTILS::ORDER=)
; (DEFGENERIC FARE-UTILS::ORDER>)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\comparators.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils
\containers.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS FARE-UTILS:CONTAINER)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:COPY-CONTAINER)
; (TOP-LEVEL-FORM 2)
; (SUBFUNCTION (DEFCLASS FARE-UTILS:CONTAINER-EMPTY) (DEFINE-CONDITION
FARE-UTILS:CONTAINER-EMPTY))
; (DEFINE-CONDITION FARE-UTILS:CONTAINER-EMPTY)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:CONTAINER-EMPTY-P)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:EMPTY-CONTAINER!)
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:CHECK-NOT-EMPTY
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:CONTAINER-SIZE)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:CONTAINER-ADD-LIST!)
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:CONTAINER-FROM-LIST!
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:LIST-FROM-CONTAINER!)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:SET-CONTAINER-CONTENTS-FROM-LIST!)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:CONTAINER-CONTENTS)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:INSERT-ITEM!)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:MERGE-CONTAINERS!)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:FIND-LEAST-ITEM)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:LEAST-ITEM)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:POP-LEAST-ITEM!)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:POP-LAST-ITEM!)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:PUSH-LAST-ITEM!)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:DELETE-ITEM!)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:NODE-ITEM)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC (SETF FARE-UTILS:NODE-ITEM))
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:FIND-NODE)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:INSERT-NODE!)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:DELETE-NODE!)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:PRUNE-NODE!)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:FIND-ITEM)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS FARE-UTILS:HEAP)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS FARE-UTILS:SEARCH-TREE)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS FARE-UTILS:NODE-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS FARE-UTILS:NODE-MIXIN)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:MAKE-NODE)
; (TOP-LEVEL-FORM 2)
; (METHOD FARE-UTILS:NODE-ITEM (FARE-UTILS:NODE-CONTAINER-MIXIN T))
; (TOP-LEVEL-FORM 2)
; (METHOD (SETF FARE-UTILS:NODE-ITEM) (T FARE-UTILS:NODE-CONTAINER-
MIXIN T))
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:EXCHANGE-NODES)
; (TOP-LEVEL-FORM 2)
; (METHOD INITIALIZE-INSTANCE :AFTER (FARE-UTILS:NODE-CONTAINER-
MIXIN))
; (TOP-LEVEL-FORM 2)
; (DEFCLASS FARE-UTILS:SIZED-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 2)
; (METHOD FARE-UTILS:CONTAINER-EMPTY-P (FARE-UTILS:SIZED-CONTAINER-
MIXIN))
; (TOP-LEVEL-FORM 2)
; (DEFCLASS FARE-UTILS:CACHED-SIZE-MIXIN)
; (TOP-LEVEL-FORM 2)
; (METHOD FARE-UTILS:EMPTY-CONTAINER! :AFTER (FARE-UTILS:CACHED-SIZE-
MIXIN))
; (TOP-LEVEL-FORM 2)
; (DEFCLASS FARE-UTILS:VECTOR-CONTAINER-MIXIN)
; (TOP-LEVEL-FORM 2)
; (METHOD INITIALIZE-INSTANCE :AFTER (FARE-UTILS:VECTOR-CONTAINER-
MIXIN))
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:VECTOR-CONTAINER-REF
; FARE-UTILS:VECTOR-CONTAINER-REF
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (SETF FARE-UTILS:VECTOR-CONTAINER-REF)
; (SETF FARE-UTILS:VECTOR-CONTAINER-REF)
; (TOP-LEVEL-FORM 2)
; (METHOD FARE-UTILS:EMPTY-CONTAINER! :AFTER (FARE-UTILS:VECTOR-
CONTAINER-MIXIN))
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:ADJUST-SIZE)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:MAYBE-ADJUST-SIZE-DOWN)
; (TOP-LEVEL-FORM 2)
; (DEFGENERIC FARE-UTILS:MAYBE-ADJUST-SIZE-UP)
; (TOP-LEVEL-FORM 2)
; (METHOD FARE-UTILS:POP-LAST-ITEM! (FARE-UTILS:VECTOR-CONTAINER-
MIXIN))
; (TOP-LEVEL-FORM 2)
; (METHOD FARE-UTILS:PUSH-LAST-ITEM! (FARE-UTILS:VECTOR-CONTAINER-
MIXIN T))
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\containers.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils\hash-
tables.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FARE-UTILS:ALIST->HASH-TABLE
; FARE-UTILS:HASH-TABLE->ALIST
; FARE-UTILS:HASHMACRO
; FARE-UTILS:HASHMACROS
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils\binary-
heaps.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS FARE-UTILS:BINARY-HEAP)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; FARE-UTILS::BH-INDEX-LEFT
; FARE-UTILS::BH-INDEX-LEFT
; (TOP-LEVEL-FORM 4)
; FARE-UTILS::BH-INDEX-RIGHT
; FARE-UTILS::BH-INDEX-RIGHT
; (TOP-LEVEL-FORM 5)
; FARE-UTILS::BH-INDEX-PARENT
; FARE-UTILS::BH-INDEX-PARENT
; (TOP-LEVEL-FORM 6)
; FARE-UTILS::BHREF
; FARE-UTILS::BHREF
; (TOP-LEVEL-FORM 7)
; (SETF FARE-UTILS::BHREF)
; (SETF FARE-UTILS::BHREF)
; (METHOD FARE-UTILS:NODE-ITEM (FARE-UTILS:BINARY-HEAP T))
; (TOP-LEVEL-FORM 9)
; FARE-UTILS::BINARY-HEAP-EXCHANGE-NODES
; FARE-UTILS::BINARY-HEAP-EXCHANGE-NODES
; (METHOD FARE-UTILS:EXCHANGE-NODES (FARE-UTILS:BINARY-HEAP T T))
; (METHOD FARE-UTILS:COPY-CONTAINER (FARE-UTILS:BINARY-HEAP))
; FARE-UTILS::BINARY-HEAP-SIFT-DOWN
; FARE-UTILS::BINARY-HEAP-ENFORCE-INVARIANT
; (METHOD INITIALIZE-INSTANCE :AFTER (FARE-UTILS:BINARY-HEAP))
; FARE-UTILS::BINARY-HEAP-SIFT-UP
; (METHOD FARE-UTILS:LEAST-ITEM (FARE-UTILS:BINARY-HEAP))
; (METHOD FARE-UTILS:POP-LEAST-ITEM! (FARE-UTILS:BINARY-HEAP))
; (METHOD FARE-UTILS:DELETE-NODE! (FARE-UTILS:BINARY-HEAP T))
; (METHOD (SETF FARE-UTILS:NODE-ITEM) (T FARE-UTILS:BINARY-HEAP T))
; (METHOD FARE-UTILS:INSERT-ITEM! (FARE-UTILS:BINARY-HEAP T))
; (METHOD PRINT-OBJECT (FARE-UTILS:BINARY-HEAP T))
; (METHOD FARE-UTILS:CONTAINER-CONTENTS (FARE-UTILS:BINARY-HEAP))
; (METHOD FARE-UTILS:EMPTY-CONTAINER! (FARE-UTILS:BINARY-HEAP))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils
\binomial-heaps.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS FARE-UTILS::BINOMIAL-TREE)
; (DEFCLASS FARE-UTILS:BINOMIAL-HEAP)
; (TOP-LEVEL-FORM 3)
; (DEFGENERIC FARE-UTILS::TREE-CONTENT)
; (METHOD FARE-UTILS::TREE-CONTENT (FARE-UTILS::BINOMIAL-TREE))
; (METHOD PRINT-OBJECT (FARE-UTILS::BINOMIAL-TREE T))
; (METHOD PRINT-OBJECT (FARE-UTILS:BINOMIAL-HEAP T))
; (METHOD FARE-UTILS:EMPTY-CONTAINER! (FARE-UTILS:BINOMIAL-HEAP))
; FARE-UTILS::SINGLETON-BINOMIAL-HEAP
; (METHOD FARE-UTILS:MERGE-CONTAINERS! (FARE-UTILS:BINOMIAL-HEAP FARE-
UTILS:BINOMIAL-HEAP))
; (DEFGENERIC FARE-UTILS::MERGE-BINOMIAL-TREES!)
; (METHOD FARE-UTILS::MERGE-BINOMIAL-TREES! (FARE-UTILS:BINOMIAL-HEAP
FARE-UTILS::BINOMIAL-TREE FARE-UTILS::BINOMIAL-TREE))
; (METHOD FARE-UTILS:INSERT-ITEM! (FARE-UTILS:BINOMIAL-HEAP T))
; (METHOD FARE-UTILS:FIND-LEAST-ITEM (FARE-UTILS:BINOMIAL-HEAP))
; (METHOD FARE-UTILS:LEAST-ITEM (FARE-UTILS:BINOMIAL-HEAP))
; (METHOD FARE-UTILS:POP-LEAST-ITEM! (FARE-UTILS:BINOMIAL-HEAP))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils\avl-
trees.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils
\fifo.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (SUBFUNCTION (DEFSETF FARE-UTILS:FIFO-TAIL) (DEFSTRUCT FARE-
UTILS:FIFO))
; (SUBFUNCTION (DEFSETF FARE-UTILS:FIFO-HEAD) (DEFSTRUCT FARE-
UTILS:FIFO))
; (SUBFUNCTION FARE-UTILS:MAKE-FIFO (DEFSTRUCT FARE-UTILS:FIFO))
; (SUBFUNCTION FARE-UTILS:MAKE-FIFO (DEFSTRUCT FARE-UTILS:FIFO))
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:FIFO-EMPTY-P
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:FIFO-ENQUEUE
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:FIFO-DEQUEUE
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:FIFO-NCONC2
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:FIFO-DEQUEUE-OBJECT
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:FIFO-EMPTY!
; (TOP-LEVEL-FORM 2)
; (METHOD PRINT-OBJECT (FARE-UTILS:FIFO T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils
\dllist.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS FARE-UTILS::DOUBLY-LINKED-MIXIN)
; (METHOD FARE-UTILS:CONTAINER-EMPTY-P (FARE-UTILS::DOUBLY-LINKED-
MIXIN))
; (METHOD FARE-UTILS::ISOLATE-NODE! (FARE-UTILS::DOUBLY-LINKED-MIXIN))
; (METHOD FARE-UTILS:EMPTY-CONTAINER! (FARE-UTILS::DOUBLY-LINKED-
MIXIN))
; (METHOD FARE-UTILS::UNLINK-NODE! (FARE-UTILS::DOUBLY-LINKED-MIXIN))
; FARE-UTILS::JOIN-DL-CHAINS
; (DEFCLASS FARE-UTILS::DOUBLY-LINKED-LIST)
; (DEFCLASS FARE-UTILS::DOUBLY-LINKED-LIST-NODE)
; (METHOD FARE-UTILS:EMPTY-CONTAINER! (FARE-UTILS::DOUBLY-LINKED-
LIST))
;;;*** Warning in (METHOD FARE-UTILS:INSERT-ITEM! (FARE-UTILS::DOUBLY-
LINKED-LIST T)): symbol-macro NEXT is bound but not referenced
; (METHOD FARE-UTILS:INSERT-ITEM! (FARE-UTILS::DOUBLY-LINKED-LIST T))
; (METHOD FARE-UTILS::POP-ITEM! (FARE-UTILS::DOUBLY-LINKED-LIST))
; (METHOD FARE-UTILS:DELETE-NODE! (FARE-UTILS::DOUBLY-LINKED-LIST T))
; (METHOD FARE-UTILS:CONTAINER-CONTENTS (FARE-UTILS::DOUBLY-LINKED-
LIST))
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21EFFE6B> on #<ASDF:CL-SOURCE-FILE "dllist" 21EBEBEF>.
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils
\pathnames.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FARE-UTILS:ABSOLUTE-PATHNAME-P
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils
\streams.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFGENERIC FARE-UTILS:CALL-WITH-OUTPUT)
; (TOP-LEVEL-FORM 2)
; FARE-UTILS:WITH-OUTPUT
; (TOP-LEVEL-FORM 3)
; (DEFPARAMETER FARE-UTILS:*STANDARD-READTABLE*)
; (TOP-LEVEL-FORM 4)
; (DEFPARAMETER FARE-UTILS:*SAFE-PACKAGE*)
; (TOP-LEVEL-FORM 5)
; FARE-UTILS:SAFE-READ
; (TOP-LEVEL-FORM 6)
; FARE-UTILS:SAFE-WRITE
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\streams.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils
\strings.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FARE-UTILS:JOIN-STRINGS
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils
\files.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FARE-UTILS:CLOBBER-FILE-WITH-VECTOR
; (DEFPARAMETER FARE-UTILS:$BUFFER-SIZE)
; FARE-UTILS:WITH-BUFFERED-FILE-CONTENTS
; FARE-UTILS:GET-FILE-CONTENTS
; FARE-UTILS:EQUAL-ARRAY
; FARE-UTILS:FILE-CONTENTS-EQUAL-VECTOR-P
; FARE-UTILS:CLOBBER-FILE-IF-DIFFERENT
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\binary-heaps.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\binomial-heaps.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils
\sorting.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FARE-UTILS::STABLE-BUCKET-SORT/ORDINALS
; FARE-UTILS::ADJACENCY-TABLE/ORDINALS
; FARE-UTILS::TRANSPOSE-CONS
; FARE-UTILS::REVERSE-ADJACENCY-TABLE/ORDINALS
; FARE-UTILS::STABLE-STRONGLY-CONNECTED-COMPONENTS/ORDINALS
; FARE-UTILS::STABLE-TOPOLOGICAL-SORT/ORDINALS
; FARE-UTILS::MAP-GRAPH-TO-ORDINALS
; FARE-UTILS::STABLE-TOPOLOGICAL-SORT
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils
\atomic.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FARE-UTILS::WITH-ATOMIC-FILE-CREATION
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\hash-tables.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-utils
\msv.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; FARE-UTILS::MAKE-MSV-CACHE
; (DEFVAR FARE-UTILS::*MSV-CACHE*)
; (SUBFUNCTION (DEFSETF FARE-UTILS::MSV-WRITE-CACHE) (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CELL))
; (SUBFUNCTION (DEFSETF FARE-UTILS::MSV-READ-CACHE) (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CELL))
; (SUBFUNCTION (DEFSETF FARE-UTILS::MSV-SETTER) (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CELL))
; (SUBFUNCTION (DEFSETF FARE-UTILS::MSV-GETTER) (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CELL))
; (SUBFUNCTION (DEFSETF FARE-UTILS::MSV-WRITE) (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CELL))
; (SUBFUNCTION (DEFSETF FARE-UTILS::MSV-READ) (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CELL))
; (SUBFUNCTION (DEFSETF FARE-UTILS::MSV-INITFORM) (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CELL))
; (SUBFUNCTION (DEFSETF FARE-UTILS::MSV-PLACE) (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CELL))
; (SUBFUNCTION (DEFSETF FARE-UTILS::MSV-NAME) (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CELL))
; (SUBFUNCTION FARE-UTILS::MAKE-MSV (DEFSTRUCT FARE-UTILS::MAGIC-
SPECIAL-VARIABLE-CELL))
; (SUBFUNCTION FARE-UTILS::MAKE-MSV (DEFSTRUCT FARE-UTILS::MAGIC-
SPECIAL-VARIABLE-CELL))
; (SUBFUNCTION FARE-UTILS::MSVC-WRITTENP (DEFSTRUCT FARE-UTILS::MAGIC-
SPECIAL-VARIABLE-CACHE))
; (SUBFUNCTION FARE-UTILS::MSVC-WRITTENP (DEFSTRUCT FARE-UTILS::MAGIC-
SPECIAL-VARIABLE-CACHE))
; (SUBFUNCTION FARE-UTILS::MSVC-VALUE (DEFSTRUCT FARE-UTILS::MAGIC-
SPECIAL-VARIABLE-CACHE))
; (SUBFUNCTION FARE-UTILS::MSVC-VALUE (DEFSTRUCT FARE-UTILS::MAGIC-
SPECIAL-VARIABLE-CACHE))
; (SUBFUNCTION FARE-UTILS::|set MSVC-WRITTENP| (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CACHE))
; (SUBFUNCTION FARE-UTILS::|set MSVC-WRITTENP| (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CACHE))
; (SUBFUNCTION (DEFSETF FARE-UTILS::MSVC-WRITTENP) (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CACHE))
; (SUBFUNCTION FARE-UTILS::|set MSVC-VALUE| (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CACHE))
; (SUBFUNCTION FARE-UTILS::|set MSVC-VALUE| (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CACHE))
; (SUBFUNCTION (DEFSETF FARE-UTILS::MSVC-VALUE) (DEFSTRUCT FARE-
UTILS::MAGIC-SPECIAL-VARIABLE-CACHE))
; (SUBFUNCTION FARE-UTILS::COPY-MAGIC-SPECIAL-VARIABLE-CACHE
(DEFSTRUCT FARE-UTILS::MAGIC-SPECIAL-VARIABLE-CACHE))
; (SUBFUNCTION FARE-UTILS::MAKE-MSVC (DEFSTRUCT FARE-UTILS::MAGIC-
SPECIAL-VARIABLE-CACHE))
; (SUBFUNCTION FARE-UTILS::MAKE-MSVC (DEFSTRUCT FARE-UTILS::MAGIC-
SPECIAL-VARIABLE-CACHE))
; FARE-UTILS::DO-WRITE-MSV
; FARE-UTILS::DO-READ-MSV
; FARE-UTILS::MSV-CACHE
; FARE-UTILS::DO-MAKE-MSV-CACHE
; FARE-UTILS::ENSURE-MSV-CACHE
; FARE-UTILS::DO-FLUSH-MSV-WRITE-CACHE
; FARE-UTILS::DO-INVALIDATE-MSV-CACHE
; FARE-UTILS::DO-FLUSH-AND-INVALIDATE-MSV-CACHE
; FARE-UTILS::DO-FILL-MSV-READ-CACHE
; FARE-UTILS::MSV-GET
; FARE-UTILS::MSV-SET
; (SETF FARE-UTILS::MSV-GET)
; FARE-UTILS::MAGIC-SPECIAL-VARIABLE
; FARE-UTILS::FLUSH-ALL-MSV
; FARE-UTILS::FLUSH-AND-INVALIDATE-ALL-MSV
; FARE-UTILS::REGISTER-MSV
; FARE-UTILS::REGISTER-MAGIC-SPECIAL-VARIABLE
; FARE-UTILS:DEFINE-MAGIC-SPECIAL-VARIABLE
; FARE-UTILS:WITH-MAGIC-SPECIAL-VARIABLES
; FARE-UTILS:WITH-MAGIC-SPECIAL-VARIABLES-SAFELY
; (METHOD MAKE-LOAD-FORM (FARE-UTILS::MAGIC-SPECIAL-VARIABLE-CELL))
; FARE-UTILS:DEFMSV
; FARE-UTILS:WITH-MSV
; FARE-UTILS:WITH-MSV*
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\basic-packages.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\basic-objects.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\avl-trees.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\fifo.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\dllist.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\pathnames.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\strings.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\files.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\sorting.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\atomic.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-utils\msv.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-matcher
\packages.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "FARE-MATCHER")
; (DEFPACKAGE "FARE-QUASIQUOTE")
; (DEFPACKAGE "FARE-CLOS-MATCH")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-matcher\packages.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-matcher
\matcher.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFVAR FARE-MATCHER::*REGS*)
; FARE-MATCHER::MAKE-REG
; FARE-MATCHER::MAKE-REGS
; FARE-MATCHER::NREGS
; (DEFVAR FARE-MATCHER::*FORM)
; (DEFVAR FARE-MATCHER::*FAILURE-CONTINUATION)
; (DEFVAR FARE-MATCHER::*M%POINT)
; FARE-MATCHER::SYMBOL-MATCHER
; FARE-MATCHER::FUNCTION-MATCHER
; FARE-MATCHER::MAKE-MACRO
; FARE-MATCHER::MACROP
; FARE-MATCHER::COUNT-VALUES
; FARE-MATCHER::CONSTRUCT-VALUES-CLOSURE
; FARE-MATCHER::CONSTRUCT-VALUES-CLOSURE-NARY
; FARE-MATCHER:MATCH
; FARE-MATCHER:IFMATCH
; FARE-MATCHER:IFM
; FARE-MATCHER:EMATCH
; FARE-MATCHER:LETM
; FARE-MATCHER::EQL-MATCHER
; FARE-MATCHER:PATTERN-MATCHER
; FARE-MATCHER::COMBINATION-MATCHER
; FARE-MATCHER::FUNCTION-TO-MACRO-MATCHER
; FARE-MATCHER:MERGE-MATCHER-VARIABLES
; FARE-MATCHER::MERGE-VARIABLES/2
; FARE-MATCHER::ADD-VARIABLE
; FARE-MATCHER:DEFINE-SYMBOL-MATCHER
; FARE-MATCHER:DEFINE-MACRO-MATCHER
; FARE-MATCHER:DEFINE-FUNCTION-MATCHER
; FARE-MATCHER:COPY-SYMBOL-MATCHER
; FARE-MATCHER:COPY-SYMBOL-AND-MATCHER
; FARE-MATCHER:COPY-FUNCTION-MATCHER
; FARE-MATCHER:COPY-FUNCTION-AND-MATCHER
; FARE-MATCHER::CONSTRUCTOR-MATCHER-TO-FUNCTION-MATCHER
; FARE-MATCHER:DEFINE-CONSTRUCTOR-MATCHER
; FARE-MATCHER:DEFINE-VARARY-CONSTRUCTOR-MATCHER
; FARE-MATCHER::M%SUCCESS
; FARE-MATCHER:M%FAIL
; FARE-MATCHER:M%VALUES
; FARE-MATCHER::M%SUCCEED
; FARE-MATCHER:M%AND
; FARE-MATCHER:M%WHEN
; FARE-MATCHER::M%OR
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; FARE-MATCHER::MANY-FORM-MATCHER
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-matcher\matcher.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-matcher
\quasiquote.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; FARE-QUASIQUOTE::KWOTE
; FARE-QUASIQUOTE::QUOTEP
; FARE-QUASIQUOTE::MAKE-QUASIQUOTE
; FARE-QUASIQUOTE::QUASIQUOTEP
; FARE-QUASIQUOTE::MAKE-UNQUOTE
; FARE-QUASIQUOTE::UNQUOTEP
; FARE-QUASIQUOTE::MAKE-UNQUOTE-SPLICING
; FARE-QUASIQUOTE::UNQUOTE-SPLICING-P
; FARE-QUASIQUOTE::QUOTE
; FARE-QUASIQUOTE:QUASIQUOTE
; FARE-QUASIQUOTE:UNQUOTE
; FARE-QUASIQUOTE:UNQUOTE-SPLICING
; (TOP-LEVEL-FORM 3)
; (DEFPARAMETER FARE-QUASIQUOTE::KNIL)
; (DEFPARAMETER FARE-QUASIQUOTE::*QUASIQUOTE-LEVEL*)
; FARE-QUASIQUOTE:QUASIQUOTE-EXPAND
; FARE-QUASIQUOTE::EXPAND
; FARE-QUASIQUOTE::EXPAND-LIST
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324
#:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R2199326
#:R3199327) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FUNCALL (FUNCTION
(LAMBDA (FARE-MATCHER::FORM FARE-MATCHER::N) (FARE-MATCHER:M%WHEN (AND
(LISTP FARE-MATCHER::FORM) (FARE-UTILS:LENGTH=N-P FARE-MATCHER::FORM
FARE-MATCHER::N)) (APPLY (FUNCTION VALUES) FARE-MATCHER::FORM))))
#:FORM 2))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324
#:R2199326) (FUNCALL #:R1199325 #:R3199327))))))) (FUNCTION (LAMBDA
(#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-
QUASIQUOTE::APPEND))))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-
QUASIQUOTE::L #:FORM)))) (FUNCALL #:FORM)) Multi form multi-value-call
is inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324 #:R1199325
#:R2199326) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R3199327
#:R4199621 #:R5199622) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FUNCALL
(FUNCTION (LAMBDA (FARE-MATCHER::FORM FARE-MATCHER::N) (FARE-MATCHER:M
%WHEN (AND (LISTP FARE-MATCHER::FORM) (FARE-UTILS:LENGTH>=N-P FARE-
MATCHER::FORM (1- FARE-MATCHER::N))) (APPLY (FUNCTION VALUES) (FARE-
UTILS:RCONS (FARE-UTILS:FIRSTN (1- FARE-MATCHER::N) FARE-
MATCHER::FORM) (NTHCDR (1- FARE-MATCHER::N) FARE-MATCHER::FORM))))))
#:FORM 3))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324
#:R3199327) (FUNCALL #:R1199325 #:R4199621) (FUNCALL #:R2199326
#:R5199622))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL
#:FORM (QUOTE FARE-QUASIQUOTE::APPEND))))) (FUNCALL (FUNCTION (LAMBDA
(#:R0199324 #:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND
(#:R2199326 #:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-
MATCHER::FORM) (FARE-MATCHER:M%WHEN (CONSP FARE-MATCHER::FORM) (FARE-
MATCHER:M%VALUES (CAR FARE-MATCHER::FORM) (CDR FARE-MATCHER::FORM)))))
#:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL
#:R1199325 #:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-
MATCHER::M%OR (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN
(EQL #:FORM (QUOTE FARE-QUASIQUOTE::CONS))))) #:FORM) (FUNCALL
(FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE
FARE-QUASIQUOTE::LIST*))))) #:FORM)))) (FUNCALL (FUNCTION (LAMBDA
(#:R0199324 #:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND
(#:R2199326 #:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-
MATCHER::FORM) (FARE-MATCHER:M%WHEN (AND (CONSP FARE-MATCHER::FORM)
(LISTP FARE-MATCHER::FORM)) (FARE-MATCHER:M%VALUES (BUTLAST FARE-
MATCHER::FORM) (CAR (LAST FARE-MATCHER::FORM)))))) #:FORM) (FARE-
MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325
#:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-QUASIQUOTE::L1
#:FORM))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-QUASIQUOTE::L2
#:FORM))))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-QUASIQUOTE::L3
#:FORM)))) (FUNCALL #:FORM)) Multi form multi-value-call is
inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324 #:R1199325
#:R2199326) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R3199327
#:R4199621 #:R5199622) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FUNCALL
(FUNCTION (LAMBDA (FARE-MATCHER::FORM FARE-MATCHER::N) (FARE-MATCHER:M
%WHEN (AND (LISTP FARE-MATCHER::FORM) (FARE-UTILS:LENGTH>=N-P FARE-
MATCHER::FORM (1- FARE-MATCHER::N))) (APPLY (FUNCTION VALUES) (FARE-
UTILS:RCONS (FARE-UTILS:FIRSTN (1- FARE-MATCHER::N) FARE-
MATCHER::FORM) (NTHCDR (1- FARE-MATCHER::N) FARE-MATCHER::FORM))))))
#:FORM 3))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324
#:R3199327) (FUNCALL #:R1199325 #:R4199621) (FUNCALL #:R2199326
#:R5199622))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL
#:FORM (QUOTE FARE-QUASIQUOTE::APPEND))))) (FUNCALL (FUNCTION (LAMBDA
(#:R0199324 #:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND
(#:R2199326 #:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-
MATCHER::FORM) (FARE-MATCHER:M%WHEN (CONSP FARE-MATCHER::FORM) (FARE-
MATCHER:M%VALUES (CAR FARE-MATCHER::FORM) (CDR FARE-MATCHER::FORM)))))
#:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL
#:R1199325 #:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M
%WHEN (EQL #:FORM (QUOTE FARE-QUASIQUOTE::LIST))))) (FUNCTION (LAMBDA
(#:FORM) (SETF FARE-QUASIQUOTE::L1 #:FORM)))) (FUNCTION (LAMBDA
(#:FORM) (SETF FARE-QUASIQUOTE::L2 #:FORM)))) (FUNCALL #:FORM)) Multi
form multi-value-call is inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324 #:R1199325
#:R2199326) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R3199327
#:R4199621 #:R5199622) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FUNCALL
(FUNCTION (LAMBDA (FARE-MATCHER::FORM FARE-MATCHER::N) (FARE-MATCHER:M
%WHEN (AND (LISTP FARE-MATCHER::FORM) (FARE-UTILS:LENGTH>=N-P FARE-
MATCHER::FORM (1- FARE-MATCHER::N))) (APPLY (FUNCTION VALUES) (FARE-
UTILS:RCONS (FARE-UTILS:FIRSTN (1- FARE-MATCHER::N) FARE-
MATCHER::FORM) (NTHCDR (1- FARE-MATCHER::N) FARE-MATCHER::FORM))))))
#:FORM 3))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324
#:R3199327) (FUNCALL #:R1199325 #:R4199621) (FUNCALL #:R2199326
#:R5199622))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL
#:FORM (QUOTE FARE-QUASIQUOTE::APPEND))))) (FUNCALL (FUNCTION (LAMBDA
(#:R0199324 #:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND
(#:R2199326 #:R3199327) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FUNCALL
(FUNCTION (LAMBDA (FARE-MATCHER::FORM FARE-MATCHER::N) (FARE-MATCHER:M
%WHEN (AND (LISTP FARE-MATCHER::FORM) (FARE-UTILS:LENGTH=N-P FARE-
MATCHER::FORM FARE-MATCHER::N)) (APPLY (FUNCTION VALUES) FARE-
MATCHER::FORM)))) #:FORM 2))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL
#:R0199324 #:R2199326) (FUNCALL #:R1199325 #:R3199327))))))) (FUNCTION
(LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-
QUASIQUOTE::QUOTE))))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-
QUASIQUOTE::KL #:FORM)))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-
QUASIQUOTE::LL #:FORM)))) (FUNCALL #:FORM)) Multi form multi-value-
call is inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324
#:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R2199326
#:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-MATCHER::FORM) (FARE-
MATCHER:M%WHEN (CONSP FARE-MATCHER::FORM) (FARE-MATCHER:M%VALUES (CAR
FARE-MATCHER::FORM) (CDR FARE-MATCHER::FORM))))) #:FORM) (FARE-
MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325
#:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL
#:FORM (QUOTE FARE-QUASIQUOTE::APPEND))))) (FUNCALL (FUNCTION (LAMBDA
(#:R0199324 #:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND
(#:R2199326 #:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-
MATCHER::FORM) (FARE-MATCHER:M%WHEN (CONSP FARE-MATCHER::FORM) (FARE-
MATCHER:M%VALUES (CAR FARE-MATCHER::FORM) (CDR FARE-MATCHER::FORM)))))
#:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL
#:R1199325 #:R3199327))))))) (FUNCALL (FUNCTION (LAMBDA (#:R0199324
#:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R2199326
#:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-MATCHER::FORM) (FARE-
MATCHER:M%WHEN (CONSP FARE-MATCHER::FORM) (FARE-MATCHER:M%VALUES (CAR
FARE-MATCHER::FORM) (CDR FARE-MATCHER::FORM))))) #:FORM) (FARE-
MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325
#:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL
#:FORM (QUOTE FARE-QUASIQUOTE::APPEND))))) (FUNCTION (LAMBDA (#:FORM)
(SETF FARE-QUASIQUOTE::L1 #:FORM)))) (FUNCTION (LAMBDA (#:FORM) (SETF
FARE-QUASIQUOTE::L2 #:FORM))))) (FUNCALL #:FORM)) Multi form multi-
value-call is inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324
#:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R2199326
#:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-MATCHER::FORM) (FARE-
MATCHER:M%WHEN (CONSP FARE-MATCHER::FORM) (FARE-MATCHER:M%VALUES (CAR
FARE-MATCHER::FORM) (CDR FARE-MATCHER::FORM))))) #:FORM) (FARE-
MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325
#:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL
#:FORM (QUOTE FARE-QUASIQUOTE::APPEND))))) (FUNCALL (FUNCTION (LAMBDA
(#:R0199324 #:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND
(#:R2199326 #:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-
MATCHER::FORM) (FARE-MATCHER:M%WHEN (AND (CONSP FARE-MATCHER::FORM)
(LISTP FARE-MATCHER::FORM)) (FARE-MATCHER:M%VALUES (BUTLAST FARE-
MATCHER::FORM) (CAR (LAST FARE-MATCHER::FORM)))))) #:FORM) (FARE-
MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325
#:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-QUASIQUOTE::L1
#:FORM))) (FUNCALL (FUNCTION (LAMBDA (#:R0199324 #:R1199325) (FUNCTION
(LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R2199326 #:R3199327) (FUNCALL
(FUNCTION (LAMBDA (FARE-MATCHER::FORM) (FARE-MATCHER:M%WHEN (CONSP
FARE-MATCHER::FORM) (FARE-MATCHER:M%VALUES (CAR FARE-MATCHER::FORM)
(CDR FARE-MATCHER::FORM))))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL
#:R0199324 #:R2199326) (FUNCALL #:R1199325 #:R3199327))))))) (FUNCTION
(LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-
QUASIQUOTE::APPEND))))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-
QUASIQUOTE::L2 #:FORM)))))) (FUNCALL #:FORM)) Multi form multi-value-
call is inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324
#:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R2199326
#:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-MATCHER::FORM) (FARE-
MATCHER:M%WHEN (CONSP FARE-MATCHER::FORM) (FARE-MATCHER:M%VALUES (CAR
FARE-MATCHER::FORM) (CDR FARE-MATCHER::FORM))))) #:FORM) (FARE-
MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325
#:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL
#:FORM (QUOTE FARE-QUASIQUOTE::APPEND))))) (FUNCALL (FUNCTION (LAMBDA
(#:R0199324 #:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND
(#:R2199326 #:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-
MATCHER::FORM) (FARE-MATCHER:M%WHEN (AND (CONSP FARE-MATCHER::FORM)
(LISTP FARE-MATCHER::FORM)) (FARE-MATCHER:M%VALUES (BUTLAST FARE-
MATCHER::FORM) (CAR (LAST FARE-MATCHER::FORM)))))) #:FORM) (FARE-
MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325
#:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-QUASIQUOTE::L
#:FORM))) (FUNCTION (LAMBDA (FARE-QUASIQUOTE::FORM) (OR (NULL FARE-
QUASIQUOTE::FORM) (AND (FARE-QUASIQUOTE::QUOTEP FARE-QUASIQUOTE::FORM)
(NULL (FARE-UTILS:SINGLE-ARG FARE-QUASIQUOTE::FORM))) (FARE-MATCHER:M
%FAIL)))))) (FUNCALL #:FORM)) Multi form multi-value-call is
inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324 #:R1199325
#:R2199326) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R3199327
#:R4199621 #:R5199622) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FUNCALL
(FUNCTION (LAMBDA (FARE-MATCHER::FORM FARE-MATCHER::N) (FARE-MATCHER:M
%WHEN (AND (LISTP FARE-MATCHER::FORM) (FARE-UTILS:LENGTH>=N-P FARE-
MATCHER::FORM (1- FARE-MATCHER::N))) (APPLY (FUNCTION VALUES) (FARE-
UTILS:RCONS (FARE-UTILS:FIRSTN (1- FARE-MATCHER::N) FARE-
MATCHER::FORM) (NTHCDR (1- FARE-MATCHER::N) FARE-MATCHER::FORM))))))
#:FORM 3))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324
#:R3199327) (FUNCALL #:R1199325 #:R4199621) (FUNCALL #:R2199326
#:R5199622))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL
#:FORM (QUOTE FARE-QUASIQUOTE::APPEND))))) (FUNCTION (LAMBDA (FARE-
QUASIQUOTE::FORM) (OR (NULL FARE-QUASIQUOTE::FORM) (AND (FARE-
QUASIQUOTE::QUOTEP FARE-QUASIQUOTE::FORM) (NULL (FARE-UTILS:SINGLE-ARG
FARE-QUASIQUOTE::FORM))) (FARE-MATCHER:M%FAIL)))) (FUNCTION (LAMBDA
(#:FORM) (SETF FARE-QUASIQUOTE::L #:FORM)))) (FUNCALL #:FORM)) Multi
form multi-value-call is inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324) (FUNCTION
(LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R1199325) (FUNCALL (FUNCTION
(LAMBDA (#:FORM) (FUNCALL (FUNCTION (LAMBDA (FARE-MATCHER::FORM FARE-
MATCHER::N) (FARE-MATCHER:M%WHEN (AND (LISTP FARE-MATCHER::FORM) (FARE-
UTILS:LENGTH=N-P FARE-MATCHER::FORM FARE-MATCHER::N)) (APPLY (FUNCTION
VALUES) FARE-MATCHER::FORM)))) #:FORM 1))) #:FORM) (FARE-MATCHER:M%AND
(FUNCALL #:R0199324 #:R1199325))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-
MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-QUASIQUOTE::APPEND))))))
(FUNCALL #:FORM)) Multi form multi-value-call is inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324
#:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R2199326
#:R3199327) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FUNCALL (FUNCTION
(LAMBDA (FARE-MATCHER::FORM FARE-MATCHER::N) (FARE-MATCHER:M%WHEN (AND
(LISTP FARE-MATCHER::FORM) (FARE-UTILS:LENGTH=N-P FARE-MATCHER::FORM
FARE-MATCHER::N)) (APPLY (FUNCTION VALUES) FARE-MATCHER::FORM))))
#:FORM 2))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324
#:R2199326) (FUNCALL #:R1199325 #:R3199327))))))) (FUNCTION (LAMBDA
(#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-QUASIQUOTE::MAKE-
VECTOR))))) (FUNCALL (FUNCTION (LAMBDA (#:R0199324 #:R1199325)
(FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R2199326 #:R3199327)
(FUNCALL (FUNCTION (LAMBDA (FARE-MATCHER::FORM) (FARE-MATCHER:M%WHEN
(CONSP FARE-MATCHER::FORM) (FARE-MATCHER:M%VALUES (CAR FARE-
MATCHER::FORM) (CDR FARE-MATCHER::FORM))))) #:FORM) (FARE-MATCHER:M
%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325
#:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL
#:FORM (QUOTE FARE-QUASIQUOTE::LIST))))) (FUNCTION (LAMBDA (#:FORM)
(SETF FARE-QUASIQUOTE::L #:FORM))))) (FUNCALL #:FORM)) Multi form
multi-value-call is inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324 #:R1199325
#:R2199326) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R3199327
#:R4199621 #:R5199622) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FUNCALL
(FUNCTION (LAMBDA (FARE-MATCHER::FORM FARE-MATCHER::N) (FARE-MATCHER:M
%WHEN (AND (LISTP FARE-MATCHER::FORM) (FARE-UTILS:LENGTH=N-P FARE-
MATCHER::FORM FARE-MATCHER::N)) (APPLY (FUNCTION VALUES) FARE-
MATCHER::FORM)))) #:FORM 3))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL
#:R0199324 #:R3199327) (FUNCALL #:R1199325 #:R4199621) (FUNCALL
#:R2199326 #:R5199622))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M
%WHEN (EQL #:FORM (QUOTE FARE-QUASIQUOTE::N-VECTOR))))) (FUNCTION
(LAMBDA (FARE-QUASIQUOTE::FORM) (OR (NULL FARE-QUASIQUOTE::FORM) (AND
(FARE-QUASIQUOTE::QUOTEP FARE-QUASIQUOTE::FORM) (NULL (FARE-
UTILS:SINGLE-ARG FARE-QUASIQUOTE::FORM))) (FARE-MATCHER:M%FAIL))))
(FUNCTION (LAMBDA (#:FORM) (SETF FARE-QUASIQUOTE::L #:FORM))))
(FUNCALL #:FORM)) Multi form multi-value-call is inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324 #:R1199325
#:R2199326) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R3199327
#:R4199621 #:R5199622) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FUNCALL
(FUNCTION (LAMBDA (FARE-MATCHER::FORM FARE-MATCHER::N) (FARE-MATCHER:M
%WHEN (AND (LISTP FARE-MATCHER::FORM) (FARE-UTILS:LENGTH=N-P FARE-
MATCHER::FORM FARE-MATCHER::N)) (APPLY (FUNCTION VALUES) FARE-
MATCHER::FORM)))) #:FORM 3))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL
#:R0199324 #:R3199327) (FUNCALL #:R1199325 #:R4199621) (FUNCALL
#:R2199326 #:R5199622))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M
%WHEN (EQL #:FORM (QUOTE FARE-QUASIQUOTE::LIST*))))) (FUNCTION (LAMBDA
(#:FORM) (SETF FARE-QUASIQUOTE::Y #:FORM))) (FUNCTION (LAMBDA (#:FORM)
(SETF FARE-QUASIQUOTE::Z #:FORM)))) (FUNCALL #:FORM)) Multi form multi-
value-call is inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324
#:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R2199326
#:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-MATCHER::FORM) (FARE-
MATCHER:M%WHEN (CONSP FARE-MATCHER::FORM) (FARE-MATCHER:M%VALUES (CAR
FARE-MATCHER::FORM) (CDR FARE-MATCHER::FORM))))) #:FORM) (FARE-
MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325
#:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER::M%OR
(FUNCALL (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM
(QUOTE FARE-QUASIQUOTE::CONS))))) #:FORM) (FUNCALL (FUNCTION (LAMBDA
(#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-
QUASIQUOTE::LIST*))))) #:FORM)))) (FUNCALL (FUNCTION (LAMBDA
(#:R0199324 #:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND
(#:R2199326 #:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-
MATCHER::FORM) (FARE-MATCHER:M%WHEN (AND (CONSP FARE-MATCHER::FORM)
(LISTP FARE-MATCHER::FORM)) (FARE-MATCHER:M%VALUES (BUTLAST FARE-
MATCHER::FORM) (CAR (LAST FARE-MATCHER::FORM)))))) #:FORM) (FARE-
MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325
#:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-QUASIQUOTE::L1
#:FORM))) (FUNCALL (FUNCTION (LAMBDA (#:R0199324 #:R1199325) (FUNCTION
(LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R2199326 #:R3199327) (FUNCALL
(FUNCTION (LAMBDA (FARE-MATCHER::FORM) (FARE-MATCHER:M%WHEN (CONSP
FARE-MATCHER::FORM) (FARE-MATCHER:M%VALUES (CAR FARE-MATCHER::FORM)
(CDR FARE-MATCHER::FORM))))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL
#:R0199324 #:R2199326) (FUNCALL #:R1199325 #:R3199327))))))) (FUNCTION
(LAMBDA (#:FORM) (FARE-MATCHER:M%AND (FUNCALL (FUNCTION (LAMBDA
(#:FORM) (SETF FARE-QUASIQUOTE::C #:FORM))) #:FORM) (FUNCALL (FUNCTION
(LAMBDA (#:FORM) (FARE-MATCHER::M%OR (FUNCALL (FUNCTION (LAMBDA
(#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-
QUASIQUOTE::CONS))))) #:FORM) (FUNCALL (FUNCTION (LAMBDA (#:FORM)
(FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-QUASIQUOTE::LIST*)))))
#:FORM) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL
#:FORM (QUOTE FARE-QUASIQUOTE::LIST))))) #:FORM)))) #:FORM))))
(FUNCTION (LAMBDA (#:FORM) (SETF FARE-QUASIQUOTE::L2 #:FORM))))))
(FUNCALL #:FORM)) Multi form multi-value-call is inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324
#:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R2199326
#:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-MATCHER::FORM) (FARE-
MATCHER:M%WHEN (CONSP FARE-MATCHER::FORM) (FARE-MATCHER:M%VALUES (CAR
FARE-MATCHER::FORM) (CDR FARE-MATCHER::FORM))))) #:FORM) (FARE-
MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325
#:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER::M%OR
(FUNCALL (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM
(QUOTE FARE-QUASIQUOTE::CONS))))) #:FORM) (FUNCALL (FUNCTION (LAMBDA
(#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-
QUASIQUOTE::LIST*))))) #:FORM)))) (FUNCALL (FUNCTION (LAMBDA
(#:R0199324 #:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND
(#:R2199326 #:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-
MATCHER::FORM) (FARE-MATCHER:M%WHEN (AND (CONSP FARE-MATCHER::FORM)
(LISTP FARE-MATCHER::FORM)) (FARE-MATCHER:M%VALUES (BUTLAST FARE-
MATCHER::FORM) (CAR (LAST FARE-MATCHER::FORM)))))) #:FORM) (FARE-
MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325
#:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-QUASIQUOTE::L
#:FORM))) (FUNCTION (LAMBDA (FARE-QUASIQUOTE::FORM) (OR (NULL FARE-
QUASIQUOTE::FORM) (AND (FARE-QUASIQUOTE::QUOTEP FARE-QUASIQUOTE::FORM)
(NULL (FARE-UTILS:SINGLE-ARG FARE-QUASIQUOTE::FORM))) (FARE-MATCHER:M
%FAIL)))))) (FUNCALL #:FORM)) Multi form multi-value-call is
inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION (SUBFUNCTION
(LABELS FARE-QUASIQUOTE::S) FARE-QUASIQUOTE::SIMPLIFY-HEAD)):
(MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA (#:R0199324
#:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R2199326
#:R3199327) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FUNCALL (FUNCTION
(LAMBDA (FARE-MATCHER::FORM FARE-MATCHER::N) (FARE-MATCHER:M%WHEN (AND
(LISTP FARE-MATCHER::FORM) (FARE-UTILS:LENGTH=N-P FARE-MATCHER::FORM
FARE-MATCHER::N)) (APPLY (FUNCTION VALUES) FARE-MATCHER::FORM))))
#:FORM 2))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324
#:R2199326) (FUNCALL #:R1199325 #:R3199327))))))) (FUNCTION (LAMBDA
(#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-
QUASIQUOTE::LIST*))))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-
QUASIQUOTE::L #:FORM)))) (FUNCALL #:FORM)) Multi form multi-value-call
is inefficient
;;;*** Warning in (SUBFUNCTION (LABELS FARE-QUASIQUOTE::S) FARE-
QUASIQUOTE::SIMPLIFY-HEAD): (MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION
(LAMBDA (#:R0199324 #:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-
UTILS:MVBIND (#:R2199326 #:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-
MATCHER::FORM) (FARE-MATCHER:M%WHEN (CONSP FARE-MATCHER::FORM) (FARE-
MATCHER:M%VALUES (CAR FARE-MATCHER::FORM) (CDR FARE-MATCHER::FORM)))))
#:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL
#:R1199325 #:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M
%AND (FUNCALL (FUNCTION (LAMBDA (#:FORM) (SETF FARE-QUASIQUOTE::C
#:FORM))) #:FORM) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER::M
%OR (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL
#:FORM (QUOTE FARE-QUASIQUOTE::CONS))))) #:FORM) (FUNCALL (FUNCTION
(LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-
QUASIQUOTE::LIST*))))) #:FORM) (FUNCALL (FUNCTION (LAMBDA (#:FORM)
(FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-QUASIQUOTE::LIST)))))
#:FORM) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL
#:FORM (QUOTE FARE-QUASIQUOTE::APPEND))))) #:FORM) (FUNCALL (FUNCTION
(LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-
QUASIQUOTE::VECTOR))))) #:FORM) (FUNCALL (FUNCTION (LAMBDA (#:FORM)
(FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE FARE-QUASIQUOTE::MAKE-
VECTOR))))) #:FORM) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M
%WHEN (EQL #:FORM (QUOTE FARE-QUASIQUOTE::N-VECTOR))))) #:FORM))))
#:FORM)))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%AND (FUNCALL
(FUNCTION (LAMBDA (#:FORM) (SETF FARE-QUASIQUOTE::L #:FORM))) #:FORM)
(FUNCALL (FUNCTION (LAMBDA (#:FORM) (DECLARE (IGNORE #:FORM)) (FARE-
MATCHER:M%WHEN (FARE-QUASIQUOTE::ALL-CONSTANT-FORMS-P FARE-
QUASIQUOTE::L)))) #:FORM))))) (FUNCALL #:FORM)) Multi form multi-value-
call is inefficient
; FARE-QUASIQUOTE::SIMPLIFY-HEAD
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION FARE-
QUASIQUOTE::SIMPLIFY): (MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION (LAMBDA
(#:R0199324 #:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND
(#:R2199326 #:R3199327) (FUNCALL (FUNCTION (LAMBDA (FARE-
MATCHER::FORM) (FARE-MATCHER:M%WHEN (CONSP FARE-MATCHER::FORM) (FARE-
MATCHER:M%VALUES (CAR FARE-MATCHER::FORM) (CDR FARE-MATCHER::FORM)))))
#:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324 #:R2199326) (FUNCALL
#:R1199325 #:R3199327))))))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-
QUASIQUOTE::A #:FORM))) (FUNCTION (LAMBDA (#:FORM) (SETF FARE-
QUASIQUOTE::B #:FORM)))) (FUNCALL #:FORM)) Multi form multi-value-call
is inefficient
;;;*** Warning in FARE-QUASIQUOTE::SIMPLIFY: (MULTIPLE-VALUE-CALL
(FUNCALL (FUNCTION (LAMBDA (#:R0199324 #:R1199325) (FUNCTION (LAMBDA
(#:FORM) (FARE-UTILS:MVBIND (#:R2199326 #:R3199327) (FUNCALL (FUNCTION
(LAMBDA (#:FORM) (FUNCALL (FUNCTION (LAMBDA (FARE-MATCHER::FORM FARE-
MATCHER::N) (FARE-MATCHER:M%WHEN (AND (LISTP FARE-MATCHER::FORM) (FARE-
UTILS:LENGTH=N-P FARE-MATCHER::FORM FARE-MATCHER::N)) (APPLY (FUNCTION
VALUES) FARE-MATCHER::FORM)))) #:FORM 2))) #:FORM) (FARE-MATCHER:M%AND
(FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325 #:R3199327)))))))
(FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE
FARE-QUASIQUOTE::QUOTE))))) (FUNCTION FARE-MATCHER::M%SUCCESS))
(FUNCALL #:FORM)) Multi form multi-value-call is inefficient
; FARE-QUASIQUOTE::SIMPLIFY
; (TOP-LEVEL-FORM 10)
; FARE-QUASIQUOTE::LIST
; FARE-QUASIQUOTE::LIST
; (TOP-LEVEL-FORM 11)
; FARE-QUASIQUOTE::APPEND
; FARE-QUASIQUOTE::APPEND
; (TOP-LEVEL-FORM 12)
; FARE-QUASIQUOTE::LIST*
; FARE-QUASIQUOTE::LIST*
; (TOP-LEVEL-FORM 13)
; FARE-QUASIQUOTE::CONS
; FARE-QUASIQUOTE::CONS
; (TOP-LEVEL-FORM 14)
; FARE-QUASIQUOTE::VECTOR
; FARE-QUASIQUOTE::VECTOR
; (TOP-LEVEL-FORM 15)
; FARE-QUASIQUOTE::MAKE-VECTOR
; FARE-QUASIQUOTE::MAKE-VECTOR
; FARE-QUASIQUOTE::K-VECTOR
; FARE-QUASIQUOTE::K-LIST
; FARE-QUASIQUOTE::K-APPEND
; FARE-QUASIQUOTE::K-LIST*
; FARE-QUASIQUOTE::K-CONS
; FARE-QUASIQUOTE::INSERT
; FARE-QUASIQUOTE::LIST-EXTENDER
; FARE-QUASIQUOTE::SELF-EVALUATING-P
; FARE-QUASIQUOTE::CONSTANT-FORM-P
; FARE-QUASIQUOTE::ALL-CONSTANT-FORMS-P
; FARE-QUASIQUOTE::UNFOLD-CONSTANT-FORM
; FARE-QUASIQUOTE::UNFOLD-CONSTANT-FORMS
; FARE-QUASIQUOTE::PROTECT-CONSTANT-FORM
; FARE-QUASIQUOTE::PROTECT-CONSTANT-FORMS
; (TOP-LEVEL-FORM 30)
; FARE-QUASIQUOTE::READ-QUASIQUOTE
; FARE-QUASIQUOTE::READ-UNQUOTE
; FARE-QUASIQUOTE::READ-UNQUOTE-SPLICING
; FARE-QUASIQUOTE::N-VECTOR
; FARE-QUASIQUOTE::READ-VECTOR
; FARE-QUASIQUOTE::ENABLE-RT-QUASIQUOTE
; (TOP-LEVEL-FORM 31)
; FARE-QUASIQUOTE:ENABLE-QUASIQUOTE
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21ECF6B3> on #<ASDF:CL-SOURCE-FILE "quasiquote" 21ECEDEB>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-matcher\quasiquote.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-matcher\clos-
match.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFGENERIC FARE-CLOS-MATCH:CLASS-INITARG-TO-SLOT)
; (METHOD FARE-CLOS-MATCH:CLASS-INITARG-TO-SLOT (STANDARD-CLASS))
; FARE-CLOS-MATCH:SIMPLE-LOAD-FORM
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-matcher\clos-match.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\fare-matcher\mrd-
extensions.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (DEFPACKAGE "FARE-MATCHER-EXTENSIONS")
; (TOP-LEVEL-FORM 2)
; FARE-MATCHER-EXTENSIONS::PARSE-PATTERN-LAMBDA-LIST
; FARE-MATCHER-EXTENSIONS::MAYBE-FIRST
; FARE-MATCHER-EXTENSIONS:DEFINE-ACCESSOR-MATCHER
; (DEFGENERIC FARE-MATCHER-EXTENSIONS::RECORD-ACCESSOR)
; FARE-MATCHER-EXTENSIONS:DEFRECORD
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 8)
; (DEFPARAMETER FARE-MATCHER-EXTENSIONS::*CLAUSE-BEGINNING-MARKERS*)
; (DEFPARAMETER FARE-MATCHER-EXTENSIONS::*CLAUSE-BODY-MARKERS*)
; FARE-MATCHER-EXTENSIONS::PARSE-CLAUSE-ARGS
; FARE-MATCHER-EXTENSIONS::PARSE-CLAUSE
; FARE-MATCHER-EXTENSIONS::PARSE-MATCHFUN-CLAUSES
; FARE-MATCHER-EXTENSIONS::PROCESS-MATCHFUN
; FARE-MATCHER-EXTENSIONS:DEFMFUN
; FARE-MATCHER-EXTENSIONS:WITH-MFUNS
; FARE-MATCHER-EXTENSIONS:MATCHFUN
; FARE-MATCHER-EXTENSIONS:MFUN
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site
\md5-1.8.5\md5.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (DEFPACKAGE "MD5")
; (TOP-LEVEL-FORM 2)
; (DEFTYPE MD5::UB32)
; MD5::ASSEMBLE-UB32
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 5)
; MD5::F
; MD5::F
; MD5::G
; MD5::G
; MD5::H
; MD5::H
; MD5::I
; MD5::I
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
; MD5::MOD32+
; MD5::MOD32+
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; MD5::ROL32
; MD5::ROL32
; (DEFPARAMETER MD5::*T*)
; MD5::WITH-MD5-ROUND
; (DEFTYPE MD5:MD5-REGS)
; MD5::MD5-REGS-A
; MD5::MD5-REGS-B
; MD5::MD5-REGS-C
; MD5::MD5-REGS-D
; (DEFCONSTANT MD5::+MD5-MAGIC-A+)
; (DEFCONSTANT MD5::+MD5-MAGIC-B+)
; (DEFCONSTANT MD5::+MD5-MAGIC-C+)
; (DEFCONSTANT MD5::+MD5-MAGIC-D+)
; (TOP-LEVEL-FORM 25)
; MD5:INITIAL-MD5-REGS
; MD5:INITIAL-MD5-REGS
; MD5:UPDATE-MD5-BLOCK
; (TOP-LEVEL-FORM 28)
; MD5:FILL-BLOCK-UB8
; MD5:FILL-BLOCK-UB8
; MD5:FILL-BLOCK-CHAR
; MD5:FILL-BLOCK-CHAR
; MD5:FILL-BLOCK
; MD5:FILL-BLOCK
; (TOP-LEVEL-FORM 32)
; MD5:MD5REGS-DIGEST
; MD5:MD5REGS-DIGEST
; (SUBFUNCTION (DEFSETF MD5::MD5-STATE-FINALIZED-P) (DEFSTRUCT MD5:MD5-
STATE))
; (SUBFUNCTION (DEFSETF MD5::MD5-STATE-BUFFER-INDEX) (DEFSTRUCT
MD5:MD5-STATE))
; (SUBFUNCTION (DEFSETF MD5::MD5-STATE-AMOUNT) (DEFSTRUCT MD5:MD5-
STATE))
; (SUBFUNCTION MD5:MAKE-MD5-STATE (DEFSTRUCT MD5:MD5-STATE))
; (TOP-LEVEL-FORM 35)
; MD5::COPY-TO-BUFFER
; MD5::COPY-TO-BUFFER
; MD5:UPDATE-MD5-STATE
; MD5:FINALIZE-MD5-STATE
; MD5:MD5SUM-SEQUENCE
; (DEFCONSTANT MD5::+BUFFER-SIZE+)
; (DEFTYPE MD5::BUFFER-INDEX)
; MD5:MD5SUM-STREAM
; MD5:MD5SUM-FILE
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\portableaserve
\libs\puri-1.3.1\src.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (DEFPACKAGE "PURI")
; (TOP-LEVEL-FORM 2)
; PURI::PARSE-BODY
; PURI::SHRINK-VECTOR
; (SUBFUNCTION (DEFCLASS PURI:URI-PARSE-ERROR) (DEFINE-CONDITION
PURI:URI-PARSE-ERROR))
; (DEFINE-CONDITION PURI:URI-PARSE-ERROR)
; (DEFINE-CONDITION PURI:URI-PARSE-ERROR)
; PURI::.PARSE-ERROR
; PURI::INTERNAL-READER-ERROR
; (DEFVAR PURI::*CURRENT-CASE-MODE*)
; PURI::POSITION-CHAR
; PURI::DELIMITED-STRING-TO-LIST
; (DEFVAR PURI::IF*-KEYWORD-LIST)
; PURI::IF*
; (DEFCLASS PURI:URI)
; (DEFCLASS PURI:URN)
; (METHOD (SETF PURI:URI-SCHEME) :AROUND (T PURI:URI))
; (METHOD (SETF PURI:URI-HOST) :AROUND (T PURI:URI))
; (METHOD (SETF PURI:URI-PORT) :AROUND (T PURI:URI))
; (METHOD (SETF PURI:URI-PATH) :AROUND (T PURI:URI))
; (METHOD (SETF PURI:URI-QUERY) :AROUND (T PURI:URI))
; (METHOD (SETF PURI:URI-FRAGMENT) :AROUND (T PURI:URI))
; (METHOD MAKE-LOAD-FORM (PURI:URI))
; (METHOD PURI:URI-P (PURI:URI))
; (METHOD PURI:URI-P (T))
; PURI:COPY-URI
; (METHOD PURI:URI-PARSED-PATH (PURI:URI))
; (METHOD (SETF PURI:URI-PARSED-PATH) (T PURI:URI))
; PURI:URI-AUTHORITY
; PURI::URI-NID
; PURI::URI-NSS
; (DEFPARAMETER PURI::*EXCLUDED-CHARACTERS*)
; PURI::RESERVED-CHAR-VECTOR
; (DEFPARAMETER PURI::*RESERVED-CHARACTERS*)
; (DEFPARAMETER PURI::*RESERVED-AUTHORITY-CHARACTERS*)
; (DEFPARAMETER PURI::*RESERVED-PATH-CHARACTERS*)
; (DEFPARAMETER PURI::*RESERVED-PATH-CHARACTERS2*)
; (DEFPARAMETER PURI::*RESERVED-FRAGMENT-CHARACTERS*)
; (DEFPARAMETER PURI::*VALID-NID-CHARACTERS*)
; (DEFPARAMETER PURI::*RESERVED-NSS-CHARACTERS*)
; (DEFPARAMETER PURI::*ILLEGAL-CHARACTERS*)
; (DEFPARAMETER PURI::*STRICT-ILLEGAL-QUERY-CHARACTERS*)
; (DEFPARAMETER PURI::*ILLEGAL-QUERY-CHARACTERS*)
; PURI:PARSE-URI
; (METHOD PURI:URI (PURI:URI))
; (METHOD PURI:URI (STRING))
; (METHOD PURI:URI (T))
; (DEFVAR PURI:*STRICT-PARSE*)
; PURI::PARSE-URI-STRING
; PURI::ESCAPE-P
; PURI::PARSE-PATH
; PURI::DECODE-ESCAPED-ENCODING
; PURI:RENDER-URI
; PURI::RENDER-PARSED-PATH
; PURI::RENDER-URN
; (DEFPARAMETER PURI::*ESCAPED-ENCODING*)
; PURI::ENCODE-ESCAPED-ENCODING
; (METHOD PRINT-OBJECT (PURI:URI T))
; (METHOD PRINT-OBJECT (PURI:URN T))
; (METHOD PURI:MERGE-URIS (STRING STRING))
; (METHOD PURI:MERGE-URIS (PURI:URI STRING))
; (METHOD PURI:MERGE-URIS (STRING PURI:URI))
; (METHOD PURI:MERGE-URIS (PURI:URI PURI:URI))
; (METHOD PURI:ENOUGH-URI (STRING STRING))
; (METHOD PURI:ENOUGH-URI (PURI:URI STRING))
; (METHOD PURI:ENOUGH-URI (STRING PURI:URI))
; (METHOD PURI:ENOUGH-URI (PURI:URI PURI:URI))
; PURI:MAKE-URI-SPACE
; PURI::GETHASH-URI
; PURI::PUTHASH-URI
; PURI::URI-HASH
; (DEFVAR PURI::*URIS*)
; PURI:URI-SPACE
; (SETF PURI:URI-SPACE)
; (TOP-LEVEL-FORM 75)
; (DEFGENERIC PURI:URI=)
; (METHOD PURI:URI= (PURI:URI PURI:URI))
; (METHOD PURI:URI= (PURI:URN PURI:URN))
; PURI::URN-NSS-EQUAL
; (METHOD PURI:INTERN-URI (PURI:URI))
; (METHOD PURI:INTERN-URI (STRING))
; PURI:UNINTERN-URI
; PURI:DO-ALL-URIS
; PURI::SHARP-U
; (TOP-LEVEL-FORM 85)
; (TOP-LEVEL-FORM 86)
; PURI::GC
; PURI::TIME-URI-MODULE
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-json\src
\package.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (DEFPACKAGE "JSON")
; (DEFPACKAGE "JSON-RPC")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-json\src\package.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-json\src
\symboltojs.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPARAMETER JSON::*SPECIAL-CHARS*)
; JSON::CONSTANT-STRING-P
; JSON::FIRST-UPPERCASE-P
; JSON::UNTOUCHABLE-STRING-P
; JSON::STRING-SPLIT
; JSON::SYMBOL-TO-JS
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-json\src\symboltojs.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-json\src
\common.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPARAMETER JSON::+JSON-LISP-ESCAPED-CHARS+)
; (DEFPARAMETER JSON:*USE-STRICT-JSON-RULES*)
; (DEFPARAMETER JSON::*SYMBOL-TO-STRING-FN*)
; JSON::JSON-ESCAPED-CHAR-TO-LISP
; JSON::LISP-SPECIAL-CHAR-TO-JSON
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-json\src
\objects.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFVAR JSON:*PROTOTYPE-NAME*)
; JSON::FIND-CLASS*
; JSON::OLD-AND-NEW-SLOTS
; JSON::MAKE-AND-POPULATE-INSTANCE
; (METHOD JSON::MAKE-OBJECT (T (EQL NIL)))
; (METHOD JSON::MAKE-OBJECT (T T))
; (METHOD JSON::MAKE-OBJECT (T (EQL (FIND-CLASS (QUOTE CONS)))))
; (METHOD JSON::MAKE-OBJECT (T (EQL (FIND-CLASS (QUOTE HASH-TABLE)))))
; (METHOD JSON::MAKE-OBJECT (T SYMBOL))
; (DEFCLASS JSON:PROTOTYPE)
; (METHOD MAKE-LOAD-FORM (JSON:PROTOTYPE))
; JSON::MAX-PACKAGE
; JSON::PACKAGE-NAME*
; (METHOD JSON::MAKE-OBJECT-PROTOTYPE (T))
; (METHOD JSON::MAKE-OBJECT-PROTOTYPE (JSON:PROTOTYPE))
; JSON::MAYBE-ADD-PROTOTYPE
; JSON::MAKE-OBJECT-SLOT-ITERATOR
; JSON::WITH-ITERATOR-AND-PROTOTYPE
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-json\src\common.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-json\src\objects.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-json\src
\decoder.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFVAR JSON:*JSON-SYMBOLS-PACKAGE*)
; (DEFPARAMETER JSON::*JSON-RULES*)
; (DEFPARAMETER JSON::*JSON-OBJECT-PROTOTYPE*)
; (DEFPARAMETER JSON:*JSON-OBJECT-FACTORY*)
; (DEFVAR JSON:*JSON-OBJECT-FACTORY-ADD-KEY-VALUE*)
; (DEFVAR JSON:*JSON-OBJECT-FACTORY-RETURN*)
; (DEFVAR JSON:*JSON-ARRAY-TYPE*)
; (DEFPARAMETER JSON:*JSON-MAKE-BIG-NUMBER*)
; JSON::JSON-FACTORY-MAKE-OBJECT
; JSON::SET-LIST-DECODER-SEMANTICS
; JSON::SET-CLOS-DECODER-SEMANTICS
; (TOP-LEVEL-FORM 13)
; JSON::WITH-SHADOWED-JSON-VARIABLES
; JSON:WITH-LIST-DECODER-SEMANTICS
; JSON:WITH-CLOS-DECODER-SEMANTICS
; JSON::JSON-INTERN
; (SUBFUNCTION (DEFCLASS JSON:JSON-PARSE-ERROR) (DEFINE-CONDITION
JSON:JSON-PARSE-ERROR))
; (DEFINE-CONDITION JSON:JSON-PARSE-ERROR)
; JSON:DECODE-JSON-FROM-STRING
; JSON:DECODE-JSON
; JSON:DECODE-JSON-STRICT
; JSON::ADD-JSON-DISPATCH-RULE
; (TOP-LEVEL-FORM 23)
; (TOP-LEVEL-FORM 24)
; (TOP-LEVEL-FORM 25)
; JSON::READ-CONSTANT
; JSON::READ-JSON-STRING
; (TOP-LEVEL-FORM 28)
; JSON::READ-JSON-OBJECT
; (TOP-LEVEL-FORM 30)
;;;*** Warning in JSON::READ-JSON-ARRAY: SKIP-TERMINATOR is bound but
not referenced
;;;*** Warning in JSON::READ-JSON-ARRAY: FIRST-IN-ELEMENT is bound but
not referenced
; JSON::READ-JSON-ARRAY
; (TOP-LEVEL-FORM 32)
; (DEFPARAMETER JSON::+DIGITS+)
; (DEFPARAMETER JSON::+JSON-NUMBER-VALID-CHARS+)
; JSON::READ-JSON-NUMBER
; JSON::READ-CHARS-UNTIL
; JSON::READ-N-CHARS
; JSON::READ-JSON-CHARS
; JSON::CAMEL-CASE-TO-LISP
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21F0E523> on #<ASDF:CL-SOURCE-FILE "decoder" 21F04EF3>.
;;; Compiling file d:\ue31057\old\base\external\site\cl-json\src
\encoder.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFGENERIC JSON:ENCODE-JSON)
; JSON:ENCODE-JSON-TO-STRING
; (METHOD JSON:ENCODE-JSON (T T))
; (METHOD JSON:ENCODE-JSON (NUMBER T))
; (METHOD JSON:ENCODE-JSON (STRING T))
; (METHOD JSON:ENCODE-JSON (CHARACTER T))
; (METHOD JSON:ENCODE-JSON (SYMBOL T))
; (METHOD JSON:ENCODE-JSON (LIST T))
; (METHOD JSON:ENCODE-JSON (SEQUENCE T))
; JSON::WRITE-JSON-OBJECT
; (METHOD JSON:ENCODE-JSON (HASH-TABLE T))
; (METHOD JSON:ENCODE-JSON (STANDARD-OBJECT T))
; (METHOD JSON:ENCODE-JSON (STRUCTURE-OBJECT T))
; JSON::WITH-ALIST-ITERATOR
; JSON:ENCODE-JSON-ALIST
; JSON:ENCODE-JSON-ALIST-TO-STRING
; JSON:ENCODE-JSON-PLIST
; JSON:ENCODE-JSON-PLIST-TO-STRING
; JSON::WRITE-JSON-STRING
;;;*** Warning in JSON::WRITE-JSON-CHARS: Inline expansion for
JSON::LISP-SPECIAL-CHAR-TO-JSON not found
;;;*** Warning in JSON::WRITE-JSON-CHARS: Inline expansion for
JSON::LISP-SPECIAL-CHAR-TO-JSON not found
;;;*** Warning in JSON::WRITE-JSON-CHARS: Inline expansion for
JSON::LISP-SPECIAL-CHAR-TO-JSON not found
;;;*** Warning in JSON::WRITE-JSON-CHARS: Inline expansion for
JSON::LISP-SPECIAL-CHAR-TO-JSON not found
; JSON::WRITE-JSON-CHARS
; JSON::WRITE-JSON-NUMBER
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21F0E523> on #<ASDF:CL-SOURCE-FILE "encoder" 21EFDF7F>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-json\src\decoder.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-json\src\encoder.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-json\src
\utils.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; JSON::CDAS
; JSON::LAST1
; JSON::ASSOC-LOOKUP
; JSON:JSON-BIND
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-json\src\utils.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-json\src\json-
rpc.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFVAR JSON-RPC::*JSON-RPC-FUNCTIONS*)
; JSON-RPC:CLEAR-EXPORTED
; JSON-RPC:DEFUN-JSON-RPC
; JSON-RPC:EXPORT-AS-JSON-RPC
; JSON-RPC::MAKE-RPC-RESPONSE
; JSON-RPC::MAKE-JSON-RPC-ERROR-OBJECT-1.1
; JSON-RPC:INVOKE-RPC
; JSON-RPC::DEF-RESTART
; JSON-RPC:SEND-ERROR
; JSON-RPC:SEND-ERROR-OBJECT
; JSON-RPC:SEND-NOTHING
; JSON-RPC:SEND-INTERNAL-ERROR
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site
\rfc2388\packages.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "RFC2388")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\rfc2388\packages.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\rfc2388\rfc2388.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; RFC2388::LWSP-CHAR-P
; RFC2388::READ-UNTIL-NEXT-BOUNDARY
; RFC2388::MAKE-TMP-FILE-NAME
; (SUBFUNCTION RFC2388:HEADER-PARAMETERS (DEFSTRUCT RFC2388:HEADER))
; (SUBFUNCTION RFC2388:HEADER-PARAMETERS (DEFSTRUCT RFC2388:HEADER))
; (SUBFUNCTION RFC2388:HEADER-VALUE (DEFSTRUCT RFC2388:HEADER))
; (SUBFUNCTION RFC2388:HEADER-VALUE (DEFSTRUCT RFC2388:HEADER))
; (SUBFUNCTION RFC2388:HEADER-NAME (DEFSTRUCT RFC2388:HEADER))
; (SUBFUNCTION RFC2388:HEADER-NAME (DEFSTRUCT RFC2388:HEADER))
; (SUBFUNCTION RFC2388::|set HEADER-PARAMETERS| (DEFSTRUCT
RFC2388:HEADER))
; (SUBFUNCTION RFC2388::|set HEADER-PARAMETERS| (DEFSTRUCT
RFC2388:HEADER))
; (SUBFUNCTION (DEFSETF RFC2388:HEADER-PARAMETERS) (DEFSTRUCT
RFC2388:HEADER))
; (SUBFUNCTION RFC2388::|set HEADER-VALUE| (DEFSTRUCT RFC2388:HEADER))
; (SUBFUNCTION RFC2388::|set HEADER-VALUE| (DEFSTRUCT RFC2388:HEADER))
; (SUBFUNCTION (DEFSETF RFC2388:HEADER-VALUE) (DEFSTRUCT
RFC2388:HEADER))
; (SUBFUNCTION RFC2388::|set HEADER-NAME| (DEFSTRUCT RFC2388:HEADER))
; (SUBFUNCTION RFC2388::|set HEADER-NAME| (DEFSTRUCT RFC2388:HEADER))
; (SUBFUNCTION (DEFSETF RFC2388:HEADER-NAME) (DEFSTRUCT
RFC2388:HEADER))
; (SUBFUNCTION RFC2388::MAKE-HEADER (DEFSTRUCT RFC2388:HEADER))
; RFC2388::SKIP-LINEAR-WHITESPACE
; (DEFGENERIC RFC2388:PARSE-HEADER)
; (METHOD RFC2388:PARSE-HEADER (STRING))
; (METHOD RFC2388:PARSE-HEADER (STREAM))
; (DEFGENERIC RFC2388:PARSE-MIME)
; (SUBFUNCTION RFC2388::CONTENT-TYPE-SUB (DEFSTRUCT RFC2388:CONTENT-
TYPE))
; (SUBFUNCTION RFC2388::CONTENT-TYPE-SUB (DEFSTRUCT RFC2388:CONTENT-
TYPE))
; (SUBFUNCTION RFC2388::CONTENT-TYPE-SUPER (DEFSTRUCT RFC2388:CONTENT-
TYPE))
; (SUBFUNCTION RFC2388::CONTENT-TYPE-SUPER (DEFSTRUCT RFC2388:CONTENT-
TYPE))
; (SUBFUNCTION RFC2388::|set CONTENT-TYPE-SUB| (DEFSTRUCT
RFC2388:CONTENT-TYPE))
; (SUBFUNCTION RFC2388::|set CONTENT-TYPE-SUB| (DEFSTRUCT
RFC2388:CONTENT-TYPE))
; (SUBFUNCTION (DEFSETF RFC2388::CONTENT-TYPE-SUB) (DEFSTRUCT
RFC2388:CONTENT-TYPE))
; (SUBFUNCTION RFC2388::|set CONTENT-TYPE-SUPER| (DEFSTRUCT
RFC2388:CONTENT-TYPE))
; (SUBFUNCTION RFC2388::|set CONTENT-TYPE-SUPER| (DEFSTRUCT
RFC2388:CONTENT-TYPE))
; (SUBFUNCTION (DEFSETF RFC2388::CONTENT-TYPE-SUPER) (DEFSTRUCT
RFC2388:CONTENT-TYPE))
; (SUBFUNCTION RFC2388::MAKE-CONTENT-TYPE (DEFSTRUCT RFC2388:CONTENT-
TYPE))
; RFC2388::PARSE-CONTENT-TYPE
; RFC2388::UNPARSE-CONTENT-TYPE
; (SUBFUNCTION RFC2388:MIME-PART-HEADERS (DEFSTRUCT RFC2388:MIME-
PART))
; (SUBFUNCTION RFC2388:MIME-PART-HEADERS (DEFSTRUCT RFC2388:MIME-
PART))
; (SUBFUNCTION RFC2388:MIME-PART-CONTENTS (DEFSTRUCT RFC2388:MIME-
PART))
; (SUBFUNCTION RFC2388:MIME-PART-CONTENTS (DEFSTRUCT RFC2388:MIME-
PART))
; (SUBFUNCTION RFC2388::|set MIME-PART-HEADERS| (DEFSTRUCT
RFC2388:MIME-PART))
; (SUBFUNCTION RFC2388::|set MIME-PART-HEADERS| (DEFSTRUCT
RFC2388:MIME-PART))
; (SUBFUNCTION (DEFSETF RFC2388:MIME-PART-HEADERS) (DEFSTRUCT
RFC2388:MIME-PART))
; (SUBFUNCTION RFC2388::|set MIME-PART-CONTENTS| (DEFSTRUCT
RFC2388:MIME-PART))
; (SUBFUNCTION RFC2388::|set MIME-PART-CONTENTS| (DEFSTRUCT
RFC2388:MIME-PART))
; (SUBFUNCTION (DEFSETF RFC2388:MIME-PART-CONTENTS) (DEFSTRUCT
RFC2388:MIME-PART))
; (SUBFUNCTION RFC2388:MAKE-MIME-PART (DEFSTRUCT RFC2388:MIME-PART))
; (METHOD RFC2388:PARSE-MIME (STRING T))
; (METHOD RFC2388:PARSE-MIME (STREAM T))
; RFC2388:FIND-HEADER
; RFC2388:FIND-PARAMETER
; RFC2388:CONTENT-TYPE
; RFC2388:FIND-CONTENT-DISPOSITION-HEADER
; RFC2388:GET-FILE-NAME
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-plus-ssl
\trivial-gray-streams\package.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "TRIVIAL-GRAY-STREAMS")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-plus-ssl\trivial-gray-streams\package.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-plus-ssl
\trivial-gray-streams\mixin.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS TRIVIAL-GRAY-STREAMS:TRIVIAL-GRAY-STREAM-MIXIN)
; (DEFGENERIC TRIVIAL-GRAY-STREAMS:STREAM-READ-SEQUENCE)
; (DEFGENERIC TRIVIAL-GRAY-STREAMS:STREAM-WRITE-SEQUENCE)
; (DEFGENERIC TRIVIAL-GRAY-STREAMS:STREAM-FILE-POSITION)
; (DEFGENERIC (SETF TRIVIAL-GRAY-STREAMS:STREAM-FILE-POSITION))
; (METHOD STREAM:STREAM-WRITE-STRING (TRIVIAL-GRAY-STREAMS:TRIVIAL-
GRAY-STREAM-MIXIN T))
; (METHOD STREAM:STREAM-TERPRI (TRIVIAL-GRAY-STREAMS:TRIVIAL-GRAY-
STREAM-MIXIN))
; (METHOD TRIVIAL-GRAY-STREAMS:STREAM-FILE-POSITION (TRIVIAL-GRAY-
STREAMS:TRIVIAL-GRAY-STREAM-MIXIN))
; (METHOD (SETF TRIVIAL-GRAY-STREAMS:STREAM-FILE-POSITION) (T TRIVIAL-
GRAY-STREAMS:TRIVIAL-GRAY-STREAM-MIXIN))
; (METHOD STREAM:STREAM-READ-SEQUENCE (TRIVIAL-GRAY-STREAMS:TRIVIAL-
GRAY-STREAM-MIXIN T T T))
; (METHOD STREAM:STREAM-WRITE-SEQUENCE (TRIVIAL-GRAY-STREAMS:TRIVIAL-
GRAY-STREAM-MIXIN T T T))
; (METHOD STREAM:STREAM-FILE-POSITION (TRIVIAL-GRAY-STREAMS:TRIVIAL-
GRAY-STREAM-MIXIN))
; (METHOD (SETF STREAM:STREAM-FILE-POSITION) (T TRIVIAL-GRAY-
STREAMS:TRIVIAL-GRAY-STREAM-MIXIN))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-plus-ssl\trivial-gray-streams\mixin.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\packages.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPACKAGE "FLEXI-STREAMS")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\packages.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\mapping.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFTYPE FLEXI-STREAMS:OCTET)
; (DEFTYPE FLEXI-STREAMS::CHAR*)
; (DEFTYPE FLEXI-STREAMS::STRING*)
; (DEFTYPE FLEXI-STREAMS::CHAR-CODE-INTEGER)
; (DEFTYPE FLEXI-STREAMS::CODE-POINT)
; FLEXI-STREAMS::DEFCONSTANT
; FLEXI-STREAMS::INVERT-TABLE
; FLEXI-STREAMS::MAKE-DECODING-TABLE
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\mapping.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\ascii.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCONSTANT FLEXI-STREAMS::+ASCII-TABLE+)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\ascii.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\koi8-r.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCONSTANT FLEXI-STREAMS::+KOI8-R-TABLE+)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\koi8-r.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\iso-8859.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCONSTANT FLEXI-STREAMS::+ISO-8859-TABLES+)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\iso-8859.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\code-pages.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCONSTANT FLEXI-STREAMS::+CODE-PAGE-TABLES+)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\code-pages.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\specials.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFVAR FLEXI-STREAMS::*STANDARD-OPTIMIZE-SETTINGS*)
; (DEFVAR FLEXI-STREAMS::*FIXNUM-OPTIMIZE-SETTINGS*)
; (DEFCONSTANT FLEXI-STREAMS::+LF+)
; (DEFCONSTANT FLEXI-STREAMS::+CR+)
; (DEFVAR FLEXI-STREAMS::*CURRENT-UNREADER*)
; (DEFVAR FLEXI-STREAMS::+NAME-MAP+)
; (DEFVAR FLEXI-STREAMS::+SHORTCUT-MAP+)
; (DEFVAR FLEXI-STREAMS:*DEFAULT-EOL-STYLE*)
; (DEFVAR FLEXI-STREAMS:*DEFAULT-LITTLE-ENDIAN*)
; (DEFVAR FLEXI-STREAMS:*SUBSTITUTION-CHAR*)
; (DEFCONSTANT FLEXI-STREAMS::+ISO-8859-HASHES+)
; (DEFCONSTANT FLEXI-STREAMS::+CODE-PAGE-HASHES+)
; (DEFCONSTANT FLEXI-STREAMS::+ASCII-HASH+)
; (DEFCONSTANT FLEXI-STREAMS::+KOI8-R-HASH+)
; (DEFCONSTANT FLEXI-STREAMS::+BUFFER-SIZE+)
; (TOP-LEVEL-FORM 17)
; (DEFVAR FLEXI-STREAMS::*HYPERDOC-BASE-URI*)
; (TOP-LEVEL-FORM 19)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\specials.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\util.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; FLEXI-STREAMS::NORMALIZE-EXTERNAL-FORMAT-NAME
; FLEXI-STREAMS::ASCII-NAME-P
; FLEXI-STREAMS::KOI8-R-NAME-P
; FLEXI-STREAMS::CODE-PAGE-NAME-P
; FLEXI-STREAMS::ISO-8859-NAME-P
; FLEXI-STREAMS::KNOWN-CODE-PAGE-ID-P
; FLEXI-STREAMS::SANS
; FLEXI-STREAMS::WITH-ACCESSORS
; FLEXI-STREAMS::MAKE-OCTET-BUFFER
; FLEXI-STREAMS::TYPE-EQUAL
; FLEXI-STREAMS::MAYBE-REWIND
; FLEXI-STREAMS::LOGAND*
; FLEXI-STREAMS::LOGIOR*
; FLEXI-STREAMS::ASH*
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\util.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\conditions.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (SUBFUNCTION (DEFCLASS FLEXI-STREAMS:FLEXI-STREAM-ERROR) (DEFINE-
CONDITION FLEXI-STREAMS:FLEXI-STREAM-ERROR))
; (DEFINE-CONDITION FLEXI-STREAMS:FLEXI-STREAM-ERROR)
; (SUBFUNCTION (DEFCLASS FLEXI-STREAMS::FLEXI-STREAM-SIMPLE-ERROR)
(DEFINE-CONDITION FLEXI-STREAMS::FLEXI-STREAM-SIMPLE-ERROR))
; (DEFINE-CONDITION FLEXI-STREAMS::FLEXI-STREAM-SIMPLE-ERROR)
; (SUBFUNCTION (DEFCLASS FLEXI-STREAMS:FLEXI-STREAM-ELEMENT-TYPE-
ERROR) (DEFINE-CONDITION FLEXI-STREAMS:FLEXI-STREAM-ELEMENT-TYPE-
ERROR))
; (DEFINE-CONDITION FLEXI-STREAMS:FLEXI-STREAM-ELEMENT-TYPE-ERROR)
; (DEFINE-CONDITION FLEXI-STREAMS:FLEXI-STREAM-ELEMENT-TYPE-ERROR)
; (SUBFUNCTION (DEFCLASS FLEXI-STREAMS:FLEXI-STREAM-OUT-OF-SYNC-ERROR)
(DEFINE-CONDITION FLEXI-STREAMS:FLEXI-STREAM-OUT-OF-SYNC-ERROR))
; (DEFINE-CONDITION FLEXI-STREAMS:FLEXI-STREAM-OUT-OF-SYNC-ERROR)
; (DEFINE-CONDITION FLEXI-STREAMS:FLEXI-STREAM-OUT-OF-SYNC-ERROR)
; (SUBFUNCTION (DEFCLASS FLEXI-STREAMS:IN-MEMORY-STREAM-ERROR) (DEFINE-
CONDITION FLEXI-STREAMS:IN-MEMORY-STREAM-ERROR))
; (DEFINE-CONDITION FLEXI-STREAMS:IN-MEMORY-STREAM-ERROR)
; (SUBFUNCTION (DEFCLASS FLEXI-STREAMS::IN-MEMORY-STREAM-SIMPLE-ERROR)
(DEFINE-CONDITION FLEXI-STREAMS::IN-MEMORY-STREAM-SIMPLE-ERROR))
; (DEFINE-CONDITION FLEXI-STREAMS::IN-MEMORY-STREAM-SIMPLE-ERROR)
; (SUBFUNCTION (DEFCLASS FLEXI-STREAMS:IN-MEMORY-STREAM-CLOSED-ERROR)
(DEFINE-CONDITION FLEXI-STREAMS:IN-MEMORY-STREAM-CLOSED-ERROR))
; (DEFINE-CONDITION FLEXI-STREAMS:IN-MEMORY-STREAM-CLOSED-ERROR)
; (DEFINE-CONDITION FLEXI-STREAMS:IN-MEMORY-STREAM-CLOSED-ERROR)
; (SUBFUNCTION (DEFCLASS FLEXI-STREAMS:IN-MEMORY-STREAM-POSITION-SPEC-
ERROR) (DEFINE-CONDITION FLEXI-STREAMS:IN-MEMORY-STREAM-POSITION-SPEC-
ERROR))
; (DEFINE-CONDITION FLEXI-STREAMS:IN-MEMORY-STREAM-POSITION-SPEC-
ERROR)
; (SUBFUNCTION (DEFCLASS FLEXI-STREAMS:EXTERNAL-FORMAT-CONDITION)
(DEFINE-CONDITION FLEXI-STREAMS:EXTERNAL-FORMAT-CONDITION))
; (DEFINE-CONDITION FLEXI-STREAMS:EXTERNAL-FORMAT-CONDITION)
; (SUBFUNCTION (DEFCLASS FLEXI-STREAMS:EXTERNAL-FORMAT-ERROR) (DEFINE-
CONDITION FLEXI-STREAMS:EXTERNAL-FORMAT-ERROR))
; (DEFINE-CONDITION FLEXI-STREAMS:EXTERNAL-FORMAT-ERROR)
; (SUBFUNCTION (DEFCLASS FLEXI-STREAMS:EXTERNAL-FORMAT-ENCODING-ERROR)
(DEFINE-CONDITION FLEXI-STREAMS:EXTERNAL-FORMAT-ENCODING-ERROR))
; (DEFINE-CONDITION FLEXI-STREAMS:EXTERNAL-FORMAT-ENCODING-ERROR)
; FLEXI-STREAMS::SIGNAL-ENCODING-ERROR
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\conditions.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\external-format.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS FLEXI-STREAMS::EXTERNAL-FORMAT)
; (METHOD MAKE-LOAD-FORM (FLEXI-STREAMS::EXTERNAL-FORMAT))
; (DEFCLASS FLEXI-STREAMS::FLEXI-CR-MIXIN)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CRLF-MIXIN)
; (DEFCLASS FLEXI-STREAMS::FLEXI-8-BIT-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-ASCII-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-UTF-32-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-UTF-16-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-UTF-8-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT)
; (METHOD INITIALIZE-INSTANCE :AFTER (FLEXI-STREAMS::FLEXI-8-BIT-
FORMAT))
; FLEXI-STREAMS::EXTERNAL-FORMAT-CLASS-NAME
; FLEXI-STREAMS::MAKE-EXTERNAL-FORMAT%
; FLEXI-STREAMS:MAKE-EXTERNAL-FORMAT
; FLEXI-STREAMS::MAYBE-CONVERT-EXTERNAL-FORMAT
; FLEXI-STREAMS:EXTERNAL-FORMAT-EQUAL
; FLEXI-STREAMS::NORMALIZE-EXTERNAL-FORMAT
; (METHOD PRINT-OBJECT (FLEXI-STREAMS::EXTERNAL-FORMAT T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\external-format.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\length.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFGENERIC FLEXI-STREAMS::ENCODING-FACTOR)
; (METHOD FLEXI-STREAMS::ENCODING-FACTOR (FLEXI-STREAMS::FLEXI-8-BIT-
FORMAT))
; (METHOD FLEXI-STREAMS::ENCODING-FACTOR (FLEXI-STREAMS::FLEXI-UTF-8-
FORMAT))
; (METHOD FLEXI-STREAMS::ENCODING-FACTOR (FLEXI-STREAMS::FLEXI-UTF-16-
FORMAT))
; (METHOD FLEXI-STREAMS::ENCODING-FACTOR (FLEXI-STREAMS::FLEXI-UTF-32-
FORMAT))
; (METHOD FLEXI-STREAMS::ENCODING-FACTOR (FLEXI-STREAMS::FLEXI-CRLF-
MIXIN))
; (DEFGENERIC FLEXI-STREAMS::CHECK-END)
; (DEFGENERIC FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS)
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS :AROUND (T LIST T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS (FLEXI-
STREAMS::FLEXI-8-BIT-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS (FLEXI-STREAMS::FLEXI-
CRLF-MIXIN T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS (FLEXI-STREAMS::FLEXI-
UTF-8-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS (FLEXI-STREAMS::FLEXI-
CRLF-UTF-8-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS :BEFORE (FLEXI-
STREAMS::FLEXI-UTF-16-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS (FLEXI-STREAMS::FLEXI-
UTF-16-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS (FLEXI-STREAMS::FLEXI-
UTF-16-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS (FLEXI-STREAMS::FLEXI-
CRLF-UTF-16-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS (FLEXI-STREAMS::FLEXI-
CRLF-UTF-16-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS :BEFORE (FLEXI-
STREAMS::FLEXI-UTF-32-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS (FLEXI-STREAMS::FLEXI-
UTF-32-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS (FLEXI-STREAMS::FLEXI-
CRLF-UTF-32-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS (FLEXI-STREAMS::FLEXI-
CRLF-UTF-32-BE-FORMAT T T T))
; (DEFGENERIC FLEXI-STREAMS::COMPUTE-NUMBER-OF-OCTETS)
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-OCTETS :AROUND (T LIST T
T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-OCTETS (FLEXI-
STREAMS::FLEXI-8-BIT-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-OCTETS (FLEXI-
STREAMS::FLEXI-UTF-8-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-OCTETS (FLEXI-
STREAMS::FLEXI-CRLF-UTF-8-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-OCTETS (FLEXI-
STREAMS::FLEXI-UTF-16-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-OCTETS (FLEXI-
STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-OCTETS (FLEXI-
STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-OCTETS (FLEXI-
STREAMS::FLEXI-UTF-32-FORMAT T T T))
; (METHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-OCTETS (FLEXI-
STREAMS::FLEXI-CRLF-MIXIN T T T))
; (DEFGENERIC FLEXI-STREAMS::CHARACTER-LENGTH)
; (METHOD FLEXI-STREAMS::CHARACTER-LENGTH :AROUND (FLEXI-
STREAMS::FLEXI-CRLF-MIXIN (EQL #\Newline)))
; (METHOD FLEXI-STREAMS::CHARACTER-LENGTH (FLEXI-STREAMS::FLEXI-8-BIT-
FORMAT T))
; (METHOD FLEXI-STREAMS::CHARACTER-LENGTH (FLEXI-STREAMS::FLEXI-UTF-32-
FORMAT T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\length.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\encode.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFGENERIC FLEXI-STREAMS::CHAR-TO-OCTETS)
; (DEFGENERIC FLEXI-STREAMS::WRITE-SEQUENCE*)
; (DEFGENERIC FLEXI-STREAMS::STRING-TO-OCTETS*)
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* :AROUND (T LIST T T))
; FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS
; FLEXI-STREAMS::DEFINE-CHAR-ENCODERS
; (METHOD FLEXI-STREAMS::CHAR-TO-OCTETS (FLEXI-STREAMS::FLEXI-LATIN-1-
FORMAT T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-
LATIN-1-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-LATIN-1-
FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CR-
LATIN-1-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-
LATIN-1-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CRLF-
LATIN-1-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
LATIN-1-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::CHAR-TO-OCTETS (FLEXI-STREAMS::FLEXI-ASCII-
FORMAT T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-ASCII-
FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-ASCII-
FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CR-
ASCII-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-
ASCII-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CRLF-
ASCII-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
ASCII-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::CHAR-TO-OCTETS (FLEXI-STREAMS::FLEXI-8-BIT-
FORMAT T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-8-BIT-
FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-8-BIT-
FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CR-8-
BIT-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-8-
BIT-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-
CRLF-8-BIT-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-8-
BIT-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::CHAR-TO-OCTETS (FLEXI-STREAMS::FLEXI-UTF-8-
FORMAT T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-UTF-8-
FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-UTF-8-
FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CR-
UTF-8-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-
UTF-8-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-8-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-8-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::CHAR-TO-OCTETS (FLEXI-STREAMS::FLEXI-UTF-16-
LE-FORMAT T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-
UTF-16-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-UTF-16-
LE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CR-
UTF-16-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-
UTF-16-LE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-16-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-16-LE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::CHAR-TO-OCTETS (FLEXI-STREAMS::FLEXI-UTF-16-
BE-FORMAT T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-
UTF-16-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-UTF-16-
BE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CR-
UTF-16-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-
UTF-16-BE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-16-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-16-BE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::CHAR-TO-OCTETS (FLEXI-STREAMS::FLEXI-UTF-32-
LE-FORMAT T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-
UTF-32-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-UTF-32-
LE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CR-
UTF-32-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-
UTF-32-LE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-32-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-32-LE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::CHAR-TO-OCTETS (FLEXI-STREAMS::FLEXI-UTF-32-
BE-FORMAT T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-
UTF-32-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-UTF-32-
BE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CR-
UTF-32-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-
UTF-32-BE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::STRING-TO-OCTETS* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-32-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::WRITE-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-32-BE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::CHAR-TO-OCTETS (FLEXI-STREAMS::FLEXI-CR-MIXIN
T T))
; (METHOD FLEXI-STREAMS::CHAR-TO-OCTETS (FLEXI-STREAMS::FLEXI-CRLF-
MIXIN T T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\encode.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\decode.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR
; (DEFGENERIC FLEXI-STREAMS::OCTETS-TO-CHAR-CODE)
; (DEFGENERIC FLEXI-STREAMS::OCTETS-TO-STRING*)
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* :AROUND (T LIST T T))
; FLEXI-STREAMS::DEFINE-SEQUENCE-READERS
; FLEXI-STREAMS::DEFINE-CHAR-DECODERS
; (METHOD FLEXI-STREAMS::OCTETS-TO-CHAR-CODE (FLEXI-STREAMS::FLEXI-
LATIN-1-FORMAT T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-LATIN-1-
FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-
LATIN-1-FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-
LATIN-1-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CR-
LATIN-1-FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
LATIN-1-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CRLF-
LATIN-1-FORMAT T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-CHAR-CODE (FLEXI-STREAMS::FLEXI-
ASCII-FORMAT T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-ASCII-
FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-ASCII-
FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-ASCII-
FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CR-
ASCII-FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
ASCII-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CRLF-
ASCII-FORMAT T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-CHAR-CODE (FLEXI-STREAMS::FLEXI-8-
BIT-FORMAT T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-8-BIT-
FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-8-BIT-
FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-8-BIT-
FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CR-8-
BIT-FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-8-
BIT-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-
CRLF-8-BIT-FORMAT T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-CHAR-CODE (FLEXI-STREAMS::FLEXI-
UTF-8-FORMAT T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-UTF-8-
FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-UTF-8-
FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-UTF-8-
FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CR-
UTF-8-FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-8-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-8-FORMAT T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-CHAR-CODE (FLEXI-STREAMS::FLEXI-
UTF-16-LE-FORMAT T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-UTF-16-
LE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-
UTF-16-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-
UTF-16-LE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CR-
UTF-16-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-16-LE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-16-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-CHAR-CODE (FLEXI-STREAMS::FLEXI-
UTF-16-BE-FORMAT T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-UTF-16-
BE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-
UTF-16-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-
UTF-16-BE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CR-
UTF-16-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-16-BE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-16-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-CHAR-CODE (FLEXI-STREAMS::FLEXI-
UTF-32-LE-FORMAT T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-UTF-32-
LE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-
UTF-32-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-
UTF-32-LE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CR-
UTF-32-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-32-LE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-32-LE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-CHAR-CODE (FLEXI-STREAMS::FLEXI-
UTF-32-BE-FORMAT T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-UTF-32-
BE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-
UTF-32-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CR-
UTF-32-BE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CR-
UTF-32-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::READ-SEQUENCE* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-32-BE-FORMAT T T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-STRING* (FLEXI-STREAMS::FLEXI-CRLF-
UTF-32-BE-FORMAT T T T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-CHAR-CODE (FLEXI-STREAMS::FLEXI-CR-
MIXIN T))
; (METHOD FLEXI-STREAMS::OCTETS-TO-CHAR-CODE (FLEXI-STREAMS::FLEXI-
CRLF-MIXIN T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\decode.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\in-memory.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS FLEXI-STREAMS:IN-MEMORY-STREAM)
; (DEFCLASS FLEXI-STREAMS:IN-MEMORY-INPUT-STREAM)
; (DEFCLASS FLEXI-STREAMS:IN-MEMORY-OUTPUT-STREAM)
; (DEFCLASS FLEXI-STREAMS:LIST-STREAM)
; (DEFCLASS FLEXI-STREAMS:VECTOR-STREAM)
; (DEFCLASS FLEXI-STREAMS::LIST-INPUT-STREAM)
; (DEFCLASS FLEXI-STREAMS::VECTOR-INPUT-STREAM)
; (DEFCLASS FLEXI-STREAMS::VECTOR-OUTPUT-STREAM)
; (METHOD FLEXI-STREAMS::CHECK-IF-OPEN (FLEXI-STREAMS:IN-MEMORY-
STREAM))
; (METHOD STREAM-ELEMENT-TYPE (FLEXI-STREAMS:IN-MEMORY-STREAM))
; (METHOD FLEXI-STREAMS::TRANSFORM-OCTET (FLEXI-STREAMS:IN-MEMORY-
STREAM T))
; (METHOD STREAM:STREAM-READ-BYTE (FLEXI-STREAMS::LIST-INPUT-STREAM))
; (METHOD STREAM:STREAM-LISTEN (FLEXI-STREAMS::LIST-INPUT-STREAM))
; (METHOD TRIVIAL-GRAY-STREAMS:STREAM-READ-SEQUENCE (FLEXI-
STREAMS::LIST-INPUT-STREAM T T T))
; (METHOD STREAM:STREAM-READ-BYTE (FLEXI-STREAMS::VECTOR-INPUT-
STREAM))
; (METHOD STREAM:STREAM-LISTEN (FLEXI-STREAMS::VECTOR-INPUT-STREAM))
; (METHOD TRIVIAL-GRAY-STREAMS:STREAM-READ-SEQUENCE (FLEXI-
STREAMS::VECTOR-INPUT-STREAM T T T))
; (METHOD STREAM:STREAM-WRITE-BYTE (FLEXI-STREAMS::VECTOR-OUTPUT-
STREAM T))
; (METHOD TRIVIAL-GRAY-STREAMS:STREAM-WRITE-SEQUENCE (FLEXI-
STREAMS::VECTOR-OUTPUT-STREAM T T T))
; (METHOD TRIVIAL-GRAY-STREAMS:STREAM-FILE-POSITION (FLEXI-
STREAMS::VECTOR-INPUT-STREAM))
; (METHOD (SETF TRIVIAL-GRAY-STREAMS:STREAM-FILE-POSITION) (T FLEXI-
STREAMS::VECTOR-INPUT-STREAM))
; (METHOD TRIVIAL-GRAY-STREAMS:STREAM-FILE-POSITION (FLEXI-
STREAMS::VECTOR-OUTPUT-STREAM))
; (METHOD (SETF TRIVIAL-GRAY-STREAMS:STREAM-FILE-POSITION) (T FLEXI-
STREAMS::VECTOR-OUTPUT-STREAM))
; (METHOD FLEXI-STREAMS:MAKE-IN-MEMORY-INPUT-STREAM (VECTOR))
; (METHOD FLEXI-STREAMS:MAKE-IN-MEMORY-INPUT-STREAM (LIST))
; FLEXI-STREAMS::MAKE-OUTPUT-VECTOR
; FLEXI-STREAMS:MAKE-IN-MEMORY-OUTPUT-STREAM
; (METHOD FLEXI-STREAMS:GET-OUTPUT-STREAM-SEQUENCE (FLEXI-STREAMS:IN-
MEMORY-OUTPUT-STREAM))
; (METHOD FLEXI-STREAMS:OUTPUT-STREAM-SEQUENCE-LENGTH (FLEXI-
STREAMS:IN-MEMORY-OUTPUT-STREAM))
; FLEXI-STREAMS:WITH-INPUT-FROM-SEQUENCE
; FLEXI-STREAMS:WITH-OUTPUT-TO-SEQUENCE
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\in-memory.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\stream.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS FLEXI-STREAMS:FLEXI-STREAM)
; (METHOD INITIALIZE-INSTANCE :AFTER (FLEXI-STREAMS:FLEXI-STREAM))
; (METHOD (SETF FLEXI-STREAMS:FLEXI-STREAM-EXTERNAL-FORMAT) :AROUND (T
FLEXI-STREAMS:FLEXI-STREAM))
; (METHOD (SETF FLEXI-STREAMS:FLEXI-STREAM-ELEMENT-TYPE) :BEFORE (T
FLEXI-STREAMS:FLEXI-STREAM))
; (METHOD STREAM-ELEMENT-TYPE (FLEXI-STREAMS:FLEXI-STREAM))
; (METHOD CLOSE (FLEXI-STREAMS:FLEXI-STREAM))
; (METHOD OPEN-STREAM-P (FLEXI-STREAMS:FLEXI-STREAM))
; (METHOD TRIVIAL-GRAY-STREAMS:STREAM-FILE-POSITION (FLEXI-
STREAMS:FLEXI-STREAM))
; (METHOD (SETF TRIVIAL-GRAY-STREAMS:STREAM-FILE-POSITION) (T FLEXI-
STREAMS:FLEXI-STREAM))
; (DEFCLASS FLEXI-STREAMS:FLEXI-OUTPUT-STREAM)
; (DEFCLASS FLEXI-STREAMS:FLEXI-INPUT-STREAM)
; (DEFCLASS FLEXI-STREAMS:FLEXI-IO-STREAM)
; FLEXI-STREAMS:MAKE-FLEXI-STREAM
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\stream.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\lw-char-stream.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CHAR-OUTPUT-STREAM)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CHAR-INPUT-STREAM)
; (DEFCLASS FLEXI-STREAMS::FLEXI-CHAR-IO-STREAM)
; (METHOD INITIALIZE-INSTANCE :AFTER (FLEXI-STREAMS:FLEXI-OUTPUT-
STREAM))
; (METHOD INITIALIZE-INSTANCE :AFTER (FLEXI-STREAMS:FLEXI-INPUT-
STREAM))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\lw-char-stream.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\output.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFGENERIC FLEXI-STREAMS::WRITE-BYTE*)
; (METHOD FLEXI-STREAMS::WRITE-BYTE* (T FLEXI-STREAMS:FLEXI-OUTPUT-
STREAM))
; (METHOD FLEXI-STREAMS::WRITE-BYTE* (T FLEXI-STREAMS::FLEXI-CHAR-
OUTPUT-STREAM))
; (METHOD STREAM:STREAM-WRITE-CHAR (FLEXI-STREAMS:FLEXI-OUTPUT-STREAM
T))
; (METHOD STREAM:STREAM-WRITE-CHAR :AFTER (FLEXI-STREAMS:FLEXI-OUTPUT-
STREAM T))
; (METHOD STREAM:STREAM-CLEAR-OUTPUT (FLEXI-STREAMS:FLEXI-OUTPUT-
STREAM))
; (METHOD STREAM:STREAM-FINISH-OUTPUT (FLEXI-STREAMS:FLEXI-OUTPUT-
STREAM))
; (METHOD STREAM:STREAM-FORCE-OUTPUT (FLEXI-STREAMS:FLEXI-OUTPUT-
STREAM))
; (METHOD STREAM:STREAM-LINE-COLUMN (FLEXI-STREAMS:FLEXI-OUTPUT-
STREAM))
; (METHOD STREAM:STREAM-WRITE-BYTE (FLEXI-STREAMS:FLEXI-OUTPUT-STREAM
T))
; (METHOD TRIVIAL-GRAY-STREAMS:STREAM-WRITE-SEQUENCE (FLEXI-
STREAMS:FLEXI-OUTPUT-STREAM T T T))
; (METHOD STREAM:STREAM-WRITE-STRING (FLEXI-STREAMS:FLEXI-OUTPUT-
STREAM T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\output.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\input.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (METHOD FLEXI-STREAMS::READ-BYTE* (FLEXI-STREAMS:FLEXI-INPUT-
STREAM))
; (METHOD FLEXI-STREAMS::READ-BYTE* (FLEXI-STREAMS::FLEXI-CHAR-INPUT-
STREAM))
; (METHOD STREAM:STREAM-CLEAR-INPUT (FLEXI-STREAMS:FLEXI-INPUT-
STREAM))
; (METHOD STREAM:STREAM-LISTEN (FLEXI-STREAMS:FLEXI-INPUT-STREAM))
; (METHOD STREAM:STREAM-READ-BYTE (FLEXI-STREAMS:FLEXI-INPUT-STREAM))
; FLEXI-STREAMS::UNREAD-CHAR%
; (METHOD STREAM:STREAM-READ-CHAR (FLEXI-STREAMS:FLEXI-INPUT-STREAM))
; (METHOD STREAM:STREAM-READ-CHAR-NO-HANG (FLEXI-STREAMS:FLEXI-INPUT-
STREAM))
; (METHOD TRIVIAL-GRAY-STREAMS:STREAM-READ-SEQUENCE (FLEXI-
STREAMS:FLEXI-INPUT-STREAM T T T))
; (METHOD STREAM:STREAM-UNREAD-CHAR (FLEXI-STREAMS:FLEXI-INPUT-STREAM
T))
; (METHOD FLEXI-STREAMS:UNREAD-BYTE (T FLEXI-STREAMS:FLEXI-INPUT-
STREAM))
; (METHOD FLEXI-STREAMS:PEEK-BYTE (FLEXI-STREAMS:FLEXI-INPUT-STREAM))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\input.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\io.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (METHOD FLEXI-STREAMS::RESET-INPUT-STATE (FLEXI-STREAMS:FLEXI-IO-
STREAM))
; (METHOD STREAM:STREAM-WRITE-BYTE :BEFORE (FLEXI-STREAMS:FLEXI-IO-
STREAM T))
; (METHOD STREAM:STREAM-WRITE-CHAR :BEFORE (FLEXI-STREAMS:FLEXI-IO-
STREAM T))
; (METHOD TRIVIAL-GRAY-STREAMS:STREAM-WRITE-SEQUENCE :BEFORE (FLEXI-
STREAMS:FLEXI-IO-STREAM T T T))
; (METHOD STREAM:STREAM-CLEAR-OUTPUT :BEFORE (FLEXI-STREAMS:FLEXI-IO-
STREAM))
; (METHOD FLEXI-STREAMS::RESET-OUTPUT-STATE (FLEXI-STREAMS:FLEXI-IO-
STREAM))
; (METHOD STREAM:STREAM-READ-BYTE :BEFORE (FLEXI-STREAMS:FLEXI-IO-
STREAM))
; (METHOD STREAM:STREAM-READ-CHAR :BEFORE (FLEXI-STREAMS:FLEXI-IO-
STREAM))
; (METHOD TRIVIAL-GRAY-STREAMS:STREAM-READ-SEQUENCE :BEFORE (FLEXI-
STREAMS:FLEXI-IO-STREAM T T T))
; (METHOD STREAM:STREAM-UNREAD-CHAR :BEFORE (FLEXI-STREAMS:FLEXI-IO-
STREAM T))
; (METHOD FLEXI-STREAMS:UNREAD-BYTE :BEFORE (T FLEXI-STREAMS:FLEXI-IO-
STREAM))
; (METHOD STREAM:STREAM-CLEAR-INPUT :BEFORE (FLEXI-STREAMS:FLEXI-IO-
STREAM))
; (METHOD FLEXI-STREAMS::WRITE-BYTE* :AFTER (T FLEXI-STREAMS:FLEXI-IO-
STREAM))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\io.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\flexi-
streams-1.0.7\strings.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; FLEXI-STREAMS:STRING-TO-OCTETS
; FLEXI-STREAMS:OCTETS-TO-STRING
; FLEXI-STREAMS:OCTET-LENGTH
; FLEXI-STREAMS:CHAR-LENGTH
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-
base64-3.3.2\package.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (DEFPACKAGE "CL-BASE64")
; (TOP-LEVEL-FORM 2)
; (DEFVAR CL-BASE64::*ENCODE-TABLE*)
; (TOP-LEVEL-FORM 4)
; (DEFVAR CL-BASE64:*URI-ENCODE-TABLE*)
; (TOP-LEVEL-FORM 6)
; (DEFTYPE CL-BASE64::DECODE-TABLE)
; CL-BASE64:MAKE-DECODE-TABLE
; (DEFVAR CL-BASE64::*DECODE-TABLE*)
; (DEFVAR CL-BASE64:*URI-DECODE-TABLE*)
; (DEFVAR CL-BASE64::*PAD-CHAR*)
; (DEFVAR CL-BASE64::*URI-PAD-CHAR*)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-base64-3.3.2\package.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-
base64-3.3.2\encode.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; CL-BASE64::ROUND-NEXT-MULTIPLE
; CL-BASE64::DEF-*-TO-BASE64-*
; CL-BASE64:STRING-TO-BASE64-STRING
; CL-BASE64:STRING-TO-BASE64-STREAM
; CL-BASE64:USB8-ARRAY-TO-BASE64-STRING
; CL-BASE64:USB8-ARRAY-TO-BASE64-STREAM
; CL-BASE64:INTEGER-TO-BASE64-STRING
; CL-BASE64:INTEGER-TO-BASE64-STREAM
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-
base64-3.3.2\decode.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; CL-BASE64::WHITESPACE-P
; CL-BASE64::WHITESPACE-P
; CL-BASE64::DEF-BASE64-STRING-TO-*
; CL-BASE64:BASE64-STRING-TO-STRING
; CL-BASE64:BASE64-STRING-TO-STREAM
; CL-BASE64:BASE64-STRING-TO-USB8-ARRAY
; CL-BASE64:BASE64-STRING-TO-INTEGER
; CL-BASE64:BASE64-STREAM-TO-INTEGER
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site
\chunga-1.0.0\packages.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "CHUNGA")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\chunga-1.0.0\packages.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\chunga-1.0.0\specials.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; CHUNGA::DEFINE-CONSTANT
; (TOP-LEVEL-FORM 3)
; (DEFCONSTANT CHUNGA::+OUTPUT-BUFFER-SIZE+)
; (DEFCONSTANT CHUNGA::+CRLF+)
; (DEFCONSTANT CHUNGA::+HEX-DIGITS+)
; (DEFVAR CHUNGA:*CURRENT-ERROR-MESSAGE*)
; (DEFVAR CHUNGA::*CURRENT-ERROR-FUNCTION*)
; (DEFVAR CHUNGA:*ACCEPT-BOGUS-EOLS*)
; (DEFVAR CHUNGA:*TREAT-SEMICOLON-AS-CONTINUATION*)
; (DEFVAR CHUNGA::*CHAR-BUFFER*)
; (TOP-LEVEL-FORM 12)
; (DEFVAR CHUNGA::*HYPERDOC-BASE-URI*)
; (TOP-LEVEL-FORM 14)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\chunga-1.0.0\specials.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\chunga-1.0.0\util.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; CHUNGA::ENDS-WITH-P
; CHUNGA::MAKE-KEYWORD
; CHUNGA:READ-CHAR*
; CHUNGA::UNREAD-CHAR*
; CHUNGA:PEEK-CHAR*
; CHUNGA:WITH-CHARACTER-STREAM-SEMANTICS
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\chunga-1.0.0\util.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\chunga-1.0.0\known-words.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCONSTANT CHUNGA::+KNOWN-WORDS+)
; (DEFCONSTANT CHUNGA::+STRING-TO-KEYWORD-HASH+)
; (DEFCONSTANT CHUNGA::+KEYWORD-TO-STRING-HASH+)
; CHUNGA:AS-KEYWORD
; CHUNGA:AS-CAPITALIZED-STRING
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\chunga-1.0.0\known-words.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\chunga-1.0.0\conditions.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (SUBFUNCTION (DEFCLASS CHUNGA::CHUNGA-CONDITION) (DEFINE-CONDITION
CHUNGA::CHUNGA-CONDITION))
; (DEFINE-CONDITION CHUNGA::CHUNGA-CONDITION)
; (SUBFUNCTION (DEFCLASS CHUNGA:CHUNGA-ERROR) (DEFINE-CONDITION
CHUNGA:CHUNGA-ERROR))
; (DEFINE-CONDITION CHUNGA:CHUNGA-ERROR)
; (SUBFUNCTION (DEFCLASS CHUNGA::CHUNGA-SIMPLE-ERROR) (DEFINE-
CONDITION CHUNGA::CHUNGA-SIMPLE-ERROR))
; (DEFINE-CONDITION CHUNGA::CHUNGA-SIMPLE-ERROR)
; (SUBFUNCTION (DEFCLASS CHUNGA::PARAMETER-ERROR) (DEFINE-CONDITION
CHUNGA::PARAMETER-ERROR))
; (DEFINE-CONDITION CHUNGA::PARAMETER-ERROR)
; (SUBFUNCTION (DEFCLASS CHUNGA:SYNTAX-ERROR) (DEFINE-CONDITION
CHUNGA:SYNTAX-ERROR))
; (DEFINE-CONDITION CHUNGA:SYNTAX-ERROR)
; (SUBFUNCTION (DEFCLASS CHUNGA:CHUNGA-WARNING) (DEFINE-CONDITION
CHUNGA:CHUNGA-WARNING))
; (DEFINE-CONDITION CHUNGA:CHUNGA-WARNING)
; (SUBFUNCTION (DEFCLASS CHUNGA::CHUNGA-SIMPLE-WARNING) (DEFINE-
CONDITION CHUNGA::CHUNGA-SIMPLE-WARNING))
; (DEFINE-CONDITION CHUNGA::CHUNGA-SIMPLE-WARNING)
; (SUBFUNCTION (DEFCLASS CHUNGA:INPUT-CHUNKING-UNEXPECTED-END-OF-FILE)
(DEFINE-CONDITION CHUNGA:INPUT-CHUNKING-UNEXPECTED-END-OF-FILE))
; (DEFINE-CONDITION CHUNGA:INPUT-CHUNKING-UNEXPECTED-END-OF-FILE)
; (SUBFUNCTION (DEFCLASS CHUNGA:INPUT-CHUNKING-BODY-CORRUPTED) (DEFINE-
CONDITION CHUNGA:INPUT-CHUNKING-BODY-CORRUPTED))
; (DEFINE-CONDITION CHUNGA:INPUT-CHUNKING-BODY-CORRUPTED)
; (DEFINE-CONDITION CHUNGA:INPUT-CHUNKING-BODY-CORRUPTED)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\chunga-1.0.0\conditions.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\chunga-1.0.0\read.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; CHUNGA::SIGNAL-UNEXPECTED-CHARS
; CHUNGA::CHARP
; CHUNGA::CONTROLP
; CHUNGA::SEPARATORP
; CHUNGA::WHITESPACEP
; CHUNGA::TOKEN-CHAR-P
; CHUNGA:ASSERT-CHAR
; CHUNGA::ASSERT-CRLF
; CHUNGA:READ-LINE*
; CHUNGA:TRIM-WHITESPACE
; CHUNGA:READ-HTTP-HEADERS
; CHUNGA:SKIP-WHITESPACE
; CHUNGA:READ-TOKEN
; CHUNGA::READ-QUOTED-STRING
; CHUNGA::READ-COOKIE-VALUE
; CHUNGA:READ-NAME-VALUE-PAIR
; CHUNGA:READ-NAME-VALUE-PAIRS
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\chunga-1.0.0\read.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\chunga-1.0.0\streams.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS CHUNGA:CHUNKED-STREAM)
; (DEFCLASS CHUNGA:CHUNKED-INPUT-STREAM)
; (DEFCLASS CHUNGA:CHUNKED-OUTPUT-STREAM)
; (DEFCLASS CHUNGA:CHUNKED-IO-STREAM)
; (METHOD STREAM-ELEMENT-TYPE (CHUNGA:CHUNKED-STREAM))
; (METHOD OPEN-STREAM-P (CHUNGA:CHUNKED-STREAM))
; (METHOD CLOSE (CHUNGA:CHUNKED-STREAM))
; CHUNGA:MAKE-CHUNKED-STREAM
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\chunga-1.0.0\streams.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\chunga-1.0.0\input.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (METHOD CHUNGA:CHUNKED-INPUT-STREAM-EXTENSIONS (T))
; (METHOD CHUNGA:CHUNKED-INPUT-STREAM-TRAILERS (T))
; (METHOD CHUNGA:CHUNKED-STREAM-INPUT-CHUNKING-P (T))
; (METHOD (SETF CHUNGA:CHUNKED-STREAM-INPUT-CHUNKING-P) (T
CHUNGA:CHUNKED-INPUT-STREAM))
; (METHOD STREAM:STREAM-CLEAR-INPUT (CHUNGA:CHUNKED-INPUT-STREAM))
; (METHOD CHUNGA::CHUNKED-INPUT-AVAILABLE-P (CHUNGA:CHUNKED-INPUT-
STREAM))
; (METHOD STREAM:STREAM-LISTEN (CHUNGA:CHUNKED-INPUT-STREAM))
; (METHOD CHUNGA::FILL-BUFFER (CHUNGA:CHUNKED-INPUT-STREAM))
; (METHOD STREAM:STREAM-READ-BYTE (CHUNGA:CHUNKED-INPUT-STREAM))
; (METHOD TRIVIAL-GRAY-STREAMS:STREAM-READ-SEQUENCE (CHUNGA:CHUNKED-
INPUT-STREAM T T T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\chunga-1.0.0\input.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\chunga-1.0.0\output.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (METHOD CHUNGA:CHUNKED-STREAM-OUTPUT-CHUNKING-P (T))
; (METHOD CHUNGA::WRITE-CHUNK (CHUNGA:CHUNKED-OUTPUT-STREAM T))
; (METHOD CHUNGA::FLUSH-BUFFER (CHUNGA:CHUNKED-OUTPUT-STREAM))
; (METHOD (SETF CHUNGA:CHUNKED-STREAM-OUTPUT-CHUNKING-P) (T
CHUNGA:CHUNKED-OUTPUT-STREAM))
; (METHOD STREAM:STREAM-CLEAR-OUTPUT (CHUNGA:CHUNKED-OUTPUT-STREAM))
; (METHOD STREAM:STREAM-FINISH-OUTPUT (CHUNGA:CHUNKED-OUTPUT-STREAM))
; (METHOD STREAM:STREAM-FORCE-OUTPUT (CHUNGA:CHUNKED-OUTPUT-STREAM))
; (METHOD STREAM:STREAM-WRITE-BYTE (CHUNGA:CHUNKED-OUTPUT-STREAM T))
; (METHOD TRIVIAL-GRAY-STREAMS:STREAM-WRITE-SEQUENCE (CHUNGA:CHUNKED-
OUTPUT-STREAM T T T))
; (METHOD CLOSE (CHUNGA:CHUNKED-OUTPUT-STREAM))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\chunga-1.0.0\output.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-base64-3.3.2\encode.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-base64-3.3.2\decode.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\flexi-streams-1.0.7\strings.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\md5-1.8.5\md5.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\rfc2388\rfc2388.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\url-rewrite\packages.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "URL-REWRITE")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\url-rewrite\packages.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\url-rewrite\specials.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFVAR URL-REWRITE:*URL-REWRITE-TAGS*)
; (DEFVAR URL-REWRITE:*URL-REWRITE-FILL-TAGS*)
; (DEFVAR URL-REWRITE::*FIND-STRING-HASH*)
; (DEFVAR URL-REWRITE::*HYPERDOC-BASE-URI*)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\url-rewrite\specials.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\url-rewrite\primitives.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; URL-REWRITE::PEEK-CHAR*
; URL-REWRITE::PEEK-CHAR*
; (TOP-LEVEL-FORM 4)
; URL-REWRITE::WHITESPACEP
; URL-REWRITE::WHITESPACEP
; (TOP-LEVEL-FORM 6)
; URL-REWRITE::LETTERP
; URL-REWRITE::LETTERP
; (TOP-LEVEL-FORM 8)
; URL-REWRITE::NAME-CHAR-P
; URL-REWRITE::NAME-CHAR-P
; URL-REWRITE::COMMENT-START-P
; URL-REWRITE::READ-WHILE
; URL-REWRITE::READ-UNTIL
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\url-rewrite\primitives.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\url-rewrite\util.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; URL-REWRITE::SKIP-WHITESPACE
; URL-REWRITE::SKIP-WHITESPACE
; URL-REWRITE::READ-DELIMITED-STRING
; (TOP-LEVEL-FORM 5)
; URL-REWRITE::READ-NAME
; URL-REWRITE::READ-NAME
; URL-REWRITE::READ-ATTRIBUTE
; URL-REWRITE::SKIP-COMMENT
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\url-rewrite\util.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\url-rewrite\url-rewrite.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; URL-REWRITE:STARTS-WITH-SCHEME-P
; URL-REWRITE:URL-ENCODE
; URL-REWRITE:ADD-GET-PARAM-TO-URL
; URL-REWRITE:REWRITE-URLS
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\url-rewrite\url-rewrite.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\packages.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "HUNCHENTOOT")
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\packages.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\lispworks.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; Loading D:\ue31057\sw\lw51\lib\5-1-0-0\load-on-demand\processes\comm-
defsys.lisp on demand...
;; Creating system COMM

; Loading text file D:\ue31057\sw\lw51\lib\5-1-0-0\load-on-demand
\processes\comm-pkg.lisp
; Loading fasl file D:\ue31057\sw\lw51\lib\5-1-0-0\load-on-demand
\processes\sockets.ofasl
; Loading fasl file D:\ue31057\sw\lw51\lib\5-1-0-0\load-on-demand
\processes\ssl-constants.ofasl
; Loading fasl file D:\ue31057\sw\lw51\lib\5-1-0-0\load-on-demand
\processes\ssl-foreign-types.ofasl
; Loading fasl file D:\ue31057\sw\lw51\lib\5-1-0-0\load-on-demand
\processes\ssl.ofasl
; Loading fasl file D:\ue31057\sw\lw51\lib\5-1-0-0\load-on-demand
\processes\ssl-certs.ofasl
; Loading fasl file D:\ue31057\sw\lw51\lib\5-1-0-0\patches\comm
\0001\0001.ofasl
; Loaded public patch COMM 1.1

; Loading fasl file D:\ue31057\sw\lw51\lib\5-1-0-0\patches\comm
\0001\0002.ofasl
; Loaded public patch COMM 1.2

; Loading fasl file D:\ue31057\sw\lw51\lib\5-1-0-0\patches\comm
\0001\0003.ofasl
; Loaded public patch COMM 1.3

; Loading fasl file D:\ue31057\sw\lw51\lib\5-1-0-0\patches\comm
\0001\0004.ofasl
; Loaded public patch COMM 1.4

; (TOP-LEVEL-FORM 2)
; HUNCHENTOOT::GET-ENV-VARIABLE-AS-DIRECTORY
; HUNCHENTOOT::WITH-REBINDING
; (DEFVAR HUNCHENTOOT:*CLEANUP-INTERVAL*)
; (DEFVAR HUNCHENTOOT:*CLEANUP-FUNCTION*)
; (DEFVAR HUNCHENTOOT::*WORKER-COUNTER*)
; HUNCHENTOOT::CLEANUP-FUNCTION
; HUNCHENTOOT::GET-PEER-ADDRESS-AND-PORT
; HUNCHENTOOT::MAKE-SOCKET-STREAM
; HUNCHENTOOT::MAKE-LOCK
; HUNCHENTOOT::WITH-LOCK-HELD
; (DSPEC:DEFINE-DSPEC-ALIAS HUNCHENTOOT::DEFVAR-UNBOUND)
; (DSPEC:DEFINE-DSPEC-ALIAS HUNCHENTOOT::DEF-HTTP-RETURN-CODE)
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\lispworks.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\specials.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; HUNCHENTOOT::DEFCONSTANT
; HUNCHENTOOT::DEFVAR-UNBOUND
; (DEFVAR HUNCHENTOOT::*HTTP-REASON-PHRASE-MAP*)
; HUNCHENTOOT::DEF-HTTP-RETURN-CODE
; (DEFCONSTANT HUNCHENTOOT::+CRLF+)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-CONTINUE+)
; (TOP-LEVEL-FORM 5)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-SWITCHING-PROTOCOLS+)
; (TOP-LEVEL-FORM 6)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-OK+)
; (TOP-LEVEL-FORM 7)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-CREATED+)
; (TOP-LEVEL-FORM 8)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-ACCEPTED+)
; (TOP-LEVEL-FORM 9)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-NON-AUTHORITATIVE-INFORMATION+)
; (TOP-LEVEL-FORM 10)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-NO-CONTENT+)
; (TOP-LEVEL-FORM 11)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-RESET-CONTENT+)
; (TOP-LEVEL-FORM 12)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-PARTIAL-CONTENT+)
; (TOP-LEVEL-FORM 13)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-MULTI-STATUS+)
; (TOP-LEVEL-FORM 14)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-MULTIPLE-CHOICES+)
; (TOP-LEVEL-FORM 15)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-MOVED-PERMANENTLY+)
; (TOP-LEVEL-FORM 16)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-MOVED-TEMPORARILY+)
; (TOP-LEVEL-FORM 17)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-SEE-OTHER+)
; (TOP-LEVEL-FORM 18)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-NOT-MODIFIED+)
; (TOP-LEVEL-FORM 19)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-USE-PROXY+)
; (TOP-LEVEL-FORM 20)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-TEMPORARY-REDIRECT+)
; (TOP-LEVEL-FORM 21)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-BAD-REQUEST+)
; (TOP-LEVEL-FORM 22)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-AUTHORIZATION-REQUIRED+)
; (TOP-LEVEL-FORM 23)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-PAYMENT-REQUIRED+)
; (TOP-LEVEL-FORM 24)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-FORBIDDEN+)
; (TOP-LEVEL-FORM 25)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-NOT-FOUND+)
; (TOP-LEVEL-FORM 26)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-METHOD-NOT-ALLOWED+)
; (TOP-LEVEL-FORM 27)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-NOT-ACCEPTABLE+)
; (TOP-LEVEL-FORM 28)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-PROXY-AUTHENTICATION-REQUIRED+)
; (TOP-LEVEL-FORM 29)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-REQUEST-TIME-OUT+)
; (TOP-LEVEL-FORM 30)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-CONFLICT+)
; (TOP-LEVEL-FORM 31)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-GONE+)
; (TOP-LEVEL-FORM 32)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-LENGTH-REQUIRED+)
; (TOP-LEVEL-FORM 33)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-PRECONDITION-FAILED+)
; (TOP-LEVEL-FORM 34)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-REQUEST-ENTITY-TOO-LARGE+)
; (TOP-LEVEL-FORM 35)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-REQUEST-URI-TOO-LARGE+)
; (TOP-LEVEL-FORM 36)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-UNSUPPORTED-MEDIA-TYPE+)
; (TOP-LEVEL-FORM 37)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-REQUESTED-RANGE-NOT-SATISFIABLE+)
; (TOP-LEVEL-FORM 38)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-EXPECTATION-FAILED+)
; (TOP-LEVEL-FORM 39)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-FAILED-DEPENDENCY+)
; (TOP-LEVEL-FORM 40)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-INTERNAL-SERVER-ERROR+)
; (TOP-LEVEL-FORM 41)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-NOT-IMPLEMENTED+)
; (TOP-LEVEL-FORM 42)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-BAD-GATEWAY+)
; (TOP-LEVEL-FORM 43)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-SERVICE-UNAVAILABLE+)
; (TOP-LEVEL-FORM 44)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-GATEWAY-TIME-OUT+)
; (TOP-LEVEL-FORM 45)
; (DEFCONSTANT HUNCHENTOOT:+HTTP-VERSION-NOT-SUPPORTED+)
; (TOP-LEVEL-FORM 46)
; (DEFVAR HUNCHENTOOT:*APPROVED-RETURN-CODES*)
; (DEFCONSTANT HUNCHENTOOT::+DAY-NAMES+)
; (DEFCONSTANT HUNCHENTOOT::+MONTH-NAMES+)
; (DEFVAR HUNCHENTOOT:*REWRITE-FOR-SESSION-URLS*)
; (DEFVAR HUNCHENTOOT:*CONTENT-TYPES-FOR-URL-REWRITE*)
; (DEFPARAMETER HUNCHENTOOT::*THE-RANDOM-STATE*)
; (DEFVAR HUNCHENTOOT:*SESSION-SECRET*)
; (TOP-LEVEL-FORM 53)
; (DEFVAR HUNCHENTOOT::*HUNCHENTOOT-STREAM*)
; (TOP-LEVEL-FORM 54)
; (DEFVAR HUNCHENTOOT::*CLOSE-HUNCHENTOOT-STREAM*)
; (DEFVAR HUNCHENTOOT::*HEADERS-SENT*)
; (DEFVAR HUNCHENTOOT:*FILE-UPLOAD-HOOK*)
; (DEFVAR HUNCHENTOOT::*SESSION-DB*)
; (DEFVAR HUNCHENTOOT:*SESSION-MAX-TIME*)
; (DEFVAR HUNCHENTOOT:*SESSION-GC-FREQUENCY*)
; (DEFVAR HUNCHENTOOT:*USE-USER-AGENT-FOR-SESSIONS*)
; (DEFVAR HUNCHENTOOT:*USE-REMOTE-ADDR-FOR-SESSIONS*)
; (DEFVAR HUNCHENTOOT:*DEFAULT-CONTENT-TYPE*)
; (DEFVAR HUNCHENTOOT:*METHODS-FOR-POST-PARAMETERS*)
; (DEFVAR HUNCHENTOOT:*HEADER-STREAM*)
; (DEFVAR HUNCHENTOOT:*SHOW-LISP-ERRORS-P*)
; (DEFVAR HUNCHENTOOT:*LOG-LISP-ERRORS-P*)
; (DEFVAR HUNCHENTOOT:*LOG-LISP-WARNINGS-P*)
; (DEFVAR HUNCHENTOOT:*LISP-ERRORS-LOG-LEVEL*)
; (DEFVAR HUNCHENTOOT:*LISP-WARNINGS-LOG-LEVEL*)
; (DEFVAR HUNCHENTOOT:*MESSAGE-LOG-PATHNAME*)
; (DEFVAR HUNCHENTOOT:*ACCESS-LOG-PATHNAME*)
; (DEFVAR HUNCHENTOOT::*MESSAGE-LOG-LOCK*)
; (DEFVAR HUNCHENTOOT::*ACCESS-LOG-LOCK*)
; (DEFVAR HUNCHENTOOT:*ACCEPTOR*)
; (TOP-LEVEL-FORM 75)
; (DEFVAR HUNCHENTOOT:*REQUEST*)
; (TOP-LEVEL-FORM 76)
; (DEFVAR HUNCHENTOOT:*REPLY*)
; (TOP-LEVEL-FORM 77)
; (DEFVAR HUNCHENTOOT:*SESSION*)
; (TOP-LEVEL-FORM 78)
; (DEFVAR HUNCHENTOOT::*BREAK-EVEN-WHILE-READING-REQUEST-TYPE-P*)
; (DEFCONSTANT HUNCHENTOOT::+IMPLEMENTATION-LINK+)
; (DEFVAR HUNCHENTOOT:*DISPATCH-TABLE*)
; (DEFVAR HUNCHENTOOT:*DEFAULT-HANDLER*)
; (DEFVAR HUNCHENTOOT::*EASY-HANDLER-ALIST*)
; (DEFVAR HUNCHENTOOT:*HTTP-ERROR-HANDLER*)
; (DEFVAR HUNCHENTOOT:*HANDLE-HTTP-ERRORS-P*)
; (DEFVAR HUNCHENTOOT:*SESSION-REMOVAL-HOOK*)
; (DEFVAR HUNCHENTOOT:*TMP-DIRECTORY*)
; (DEFVAR HUNCHENTOOT::*TMP-FILES*)
; (DEFCONSTANT HUNCHENTOOT::+LATIN-1+)
; (DEFCONSTANT HUNCHENTOOT::+UTF-8+)
; (DEFVAR HUNCHENTOOT:*HUNCHENTOOT-DEFAULT-EXTERNAL-FORMAT*)
; (DEFCONSTANT HUNCHENTOOT::+BUFFER-LENGTH+)
; (DEFVAR HUNCHENTOOT:*DEFAULT-CONNECTION-TIMEOUT*)
; (DEFINE-SYMBOL-MACRO HUNCHENTOOT::*SUPPORTS-THREADS-P*)
; (DEFVAR HUNCHENTOOT::*GLOBAL-SESSION-DB-LOCK*)
; (DEFCONSTANT HUNCHENTOOT::+NEW-CONNECTION-WAIT-TIME+)
; (TOP-LEVEL-FORM 97)
; (DEFVAR HUNCHENTOOT::*HYPERDOC-BASE-URI*)
; (TOP-LEVEL-FORM 99)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\specials.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\conditions.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (SUBFUNCTION (DEFCLASS HUNCHENTOOT:HUNCHENTOOT-CONDITION) (DEFINE-
CONDITION HUNCHENTOOT:HUNCHENTOOT-CONDITION))
; (DEFINE-CONDITION HUNCHENTOOT:HUNCHENTOOT-CONDITION)
; (SUBFUNCTION (DEFCLASS HUNCHENTOOT:HUNCHENTOOT-ERROR) (DEFINE-
CONDITION HUNCHENTOOT:HUNCHENTOOT-ERROR))
; (DEFINE-CONDITION HUNCHENTOOT:HUNCHENTOOT-ERROR)
; (SUBFUNCTION (DEFCLASS HUNCHENTOOT::HUNCHENTOOT-SIMPLE-ERROR)
(DEFINE-CONDITION HUNCHENTOOT::HUNCHENTOOT-SIMPLE-ERROR))
; (DEFINE-CONDITION HUNCHENTOOT::HUNCHENTOOT-SIMPLE-ERROR)
; HUNCHENTOOT:HUNCHENTOOT-ERROR
; (SUBFUNCTION (DEFCLASS HUNCHENTOOT:HUNCHENTOOT-WARNING) (DEFINE-
CONDITION HUNCHENTOOT:HUNCHENTOOT-WARNING))
; (DEFINE-CONDITION HUNCHENTOOT:HUNCHENTOOT-WARNING)
; (SUBFUNCTION (DEFCLASS HUNCHENTOOT::HUNCHENTOOT-SIMPLE-WARNING)
(DEFINE-CONDITION HUNCHENTOOT::HUNCHENTOOT-SIMPLE-WARNING))
; (DEFINE-CONDITION HUNCHENTOOT::HUNCHENTOOT-SIMPLE-WARNING)
; HUNCHENTOOT::HUNCHENTOOT-WARN
; (SUBFUNCTION (DEFCLASS HUNCHENTOOT:PARAMETER-ERROR) (DEFINE-
CONDITION HUNCHENTOOT:PARAMETER-ERROR))
; (DEFINE-CONDITION HUNCHENTOOT:PARAMETER-ERROR)
; HUNCHENTOOT:PARAMETER-ERROR
; (SUBFUNCTION (DEFCLASS HUNCHENTOOT::OPERATION-NOT-IMPLEMENTED)
(DEFINE-CONDITION HUNCHENTOOT::OPERATION-NOT-IMPLEMENTED))
; (DEFINE-CONDITION HUNCHENTOOT::OPERATION-NOT-IMPLEMENTED)
; (DEFINE-CONDITION HUNCHENTOOT::OPERATION-NOT-IMPLEMENTED)
; HUNCHENTOOT::NOT-IMPLEMENTED
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\conditions.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\mime-types.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPARAMETER HUNCHENTOOT::*MIME-TYPE-LIST*)
; (DEFPARAMETER HUNCHENTOOT::*MIME-TYPE-HASH*)
; HUNCHENTOOT:MIME-TYPE
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\mime-types.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\util.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; HUNCHENTOOT::STARTS-WITH-P
; HUNCHENTOOT::STARTS-WITH-ONE-OF-P
; HUNCHENTOOT::CREATE-RANDOM-STRING
; HUNCHENTOOT:REASON-PHRASE
; (DEFGENERIC HUNCHENTOOT::ASSOC*)
; HUNCHENTOOT::MD5-HEX
; HUNCHENTOOT:ESCAPE-FOR-HTML
; HUNCHENTOOT:HTTP-TOKEN-P
; HUNCHENTOOT:RFC-1123-DATE
; HUNCHENTOOT::ISO-TIME
; (TOP-LEVEL-FORM 12)
; HUNCHENTOOT::QUOTE-STRING
; HUNCHENTOOT::UPGRADE-VECTOR
; HUNCHENTOOT:URL-DECODE
; HUNCHENTOOT::FORM-URL-ENCODED-LIST-TO-ALIST
; HUNCHENTOOT:URL-ENCODE
; HUNCHENTOOT::PARSE-CONTENT-TYPE
; HUNCHENTOOT::KEEP-ALIVE-P
; HUNCHENTOOT::ADDRESS-STRING
; HUNCHENTOOT::SERVER-NAME-HEADER
; HUNCHENTOOT::INPUT-CHUNKING-P
; HUNCHENTOOT:SSL-P
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\util.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\log.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; HUNCHENTOOT::WITH-LOG-FILE
; HUNCHENTOOT::LOG-MESSAGE-TO-FILE
; HUNCHENTOOT::LOG-ACCESS-TO-FILE
; HUNCHENTOOT:LOG-MESSAGE
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\log.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\cookie.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS HUNCHENTOOT::COOKIE)
; (METHOD INITIALIZE-INSTANCE :AROUND (HUNCHENTOOT::COOKIE))
; HUNCHENTOOT:SET-COOKIE*
; HUNCHENTOOT:SET-COOKIE
; HUNCHENTOOT::COOKIE-DATE
; (METHOD HUNCHENTOOT::STRINGIFY-COOKIE (HUNCHENTOOT::COOKIE))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\cookie.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\reply.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS HUNCHENTOOT:REPLY)
; (METHOD INITIALIZE-INSTANCE :AFTER (HUNCHENTOOT:REPLY))
; HUNCHENTOOT:HEADERS-OUT*
; HUNCHENTOOT:COOKIES-OUT*
; (SETF HUNCHENTOOT:COOKIES-OUT*)
; HUNCHENTOOT:CONTENT-TYPE*
; (SETF HUNCHENTOOT:CONTENT-TYPE*)
; HUNCHENTOOT:CONTENT-LENGTH*
; (SETF HUNCHENTOOT:CONTENT-LENGTH*)
; HUNCHENTOOT:RETURN-CODE*
; (SETF HUNCHENTOOT:RETURN-CODE*)
; HUNCHENTOOT:REPLY-EXTERNAL-FORMAT*
; (SETF HUNCHENTOOT:REPLY-EXTERNAL-FORMAT*)
; HUNCHENTOOT::HEADER-OUT-SET-P
; HUNCHENTOOT:HEADER-OUT
; HUNCHENTOOT:COOKIE-OUT
; (DEFGENERIC (SETF HUNCHENTOOT:HEADER-OUT))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\reply.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\request.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS HUNCHENTOOT:REQUEST)
; (DEFGENERIC HUNCHENTOOT:PROCESS-REQUEST)
; HUNCHENTOOT::CONVERT-HACK
; HUNCHENTOOT::PARSE-RFC2388-FORM-DATA
; HUNCHENTOOT::GET-POST-DATA
; (METHOD INITIALIZE-INSTANCE :AFTER (HUNCHENTOOT:REQUEST))
; (METHOD HUNCHENTOOT:PROCESS-REQUEST (T))
; HUNCHENTOOT::PARSE-MULTIPART-FORM-DATA
; HUNCHENTOOT::MAYBE-READ-POST-PARAMETERS
; HUNCHENTOOT:RECOMPUTE-REQUEST-PARAMETERS
; HUNCHENTOOT:SCRIPT-NAME*
; HUNCHENTOOT:QUERY-STRING*
; HUNCHENTOOT:GET-PARAMETERS*
; (METHOD HUNCHENTOOT:POST-PARAMETERS :BEFORE (HUNCHENTOOT:REQUEST))
; HUNCHENTOOT:POST-PARAMETERS*
; HUNCHENTOOT:HEADERS-IN*
; HUNCHENTOOT:COOKIES-IN*
; (DEFGENERIC HUNCHENTOOT:HEADER-IN)
; HUNCHENTOOT:HEADER-IN*
; HUNCHENTOOT:AUTHORIZATION
; HUNCHENTOOT:REMOTE-ADDR*
; HUNCHENTOOT:REMOTE-PORT*
; HUNCHENTOOT:REAL-REMOTE-ADDR
; HUNCHENTOOT:HOST
; HUNCHENTOOT:REQUEST-URI*
; HUNCHENTOOT:REQUEST-METHOD*
; HUNCHENTOOT:SERVER-PROTOCOL*
; HUNCHENTOOT:USER-AGENT
; HUNCHENTOOT:COOKIE-IN
; HUNCHENTOOT:REFERER
; HUNCHENTOOT:GET-PARAMETER
; HUNCHENTOOT:POST-PARAMETER
; HUNCHENTOOT:PARAMETER
; HUNCHENTOOT:HANDLE-IF-MODIFIED-SINCE
; HUNCHENTOOT::EXTERNAL-FORMAT-FROM-CONTENT-TYPE
; HUNCHENTOOT:RAW-POST-DATA
; HUNCHENTOOT:AUX-REQUEST-VALUE
; (DEFSETF HUNCHENTOOT:AUX-REQUEST-VALUE)
; HUNCHENTOOT:DELETE-AUX-REQUEST-VALUE
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\request.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\session.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFGENERIC HUNCHENTOOT:SESSION-DB-LOCK)
; (METHOD HUNCHENTOOT:SESSION-DB-LOCK (T))
; HUNCHENTOOT::WITH-SESSION-LOCK-HELD
; (DEFGENERIC HUNCHENTOOT:SESSION-DB)
; (METHOD HUNCHENTOOT:SESSION-DB (T))
; (DEFGENERIC (SETF HUNCHENTOOT:SESSION-DB))
; (METHOD (SETF HUNCHENTOOT:SESSION-DB) (T T))
; (DEFGENERIC HUNCHENTOOT:NEXT-SESSION-ID)
; (TOP-LEVEL-FORM 10)
; (DEFCLASS HUNCHENTOOT:SESSION)
; HUNCHENTOOT::ENCODE-SESSION-STRING
; HUNCHENTOOT::STRINGIFY-SESSION
; (METHOD INITIALIZE-INSTANCE :AFTER (HUNCHENTOOT:SESSION))
; HUNCHENTOOT:SESSION-GC
; HUNCHENTOOT:SESSION-VALUE
; (DEFSETF HUNCHENTOOT:SESSION-VALUE)
; HUNCHENTOOT:DELETE-SESSION-VALUE
; (DEFGENERIC HUNCHENTOOT:SESSION-COOKIE-VALUE)
; (METHOD HUNCHENTOOT:SESSION-COOKIE-VALUE (HUNCHENTOOT:SESSION))
; (DEFGENERIC HUNCHENTOOT:SESSION-COOKIE-NAME)
; (METHOD HUNCHENTOOT:SESSION-COOKIE-NAME (T))
; (DEFGENERIC HUNCHENTOOT:SESSION-CREATED)
; (TOP-LEVEL-FORM 24)
; HUNCHENTOOT:START-SESSION
; HUNCHENTOOT:REMOVE-SESSION
; HUNCHENTOOT:SESSION-TOO-OLD-P
; HUNCHENTOOT::GET-STORED-SESSION
; (DEFGENERIC HUNCHENTOOT:SESSION-VERIFY)
; (METHOD HUNCHENTOOT:SESSION-VERIFY (HUNCHENTOOT:REQUEST))
; HUNCHENTOOT:RESET-SESSION-SECRET
; HUNCHENTOOT:RESET-SESSIONS
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\session.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\misc.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; HUNCHENTOOT::MAYBE-REWRITE-URLS-FOR-SESSION
; HUNCHENTOOT:DEFAULT-DISPATCHER
; HUNCHENTOOT::DEFAULT-HANDLER
; HUNCHENTOOT:CREATE-PREFIX-DISPATCHER
; HUNCHENTOOT:CREATE-REGEX-DISPATCHER
; HUNCHENTOOT:ABORT-REQUEST-HANDLER
; HUNCHENTOOT:HANDLE-STATIC-FILE
; HUNCHENTOOT:CREATE-STATIC-FILE-DISPATCHER-AND-HANDLER
; HUNCHENTOOT::ENOUGH-URL
; HUNCHENTOOT:CREATE-FOLDER-DISPATCHER-AND-HANDLER
; HUNCHENTOOT:NO-CACHE
; HUNCHENTOOT:REDIRECT
; HUNCHENTOOT:REQUIRE-AUTHORIZATION
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\misc.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\easy-handlers.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; HUNCHENTOOT::COMPUTE-REAL-NAME
; HUNCHENTOOT::CONVERT-PARAMETER
; HUNCHENTOOT::COMPUTE-SIMPLE-PARAMETER
; HUNCHENTOOT::COMPUTE-LIST-PARAMETER
; HUNCHENTOOT::COMPUTE-ARRAY-PARAMETER
; HUNCHENTOOT::COMPUTE-HASH-TABLE-PARAMETER
; HUNCHENTOOT::COMPUTE-PARAMETER
; HUNCHENTOOT::MAKE-DEFUN-PARAMETER
; HUNCHENTOOT:DEFINE-EASY-HANDLER
; (DSPEC:DEFINE-FORM-PARSER HUNCHENTOOT:DEFINE-EASY-HANDLER)
; (SUBFUNCTION HUNCHENTOOT::DEFINE-EASY-HANDLER-FORM-PARSER
(DSPEC:DEFINE-FORM-PARSER HUNCHENTOOT:DEFINE-EASY-HANDLER))
; (DSPEC:DEFINE-DSPEC-ALIAS HUNCHENTOOT:DEFINE-EASY-HANDLER)
; HUNCHENTOOT:DISPATCH-EASY-HANDLERS
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\easy-handlers.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\headers.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; HUNCHENTOOT::MAYBE-WRITE-TO-HEADER-STREAM
; (DEFGENERIC HUNCHENTOOT::WRITE-HEADER-LINE)
; HUNCHENTOOT::START-OUTPUT
; HUNCHENTOOT:SEND-HEADERS
; HUNCHENTOOT::READ-INITIAL-REQUEST-LINE
; HUNCHENTOOT::GET-REQUEST-DATA
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\headers.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\set-timeouts.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; HUNCHENTOOT::SET-TIMEOUTS
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\set-timeouts.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\taskmaster.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS HUNCHENTOOT:TASKMASTER)
; (DEFGENERIC HUNCHENTOOT:EXECUTE-ACCEPTOR)
; (DEFGENERIC HUNCHENTOOT:HANDLE-INCOMING-CONNECTION)
; (DEFGENERIC HUNCHENTOOT:SHUTDOWN)
; (DEFCLASS HUNCHENTOOT:SINGLE-THREADED-TASKMASTER)
; (METHOD HUNCHENTOOT:EXECUTE-ACCEPTOR (HUNCHENTOOT:SINGLE-THREADED-
TASKMASTER))
; (METHOD HUNCHENTOOT:HANDLE-INCOMING-CONNECTION (HUNCHENTOOT:SINGLE-
THREADED-TASKMASTER T))
; (DEFCLASS HUNCHENTOOT:ONE-THREAD-PER-CONNECTION-TASKMASTER)
; (METHOD HUNCHENTOOT:SHUTDOWN (HUNCHENTOOT:TASKMASTER))
; (METHOD HUNCHENTOOT:EXECUTE-ACCEPTOR (HUNCHENTOOT:ONE-THREAD-PER-
CONNECTION-TASKMASTER))
; (METHOD HUNCHENTOOT:HANDLE-INCOMING-CONNECTION (HUNCHENTOOT:ONE-
THREAD-PER-CONNECTION-TASKMASTER T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\taskmaster.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\acceptor.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS HUNCHENTOOT:ACCEPTOR)
; (METHOD PRINT-OBJECT (HUNCHENTOOT:ACCEPTOR T))
; (DEFGENERIC HUNCHENTOOT:START)
; (DEFGENERIC HUNCHENTOOT:STOP)
; (DEFGENERIC HUNCHENTOOT:START-LISTENING)
; (DEFGENERIC HUNCHENTOOT:ACCEPT-CONNECTIONS)
; (DEFGENERIC HUNCHENTOOT:INITIALIZE-CONNECTION-STREAM)
; (DEFGENERIC HUNCHENTOOT:RESET-CONNECTION-STREAM)
; (DEFGENERIC HUNCHENTOOT:PROCESS-CONNECTION)
; (DEFGENERIC HUNCHENTOOT:ACCEPTOR-SSL-P)
; (METHOD HUNCHENTOOT:START (HUNCHENTOOT:ACCEPTOR))
; (METHOD HUNCHENTOOT:STOP (HUNCHENTOOT:ACCEPTOR))
; (METHOD HUNCHENTOOT:INITIALIZE-CONNECTION-STREAM
(HUNCHENTOOT:ACCEPTOR T))
; (METHOD HUNCHENTOOT:RESET-CONNECTION-STREAM (HUNCHENTOOT:ACCEPTOR
T))
; (METHOD HUNCHENTOOT:PROCESS-CONNECTION :AROUND (HUNCHENTOOT:ACCEPTOR
T))
; (METHOD HUNCHENTOOT:PROCESS-CONNECTION (HUNCHENTOOT:ACCEPTOR T))
; (METHOD HUNCHENTOOT:ACCEPTOR-SSL-P (T))
; (METHOD HUNCHENTOOT:START-LISTENING (HUNCHENTOOT:ACCEPTOR))
; (METHOD HUNCHENTOOT:ACCEPT-CONNECTIONS (HUNCHENTOOT:ACCEPTOR))
; HUNCHENTOOT::LIST-REQUEST-DISPATCHER
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\acceptor.ofasl
;;; Compiling file d:\ue31057\old\base\external\site
\hunchentoot-1.0.0\ssl.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS HUNCHENTOOT:SSL-ACCEPTOR)
; (METHOD HUNCHENTOOT:ACCEPTOR-SSL-P (HUNCHENTOOT:SSL-ACCEPTOR))
; (METHOD INITIALIZE-INSTANCE :AFTER (HUNCHENTOOT:SSL-ACCEPTOR))
; HUNCHENTOOT::MAKE-SSL-SERVER-STREAM
; (METHOD HUNCHENTOOT:INITIALIZE-CONNECTION-STREAM (HUNCHENTOOT:SSL-
ACCEPTOR T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\utilities\dates-and-times.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\utilities\files.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\utilities\sequences.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\utilities\spy.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\utilities\strings.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\utilities\utilities.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\utilities\searching.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\utilities\views-and-windows.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\metatilities\dev\unsupported\generic-interface-
support.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\hunchentoot-1.0.0\ssl.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-json\src\json-rpc.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\portableaserve\libs\puri-1.3.1\src.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\fare-matcher\mrd-extensions.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-cont\src\helper-transformers.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-cont\src\walker.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\parenscript-20090216\runtime\ps-runtime-lib.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\anaphora-0.9.3\anaphora.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\f-underscore\f-underscore.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\bordeaux-threads_0.5.1\src\condition-variables.ofasl
Warning: (DEFUN CONDITION-WAIT) being redefined in d:\ue31057\old\base
\external\site\bordeaux-threads_0.5.1\src\condition-variables.lisp
(previously in d:\ue31057\old\base\external\site\bordeaux-
threads_0.5.1\src\default-implementations.lisp).
Warning: (DEFUN CONDITION-NOTIFY) being redefined in d:\ue31057\old
\base\external\site\bordeaux-threads_0.5.1\src\condition-
variables.lisp (previously in d:\ue31057\old\base\external\site
\bordeaux-threads_0.5.1\src\default-implementations.lisp).
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\weblocks.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; WITHOUT-PACKAGE-VARIANCE-WARNINGS
; (DEFPACKAGE "WEBLOCKS")
; (DEFPACKAGE "WEBLOCKS-CONT")
; (DEFPACKAGE "WEBLOCKS-UTIL")
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)
; WEBLOCKS::WEXPORT
; (DEFPARAMETER WEBLOCKS::*WEBLOCKS-OUTPUT-STREAM*)
; (DEFPARAMETER WEBLOCKS::*DIRTY-WIDGETS*)
; (DEFVAR WEBLOCKS::*AUTOSTARTING-WEBAPPS*)
; (DEFVAR WEBLOCKS::*ACTIVE-WEBAPPS*)
; WEBLOCKS::CL-ESCAPE-STRING
; (METHOD CL-WHO:CONVERT-TAG-TO-STRING-LIST (T LIST T T))
; WEBLOCKS::WITH-HTML
; WEBLOCKS::WITH-HTML-TO-STRING
; WEBLOCKS::ESCAPE-SCRIPT-TAGS
; WEBLOCKS::%JS
; WEBLOCKS::WITH-JAVASCRIPT
; WEBLOCKS::WITH-JAVASCRIPT-TO-STRING
; WEBLOCKS::ROOT-COMPOSITE
; (TOP-LEVEL-FORM 20)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\weblocks.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\utils\misc.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; WEBLOCKS::GEN-ID
; (TOP-LEVEL-FORM 4)
; (DEFGENERIC WEBLOCKS::HUMANIZE-NAME)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)
; (DEFGENERIC WEBLOCKS::ATTRIBUTIZE-NAME)
; (TOP-LEVEL-FORM 5)
; WEBLOCKS::UNATTRIBUTIZED-NAME
; WEBLOCKS::LIST->ASSOC
; WEBLOCKS::INSERT-AFTER
; WEBLOCKS::INSERT-AT
; WEBLOCKS::SLOT-VALUE-BY-PATH
; WEBLOCKS::SAFE-APPLY
; WEBLOCKS::SAFE-FUNCALL
; WEBLOCKS::REQUEST-PARAMETER
; WEBLOCKS::REQUEST-PARAMETERS
; WEBLOCKS::STRING-WHITESPACE-P
; (METHOD WEBLOCKS::RENDER-EXTRA-TAGS (T T))
; WEBLOCKS::WITH-EXTRA-TAGS
; WEBLOCKS::ALIST->PLIST
; WEBLOCKS::INTERSPERSE
; WEBLOCKS::REMOVE-KEYWORD-PARAMETER
; WEBLOCKS::REMOVE-KEYWORD-PARAMETERS
; WEBLOCKS::TOKENIZE-URI
; WEBLOCKS::PUBLIC-FILE-RELATIVE-PATH
; WEBLOCKS::PUBLIC-FILES-RELATIVE-PATHS
; WEBLOCKS::REQUEST-URI-PATH
; WEBLOCKS::STRING-REMOVE-LEFT
; WEBLOCKS::STRING-REMOVE-RIGHT
; METABANG.UTILITIES:FIND-ALL
; METABANG.UTILITIES:FIND-ALL
; WEBLOCKS::STABLE-SET-DIFFERENCE
; WEBLOCKS::SYMBOL-STATUS
; WEBLOCKS::STRING-INVERT-CASE
; WEBLOCKS::NINSERT
; (METHOD PURI:URI (PATHNAME))
; WEBLOCKS::ADD-GET-PARAM-TO-URL
; WEBLOCKS::REMOVE-PARAMETER-FROM-URI
; WEBLOCKS::ASDF-SYSTEM-DIRECTORY
; WEBLOCKS::MAKE-ISEARCH-REGEX
; WEBLOCKS::HASH-KEYS
; (TOP-LEVEL-FORM 39)
; (DEFGENERIC WEBLOCKS::OBJECT-CLASS-NAME)
; (TOP-LEVEL-FORM 39)
; WEBLOCKS::APPEND-CUSTOM-FIELDS
; WEBLOCKS::FIND-SLOT-DSD
; WEBLOCKS::FIND-SLOT-ESD
; WEBLOCKS::DROP-LAST
; WEBLOCKS::FUNCTION-DESIGNATOR-P
; WEBLOCKS::LIST-STARTS-WITH
; WEBLOCKS::SAFE-SUBSEQ
; WEBLOCKS::FIND-OWN-SYMBOL
; WEBLOCKS::REMOVE-SPURIOUS-SLASHES
; WEBLOCKS::STRIP-TRAILING-SLASHES
; WEBLOCKS::MAYBE-ADD-TRAILING-SLASH
; WEBLOCKS::CONGRUENT-LAMBDA-EXPRESSION
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\utils\runtime-class.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; WEBLOCKS::MAKE-CLASS
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\utils\misc.ofasl
Warning: (DEFUN FIND-ALL) being redefined in d:\ue31057\old\base
\external\site\weblocks-stable\src\utils\misc.lisp (previously in d:
\ue31057\old\base\external\site\metatilities\dev\utilities
\utilities.lisp).
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\utils\runtime-class.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\store\store-api.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; (DEFGENERIC WEBLOCKS::OPEN-STORE)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 4)
; (DEFGENERIC WEBLOCKS::CLOSE-STORE)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)
; (DEFGENERIC WEBLOCKS::CLEAN-STORE)
; (TOP-LEVEL-FORM 5)
; (DEFVAR WEBLOCKS::*DEFAULT-STORE*)
; (TOP-LEVEL-FORM 7)
; (DEFGENERIC WEBLOCKS::BEGIN-TRANSACTION)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 8)
; (DEFGENERIC WEBLOCKS::COMMIT-TRANSACTION)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 9)
; (DEFGENERIC WEBLOCKS::ROLLBACK-TRANSACTION)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 10)
; (DEFGENERIC WEBLOCKS::DYNAMIC-TRANSACTION)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 11)
; (DEFGENERIC WEBLOCKS::USE-DYNAMIC-TRANSACTION-P)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 12)
; (DEFGENERIC WEBLOCKS::PERSIST-OBJECT)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 13)
; (DEFGENERIC WEBLOCKS::DELETE-PERSISTENT-OBJECT)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 14)
; (DEFGENERIC WEBLOCKS::DELETE-PERSISTENT-OBJECT-BY-ID)
; (TOP-LEVEL-FORM 14)
; (TOP-LEVEL-FORM 15)
; (DEFGENERIC WEBLOCKS::FIND-PERSISTENT-OBJECT-BY-ID)
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 16)
; (DEFGENERIC WEBLOCKS::FIND-PERSISTENT-OBJECTS)
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 17)
; (DEFGENERIC WEBLOCKS::COUNT-PERSISTENT-OBJECTS)
; (TOP-LEVEL-FORM 17)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\store\store-utils.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; (DEFGENERIC WEBLOCKS::CLASS-ID-SLOT-NAME)
; (TOP-LEVEL-FORM 3)
; (METHOD WEBLOCKS::CLASS-ID-SLOT-NAME (T))
; WEBLOCKS::OBJECT-ID-SLOT-NAME
; (TOP-LEVEL-FORM 6)
; (DEFGENERIC WEBLOCKS::OBJECT-ID)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 7)
; (DEFGENERIC (SETF WEBLOCKS::OBJECT-ID))
; (TOP-LEVEL-FORM 7)
; (METHOD (SETF WEBLOCKS::OBJECT-ID) (T STANDARD-OBJECT))
; (TOP-LEVEL-FORM 9)
; (DEFGENERIC WEBLOCKS::CLASS-STORE)
; (TOP-LEVEL-FORM 9)
;;;*** Warning in (METHOD WEBLOCKS::CLASS-STORE (T)):
WEBLOCKS::*DEFAULT-STORE* assumed special
; (METHOD WEBLOCKS::CLASS-STORE (T))
; WEBLOCKS::OBJECT-STORE
; (SUBFUNCTION (DEFSETF WEBLOCKS::STORE-INFO-ARGS) (DEFSTRUCT
WEBLOCKS::STORE-INFO))
; (SUBFUNCTION (DEFSETF WEBLOCKS::STORE-INFO-TYPE) (DEFSTRUCT
WEBLOCKS::STORE-INFO))
; (SUBFUNCTION WEBLOCKS::MAKE-STORE-INFO (DEFSTRUCT WEBLOCKS::STORE-
INFO))
; (SUBFUNCTION WEBLOCKS::MAKE-STORE-INFO (DEFSTRUCT WEBLOCKS::STORE-
INFO))
; (DEFVAR WEBLOCKS::*STORES*)
; (DEFVAR WEBLOCKS::*STORE-NAMES*)
; WEBLOCKS::DEFSTORE
; WEBLOCKS::OPEN-STORES
; WEBLOCKS::CLOSE-STORES
; WEBLOCKS::MAPSTORES
; WEBLOCKS::PERSIST-OBJECTS
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "store-utils" 21E4CE6B>.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\actions.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFVAR WEBLOCKS::*EXPIRED-ACTION-HANDLER*)
; (TOP-LEVEL-FORM 4)
; (DEFGENERIC WEBLOCKS::EXPIRED-ACTION-HANDLER)
; (TOP-LEVEL-FORM 4)
; WEBLOCKS::DEFAULT-EXPIRED-ACTION-HANDLER
; (TOP-LEVEL-FORM 6)
; (DEFGENERIC WEBLOCKS::PAGE-NOT-FOUND-HANDLER)
; (TOP-LEVEL-FORM 6)
; (DEFPARAMETER WEBLOCKS::*ACTION-STRING*)
; WEBLOCKS::GENERATE-ACTION-CODE
; WEBLOCKS::MAKE-ACTION
; WEBLOCKS::FUNCTION-OR-ACTION->ACTION
; WEBLOCKS::MAKE-ACTION-URL
; WEBLOCKS::GET-REQUEST-ACTION-NAME
; WEBLOCKS::GET-REQUEST-ACTION
; WEBLOCKS::EVAL-ACTION
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\actions.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\debug-mode.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
;;;*** Warning in WEBLOCKS::ENABLE-GLOBAL-DEBUGGING:
WEBLOCKS::*MAINTAIN-LAST-SESSION* assumed special
;;;*** Warning in WEBLOCKS::ENABLE-GLOBAL-DEBUGGING:
WEBLOCKS::*MAINTAIN-LAST-SESSION* assumed special in SETQ
; WEBLOCKS::ENABLE-GLOBAL-DEBUGGING
;;;*** Warning in WEBLOCKS::DISABLE-GLOBAL-DEBUGGING:
WEBLOCKS::*MAINTAIN-LAST-SESSION* assumed special in SETQ
; WEBLOCKS::DISABLE-GLOBAL-DEBUGGING
; WEBLOCKS::RENDER-DEBUG-TOOLBAR
; WEBLOCKS::INITIALIZE-DEBUG-ACTIONS
; WEBLOCKS::STYLE-WARN
; (DEFINE-COMPILER-MACRO WEBLOCKS::STYLE-WARN)
; (SUBFUNCTION (DEFCLASS WEBLOCKS::WEBAPP-STYLE-WARNING) (DEFINE-
CONDITION WEBLOCKS::WEBAPP-STYLE-WARNING))
; (DEFINE-CONDITION WEBLOCKS::WEBAPP-STYLE-WARNING)
; (SUBFUNCTION (DEFCLASS WEBLOCKS::NON-IDEMPOTENT-RENDERING) (DEFINE-
CONDITION WEBLOCKS::NON-IDEMPOTENT-RENDERING))
; (DEFINE-CONDITION WEBLOCKS::NON-IDEMPOTENT-RENDERING)
; (DEFINE-CONDITION WEBLOCKS::NON-IDEMPOTENT-RENDERING)
; WEBLOCKS::REPORT-NON-IDEMPOTENT-RENDERING
; (SUBFUNCTION (DEFCLASS WEBLOCKS::MISUNDERSTOOD-ACTION) (DEFINE-
CONDITION WEBLOCKS::MISUNDERSTOOD-ACTION))
; (DEFINE-CONDITION WEBLOCKS::MISUNDERSTOOD-ACTION)
; (DEFINE-CONDITION WEBLOCKS::MISUNDERSTOOD-ACTION)
; WEBLOCKS::REPORT-MISUNDERSTOOD-ACTION
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "debug-mode" 21E5111B>.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\acceptor.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::WEBLOCKS-ACCEPTOR)
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::WEBLOCKS-ACCEPTOR))
; (METHOD HUNCHENTOOT:PROCESS-CONNECTION (WEBLOCKS::WEBLOCKS-ACCEPTOR
T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\acceptor.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\debug-mode.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\store\store-api.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\store\store-utils.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\server.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFVAR WEBLOCKS::*WEBLOCKS-SERVER*)
; (DEFPARAMETER WEBLOCKS::*MAINTAIN-LAST-SESSION*)
; (DEFVAR WEBLOCKS::*LAST-SESSION*)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 7)
; WEBLOCKS::START-WEBLOCKS
; WEBLOCKS::STOP-WEBLOCKS
; WEBLOCKS::COMPUTE-PUBLIC-FILES-PATH
; WEBLOCKS::WEBLOCKS-DISPATCHER
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 13)
; WEBLOCKS::SESSION-NAME-STRING-PAIR
; WEBLOCKS::SERVER-TYPE
; WEBLOCKS::SERVER-VERSION
; WEBLOCKS::ACTIVE-SESSIONS
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\server.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\dependencies.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::DEPENDENCY)
; (DEFCLASS WEBLOCKS::URL-DEPENDENCY-MIXIN)
; (METHOD WEBLOCKS::DEPENDENCY-URL (WEBLOCKS::URL-DEPENDENCY-MIXIN))
; (DEFCLASS WEBLOCKS::STYLESHEET-DEPENDENCY)
; (METHOD PRINT-OBJECT (WEBLOCKS::STYLESHEET-DEPENDENCY T))
; (DEFCLASS WEBLOCKS::SCRIPT-DEPENDENCY)
; (METHOD PRINT-OBJECT (WEBLOCKS::SCRIPT-DEPENDENCY T))
; (DEFCLASS WEBLOCKS::JAVASCRIPT-CODE-DEPENDENCY)
; (TOP-LEVEL-FORM 11)
; (DEFGENERIC WEBLOCKS::DEPENDENCIES-EQUALP)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 12)
; (DEFGENERIC WEBLOCKS::DEPENDENCIES-LESSP)
; (TOP-LEVEL-FORM 12)
; WEBLOCKS::PRUNE-DEPENDENCIES
; WEBLOCKS::SORT-DEPENDENCIES-BY-TYPE
; (TOP-LEVEL-FORM 15)
; (DEFGENERIC WEBLOCKS::COMPACT-DEPENDENCIES)
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 16)
; (DEFGENERIC WEBLOCKS::RENDER-DEPENDENCY-IN-PAGE-HEAD)
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 17)
; (DEFGENERIC WEBLOCKS::RENDER-DEPENDENCY-IN-PAGE-BODY-TOP)
; (TOP-LEVEL-FORM 17)
; (TOP-LEVEL-FORM 18)
; (DEFGENERIC WEBLOCKS::RENDER-DEPENDENCY-IN-PAGE-BODY-BOTTOM)
; (TOP-LEVEL-FORM 18)
; (TOP-LEVEL-FORM 19)
; (DEFGENERIC WEBLOCKS::RENDER-DEPENDENCY-IN-FORM-SUBMIT)
; (TOP-LEVEL-FORM 19)
; (TOP-LEVEL-FORM 20)
; (DEFGENERIC WEBLOCKS::RENDER-DEPENDENCY-IN-AJAX-RESPONSE)
; (TOP-LEVEL-FORM 20)
; (METHOD WEBLOCKS::RENDER-DEPENDENCY-IN-PAGE-HEAD
(WEBLOCKS::STYLESHEET-DEPENDENCY))
; (METHOD WEBLOCKS::RENDER-DEPENDENCY-IN-PAGE-HEAD (WEBLOCKS::SCRIPT-
DEPENDENCY))
; (METHOD WEBLOCKS::RENDER-DEPENDENCY-IN-PAGE-BODY-TOP
(WEBLOCKS::JAVASCRIPT-CODE-DEPENDENCY))
; (METHOD WEBLOCKS::RENDER-DEPENDENCY-IN-PAGE-BODY-BOTTOM
(WEBLOCKS::JAVASCRIPT-CODE-DEPENDENCY))
; (METHOD WEBLOCKS::RENDER-DEPENDENCY-IN-FORM-SUBMIT
(WEBLOCKS::JAVASCRIPT-CODE-DEPENDENCY))
; (METHOD WEBLOCKS::RENDER-DEPENDENCY-IN-AJAX-RESPONSE
(WEBLOCKS::STYLESHEET-DEPENDENCY))
; (METHOD WEBLOCKS::RENDER-DEPENDENCY-IN-AJAX-RESPONSE
(WEBLOCKS::SCRIPT-DEPENDENCY))
; WEBLOCKS::RENDER-FORM-SUBMIT-DEPENDENCIES
; WEBLOCKS::MAKE-LOCAL-DEPENDENCY
; WEBLOCKS::BUILD-LOCAL-DEPENDENCIES
; WEBLOCKS::DEPENDENCIES-BY-SYMBOL
; (TOP-LEVEL-FORM 32)
; (DEFGENERIC WEBLOCKS::PER-CLASS-DEPENDENCIES)
; (TOP-LEVEL-FORM 32)
; (TOP-LEVEL-FORM 33)
; (DEFGENERIC WEBLOCKS::DEPENDENCIES)
; (TOP-LEVEL-FORM 33)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\dom-object.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::DOM-OBJECT-MIXIN)
; (TOP-LEVEL-FORM 4)
; (DEFGENERIC WEBLOCKS::ENSURE-DOM-ID)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)
; (DEFGENERIC WEBLOCKS::DOM-ID)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 6)
; (DEFGENERIC (SETF WEBLOCKS::DOM-ID))
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 7)
; (DEFGENERIC WEBLOCKS::DOM-CLASSES)
; (TOP-LEVEL-FORM 7)
; (METHOD WEBLOCKS::DOM-CLASSES (WEBLOCKS::DOM-OBJECT-MIXIN))
; (METHOD WEBLOCKS::DOM-CLASSES (SYMBOL))
; (METHOD WEBLOCKS::DOM-CLASSES (FUNCTION))
; (METHOD WEBLOCKS::DOM-CLASSES (STRING))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\application-mop.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::WEBAPP-CLASS)
; (METHOD VALIDATE-SUPERCLASS (WEBLOCKS::WEBAPP-CLASS CLOSER-
MOP:STANDARD-CLASS))
; (METHOD SHARED-INITIALIZE :AFTER (WEBLOCKS::WEBAPP-CLASS T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\application-mop.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\application.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFVAR WEBLOCKS::*REGISTERED-WEBAPPS*)

**++++ Error in (DEFCLASS WEBLOCKS::WEBLOCKS-WEBAPP):
The variable *REGISTERED-WEBAPPS* is unbound.
;;;*** Warning in (METHOD (SETF WEBLOCKS::WEBLOCKS-WEBAPP-PREFIX) (T
WEBLOCKS::WEBLOCKS-WEBAPP)): Ignoring type declaration with illegal
type WEBLOCKS::WEBLOCKS-WEBAPP
; (METHOD (SETF WEBLOCKS::WEBLOCKS-WEBAPP-PREFIX) (T
WEBLOCKS::WEBLOCKS-WEBAPP))
;;;*** Warning in (METHOD (SETF WEBLOCKS::WEBLOCKS-WEBAPP-PUBLIC-FILES-
URI-PREFIX) (T WEBLOCKS::WEBLOCKS-WEBAPP)): Ignoring type declaration
with illegal type WEBLOCKS::WEBLOCKS-WEBAPP
; (METHOD (SETF WEBLOCKS::WEBLOCKS-WEBAPP-PUBLIC-FILES-URI-PREFIX) (T
WEBLOCKS::WEBLOCKS-WEBAPP))
;;;*** Warning in (METHOD (SETF WEBLOCKS::WEBLOCKS-WEBAPP-PUBLIC-FILES-
PATH) (T WEBLOCKS::WEBLOCKS-WEBAPP)): Ignoring type declaration with
illegal type WEBLOCKS::WEBLOCKS-WEBAPP
; (METHOD (SETF WEBLOCKS::WEBLOCKS-WEBAPP-PUBLIC-FILES-PATH) (T
WEBLOCKS::WEBLOCKS-WEBAPP))
; WEBLOCKS::DEFWEBAPP
;;;*** Warning in (METHOD INITIALIZE-INSTANCE :AFTER
(WEBLOCKS::WEBLOCKS-WEBAPP)): Ignoring type declaration with illegal
type WEBLOCKS::WEBLOCKS-WEBAPP
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::WEBLOCKS-WEBAPP))
; WEBLOCKS::GET-WEBAPP
; WEBLOCKS::GET-WEBAPPS-FOR-CLASS
; WEBLOCKS::CHECK-WEBAPP
; WEBLOCKS::START-WEBAPP
; WEBLOCKS::SORT-WEBAPPS
; WEBLOCKS::ENABLE-WEBAPP
; (TOP-LEVEL-FORM 16)
; (DEFGENERIC WEBLOCKS::INITIALIZE-WEBAPP)
; (TOP-LEVEL-FORM 16)
;;;*** Warning in (METHOD WEBLOCKS::INITIALIZE-WEBAPP :BEFORE
(WEBLOCKS::WEBLOCKS-WEBAPP)): Ignoring type declaration with illegal
type WEBLOCKS::WEBLOCKS-WEBAPP
; (METHOD WEBLOCKS::INITIALIZE-WEBAPP :BEFORE (WEBLOCKS::WEBLOCKS-
WEBAPP))
; WEBLOCKS::STOP-WEBAPP
; (TOP-LEVEL-FORM 19)
; (DEFGENERIC WEBLOCKS::FINALIZE-WEBAPP)
; (TOP-LEVEL-FORM 19)
;;;*** Warning in (METHOD WEBLOCKS::FINALIZE-WEBAPP :AFTER
(WEBLOCKS::WEBLOCKS-WEBAPP)): Ignoring type declaration with illegal
type WEBLOCKS::WEBLOCKS-WEBAPP
; (METHOD WEBLOCKS::FINALIZE-WEBAPP :AFTER (WEBLOCKS::WEBLOCKS-
WEBAPP))
; WEBLOCKS::FIND-APP
; WEBLOCKS::RESTART-WEBAPP
; WEBLOCKS::MAKE-WEBAPP-URI
; WEBLOCKS::MAKE-WEBAPP-PUBLIC-FILE-URI
;;;*** Warning in WEBLOCKS::WEBAPP-SESSION-VALUE: WEBLOCKS::*CURRENT-
WEBAPP* assumed special
; WEBLOCKS::WEBAPP-SESSION-VALUE
;;;*** Warning in (SETF WEBLOCKS::WEBAPP-SESSION-VALUE):
WEBLOCKS::*CURRENT-WEBAPP* assumed special
; (SETF WEBLOCKS::WEBAPP-SESSION-VALUE)
; (DEFVAR WEBLOCKS::*WEBAPP-PERMANENT-ACTIONS*)
; WEBLOCKS::WEBAPP-PERMANENT-ACTION
; WEBLOCKS::WEBAPP-PERMANENT-ACTIONS
; WEBLOCKS::ADD-WEBAPP-PERMANENT-ACTION
; WEBLOCKS::REMOVE-WEBAPP-PERMANENT-ACTION
; WEBLOCKS::DEFINE-PERMANENT-ACTION
; WEBLOCKS::DEFINE-PERMANENT-ACTION/CC
; (TOP-LEVEL-FORM 34)
; (TOP-LEVEL-FORM 35)
; (DEFGENERIC WEBLOCKS::COMPUTE-WEBAPP-PUBLIC-FILES-URI-PREFIX)
; (TOP-LEVEL-FORM 35)
; WEBLOCKS::COMPUTE-WEBAPP-PUBLIC-FILES-URI-PREFIX-UTIL
; (DEFVAR WEBLOCKS::*CURRENT-WEBAPP*)
; (TOP-LEVEL-FORM 38)
; WEBLOCKS::CURRENT-WEBAPP
; WEBLOCKS::RESET-WEBAPP-SESSION
; WEBLOCKS::WEBAPP-APPLICATION-DEPENDENCIES
; WEBLOCKS::WEBAPP-NAME
; WEBLOCKS::WEBAPP-DESCRIPTION
; WEBLOCKS::WEBAPP-SERVES-HOSTNAME
; WEBLOCKS::WEBAPP-HOSTNAMES
; WEBLOCKS::WEBAPP-PREFIX
; WEBLOCKS::WEBAPP-PUBLIC-FILES-URI-PREFIX
; WEBLOCKS::WEBAPP-PUBLIC-FILES-PATH
; WEBLOCKS::WEBAPP-INIT-USER-SESSION
; (TOP-LEVEL-FORM 0)
; *** 1 error detected, no fasl file produced.
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "application" 21E71BD7>.
Warning: COMPILE-FILE failed while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "application" 21E71BD7>.
Error: erred while invoking #<ASDF:COMPILE-OP NIL 21E97123> on
#<ASDF:CL-SOURCE-FILE "application" 21E71BD7>
1 (continue) Try recompiling application
2 Retry performing #<ASDF:COMPILE-OP NIL 21E97123> on #<ASDF:CL-
SOURCE-FILE "application" 21E71BD7>.
3 Continue, treating #<ASDF:COMPILE-OP NIL 21E97123> on #<ASDF:CL-
SOURCE-FILE "application" 21E71BD7> as having been successful.
4 (abort) Return to level 0.
5 Return to top loop level 0.

Type :b for backtrace, :c <option number> to proceed, or :? for other
options

CL-USER 2 : 1 > :c 2
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\application.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFVAR WEBLOCKS::*REGISTERED-WEBAPPS*)
; (DEFCLASS WEBLOCKS::WEBLOCKS-WEBAPP)
; (METHOD (SETF WEBLOCKS::WEBLOCKS-WEBAPP-PREFIX) (T
WEBLOCKS::WEBLOCKS-WEBAPP))
; (METHOD (SETF WEBLOCKS::WEBLOCKS-WEBAPP-PUBLIC-FILES-URI-PREFIX) (T
WEBLOCKS::WEBLOCKS-WEBAPP))
; (METHOD (SETF WEBLOCKS::WEBLOCKS-WEBAPP-PUBLIC-FILES-PATH) (T
WEBLOCKS::WEBLOCKS-WEBAPP))
; WEBLOCKS::DEFWEBAPP
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::WEBLOCKS-WEBAPP))
; WEBLOCKS::GET-WEBAPP
; WEBLOCKS::GET-WEBAPPS-FOR-CLASS
; WEBLOCKS::CHECK-WEBAPP
; WEBLOCKS::START-WEBAPP
; WEBLOCKS::SORT-WEBAPPS
; WEBLOCKS::ENABLE-WEBAPP
; (TOP-LEVEL-FORM 16)
; (DEFGENERIC WEBLOCKS::INITIALIZE-WEBAPP)
; (TOP-LEVEL-FORM 16)
; (METHOD WEBLOCKS::INITIALIZE-WEBAPP :BEFORE (WEBLOCKS::WEBLOCKS-
WEBAPP))
; WEBLOCKS::STOP-WEBAPP
; (TOP-LEVEL-FORM 19)
; (DEFGENERIC WEBLOCKS::FINALIZE-WEBAPP)
; (TOP-LEVEL-FORM 19)
; (METHOD WEBLOCKS::FINALIZE-WEBAPP :AFTER (WEBLOCKS::WEBLOCKS-
WEBAPP))
; WEBLOCKS::FIND-APP
; WEBLOCKS::RESTART-WEBAPP
; WEBLOCKS::MAKE-WEBAPP-URI
; WEBLOCKS::MAKE-WEBAPP-PUBLIC-FILE-URI
;;;*** Warning in WEBLOCKS::WEBAPP-SESSION-VALUE: WEBLOCKS::*CURRENT-
WEBAPP* assumed special
; WEBLOCKS::WEBAPP-SESSION-VALUE
;;;*** Warning in (SETF WEBLOCKS::WEBAPP-SESSION-VALUE):
WEBLOCKS::*CURRENT-WEBAPP* assumed special
; (SETF WEBLOCKS::WEBAPP-SESSION-VALUE)
; (DEFVAR WEBLOCKS::*WEBAPP-PERMANENT-ACTIONS*)
; WEBLOCKS::WEBAPP-PERMANENT-ACTION
; WEBLOCKS::WEBAPP-PERMANENT-ACTIONS
; WEBLOCKS::ADD-WEBAPP-PERMANENT-ACTION
; WEBLOCKS::REMOVE-WEBAPP-PERMANENT-ACTION
; WEBLOCKS::DEFINE-PERMANENT-ACTION
; WEBLOCKS::DEFINE-PERMANENT-ACTION/CC
; (TOP-LEVEL-FORM 34)
; (TOP-LEVEL-FORM 35)
; (DEFGENERIC WEBLOCKS::COMPUTE-WEBAPP-PUBLIC-FILES-URI-PREFIX)
; (TOP-LEVEL-FORM 35)
; WEBLOCKS::COMPUTE-WEBAPP-PUBLIC-FILES-URI-PREFIX-UTIL
; (DEFVAR WEBLOCKS::*CURRENT-WEBAPP*)
; (TOP-LEVEL-FORM 38)
; WEBLOCKS::CURRENT-WEBAPP
; WEBLOCKS::RESET-WEBAPP-SESSION
; WEBLOCKS::WEBAPP-APPLICATION-DEPENDENCIES
; WEBLOCKS::WEBAPP-NAME
; WEBLOCKS::WEBAPP-DESCRIPTION
; WEBLOCKS::WEBAPP-SERVES-HOSTNAME
; WEBLOCKS::WEBAPP-HOSTNAMES
; WEBLOCKS::WEBAPP-PREFIX
; WEBLOCKS::WEBAPP-PUBLIC-FILES-URI-PREFIX
; WEBLOCKS::WEBAPP-PUBLIC-FILES-PATH
; WEBLOCKS::WEBAPP-INIT-USER-SESSION
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "application" 21E71BD7>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\application.ofasl
Warning: (METHOD (SETF WEBLOCKS-WEBAPP-PUBLIC-FILES-PATH) (T WEBLOCKS-
WEBAPP)) defined more than once in d:\ue31057\old\base\external\site
\weblocks-stable\src\application.lisp.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\page-template.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFVAR WEBLOCKS::*PAGE-DEPENDENCIES*)
; (TOP-LEVEL-FORM 4)
; (METHOD WEBLOCKS::PAGE-TITLE (WEBLOCKS::WEBLOCKS-WEBAPP))
; (TOP-LEVEL-FORM 6)
; (DEFGENERIC WEBLOCKS::RENDER-PAGE)
; (TOP-LEVEL-FORM 6)
; (METHOD WEBLOCKS::RENDER-PAGE (WEBLOCKS::WEBLOCKS-WEBAPP))
; (METHOD WEBLOCKS::RENDER-PAGE-HEADERS (WEBLOCKS::WEBLOCKS-WEBAPP))
; (TOP-LEVEL-FORM 9)
; (DEFGENERIC WEBLOCKS::RENDER-PAGE-BODY)
; (TOP-LEVEL-FORM 9)
; (METHOD WEBLOCKS::RENDER-PAGE-BODY (WEBLOCKS::WEBLOCKS-WEBAPP T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\log-actions.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFVAR WEBLOCKS::*RENDERED-ACTIONS*)
; (TOP-LEVEL-FORM 4)
; WEBLOCKS::LOG-UI-ACTION
; WEBLOCKS::LOG-LINK
; WEBLOCKS::LOG-FORM
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\request-hooks.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::REQUEST-HOOKS)
; (DEFPARAMETER WEBLOCKS::*APPLICATION-REQUEST-HOOKS*)
; WEBLOCKS::SESSION-REQUEST-HOOKS
; (DEFVAR WEBLOCKS::*REQUEST-HOOK*)
; (TOP-LEVEL-FORM 7)
; WEBLOCKS::HOOK-BY-SCOPE
; WEBLOCKS::REQUEST-HOOK
; WEBLOCKS::EVAL-HOOK
; WEBLOCKS::WITH-DYNAMIC-HOOKS
; WEBLOCKS::EVAL-DYNAMIC-HOOKS
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\request-hooks.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\request.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*JSON-CONTENT-TYPE*)
; WEBLOCKS::REFRESH-REQUEST-P
; WEBLOCKS::INITIAL-REQUEST-P
; WEBLOCKS::AJAX-REQUEST-P
; WEBLOCKS::PURE-REQUEST-P
; WEBLOCKS::REDIRECT
; WEBLOCKS::POST-ACTION-REDIRECT
; WEBLOCKS::POST-RENDER-REDIRECT
; WEBLOCKS::COMPOSE-URI-TOKENS-TO-URL
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\page-template.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\request.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\dependencies.ofasl
Warning: (METHOD DEPENDENCY-URL (URL-DEPENDENCY-MIXIN)) defined more
than once in d:\ue31057\old\base\external\site\weblocks-stable\src
\dependencies.lisp.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\request-handler.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFVAR WEBLOCKS::*URI-TOKENS*)
; (TOP-LEVEL-FORM 4)
; (DEFVAR WEBLOCKS::*CURRENT-NAVIGATION-URL*)
; (TOP-LEVEL-FORM 6)
; (DEFVAR WEBLOCKS::*BEFORE-AJAX-COMPLETE-SCRIPTS*)
; (TOP-LEVEL-FORM 8)
; (DEFVAR WEBLOCKS::*ON-AJAX-COMPLETE-SCRIPTS*)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 11)
; (DEFGENERIC WEBLOCKS::HANDLE-CLIENT-REQUEST)
; (TOP-LEVEL-FORM 11)
; (METHOD WEBLOCKS::HANDLE-CLIENT-REQUEST (T))
; WEBLOCKS::REMOVE-SESSION-FROM-URI
; WEBLOCKS::REMOVE-ACTION-FROM-URI
; WEBLOCKS::RENDER-DIRTY-WIDGETS
; WEBLOCKS::ACTION-TXN-HOOK
; (TOP-LEVEL-FORM 17)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\dom-object.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\snippets\suggest.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
;;;*** Warning in WEBLOCKS::RENDER-SUGGEST: WEBLOCKS::*MAX-RAW-INPUT-
LENGTH* assumed special
; WEBLOCKS::RENDER-SUGGEST
; WEBLOCKS::FORMAT-SUGGEST-LIST
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "suggest" 21E504C7>.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\snippets\menu.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*MENU-EMPTY-MESSAGE*)
; WEBLOCKS::RENDER-MENU
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\snippets\html-utils.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*SUBMIT-CONTROL-NAME*)
; (DEFPARAMETER WEBLOCKS::*CANCEL-CONTROL-NAME*)
; WEBLOCKS::WITH-HTML-FORM
; WEBLOCKS::RENDER-LINK
; WEBLOCKS::RENDER-BUTTON
; WEBLOCKS::RENDER-FORM-AND-BUTTON
; WEBLOCKS::RENDER-CHECKBOX
; (DEFPARAMETER WEBLOCKS::*DROPDOWN-WELCOME-MESSAGE*)
; WEBLOCKS::RENDER-DROPDOWN
; WEBLOCKS::RENDER-AUTODROPDOWN
; WEBLOCKS::RENDER-RADIO-BUTTONS
; WEBLOCKS::RENDER-CLOSE-BUTTON
; WEBLOCKS::RENDER-INPUT-FIELD
; WEBLOCKS::RENDER-PASSWORD
; WEBLOCKS::RENDER-TEXTAREA
; WEBLOCKS::RENDER-LIST
; WEBLOCKS::SCRIPTONLY
; WEBLOCKS::NOSCRIPT
; WEBLOCKS::SEND-SCRIPT
; WEBLOCKS::RENDER-MESSAGE
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\snippets\html-utils.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\snippets\isearch.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*ISEARCH-INPUT-DELAY*)
; (DEFPARAMETER WEBLOCKS::*ISEARCH-MAX-INPUT-LENGTH*)
; WEBLOCKS::RENDER-ISEARCH
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\linguistic\grammar.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; WEBLOCKS::PLURALIZE
; WEBLOCKS::SINGULARIZE
; WEBLOCKS::PROPER-NUMBER-FORM
; WEBLOCKS::VOWELP
; WEBLOCKS::CONSONANTP
; WEBLOCKS::PROPER-INDEFINITE-ARTICLE
; WEBLOCKS::ARTICLIZE
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\snippets\suggest.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\snippets\menu.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\snippets\isearch.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\view\view.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFVAR WEBLOCKS::*VIEWS*)
; (DEFVAR WEBLOCKS::*FORM-SUBMIT-DEPENDENCIES*)
; (DEFCLASS WEBLOCKS::VIEW)
; (DEFCLASS WEBLOCKS::VIEW-FIELD)
; (DEFCLASS WEBLOCKS::INLINE-VIEW-FIELD)
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::INLINE-VIEW-FIELD))
; (DEFCLASS WEBLOCKS::MIXIN-VIEW-FIELD)
; (TOP-LEVEL-FORM 10)
; (DEFGENERIC WEBLOCKS::WITH-VIEW-HEADER)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 11)
; (DEFGENERIC WEBLOCKS::RENDER-VIEW-FIELD)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 12)
; (DEFGENERIC WEBLOCKS::RENDER-VIEW-FIELD-VALUE)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 13)
; (DEFGENERIC WEBLOCKS::PRINT-VIEW-FIELD-VALUE)
; (TOP-LEVEL-FORM 13)
; WEBLOCKS::ENTITY-CLASS-NAME
; (TOP-LEVEL-FORM 15)
; (DEFGENERIC WEBLOCKS::VIEW-CLASS-NAME)
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 16)
; (DEFGENERIC WEBLOCKS::VIEW-DEFAULT-FIELD-TYPE)
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 17)
; (DEFGENERIC WEBLOCKS::VIEW-FIELD-CLASS-NAME)
; (TOP-LEVEL-FORM 17)
; (TOP-LEVEL-FORM 18)
; (DEFGENERIC WEBLOCKS::PRESENTATION-CLASS-NAME)
; (TOP-LEVEL-FORM 18)
; (METHOD WEBLOCKS:DEPENDENCIES APPEND (WEBLOCKS::VIEW))
; (METHOD WEBLOCKS:DEPENDENCIES APPEND (WEBLOCKS::VIEW-FIELD))
; (METHOD WEBLOCKS:DEPENDENCIES APPEND (WEBLOCKS::INLINE-VIEW-FIELD))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\view\view.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\view\utils.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; WEBLOCKS::FIND-VIEW
; (SUBFUNCTION (DEFSETF WEBLOCKS::FIELD-INFO-PARENT-INFO) (DEFSTRUCT
WEBLOCKS::FIELD-INFO))
; (SUBFUNCTION (DEFSETF WEBLOCKS::FIELD-INFO-OBJECT) (DEFSTRUCT
WEBLOCKS::FIELD-INFO))
; (SUBFUNCTION (DEFSETF WEBLOCKS::FIELD-INFO-FIELD) (DEFSTRUCT
WEBLOCKS::FIELD-INFO))
; (SUBFUNCTION WEBLOCKS::MAKE-FIELD-INFO (DEFSTRUCT WEBLOCKS::FIELD-
INFO))
; (SUBFUNCTION WEBLOCKS::MAKE-FIELD-INFO (DEFSTRUCT WEBLOCKS::FIELD-
INFO))
; WEBLOCKS::FACTOR-OVERRIDDEN-FIELDS
; WEBLOCKS::MAP-VIEW-FIELD-INFO-LIST
; WEBLOCKS::MAP-EXPANDING-MIXIN-FIELDS
; WEBLOCKS::GET-OBJECT-VIEW-FIELDS
; WEBLOCKS::MAP-VIEW-FIELDS
; WEBLOCKS::FIND-FIELD-INFO
; WEBLOCKS::FIND-VIEW-FIELD
; WEBLOCKS::MAP-MIXIN-FIELDS
; WEBLOCKS::COUNT-VIEW-FIELDS
; WEBLOCKS::SLOT-READER
; WEBLOCKS::OBTAIN-VIEW-FIELD-VALUE
; WEBLOCKS::RENDER-OBJECT-VIEW
; (METHOD WEBLOCKS::CLASS-FROM-VIEW (T))
; WEBLOCKS::RENDER-VIEW
; (TOP-LEVEL-FORM 19)
; (DEFGENERIC WEBLOCKS::RENDER-OBJECT-VIEW-IMPL)
; (TOP-LEVEL-FORM 19)
; WEBLOCKS::ATTRIBUTIZE-PRESENTATION
; (METHOD PRINT-OBJECT (WEBLOCKS::FIELD-INFO T))
; (METHOD PRINT-OBJECT (WEBLOCKS:VIEW-FIELD T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\view\compiler.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*CUSTOM-VIEW-FIELD-ARGUMENT-COMPILERS*)
; (TOP-LEVEL-FORM 4)
; (DEFGENERIC WEBLOCKS::VIEW-ARGUMENT-QUOTING-STRATEGY)
; (TOP-LEVEL-FORM 4)
; WEBLOCKS::QUOTE-PROPERTY-LIST-ARGUMENTS
; WEBLOCKS::COMPILE-VIEW-FIELDS
; (METHOD WEBLOCKS::VIEW-ARGUMENT-QUOTING-STRATEGY ((EQL :INITFORM)))
; (TOP-LEVEL-FORM 5)
; WEBLOCKS::DEFVIEW-ANON
; WEBLOCKS::DEFVIEW
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\view\utils.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\view\scaffold.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::SCAFFOLD)
; (TOP-LEVEL-FORM 4)
; (DEFGENERIC WEBLOCKS::SCAFFOLD-CLASS-NAME)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)
; (DEFGENERIC WEBLOCKS::SCAFFOLD-VIEW-TYPE)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 6)
; (DEFGENERIC WEBLOCKS::SCAFFOLD-VIEW-FIELD-TYPE)
; (TOP-LEVEL-FORM 6)
; WEBLOCKS::EXTRACT-VIEW-PROPERTY-FROM-TYPE
; (TOP-LEVEL-FORM 8)
; (DEFGENERIC WEBLOCKS::GENERATE-SCAFFOLD-VIEW)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 9)
; (DEFGENERIC WEBLOCKS::GENERATE-SCAFFOLD-VIEW-FIELD)
;;;*** Warning in (METHOD WEBLOCKS::GENERATE-SCAFFOLD-VIEW-FIELD
(WEBLOCKS::SCAFFOLD T T)): (MULTIPLE-VALUE-CALL (FUNCTION
WEBLOCKS::TYPESPEC->VIEW-FIELD-PRESENTATION) WEBLOCKS::SCAFFOLD
(WEBLOCKS::INSPECT-TYPESPEC (SLOT-DEFINITION-TYPE WEBLOCKS::DSD)))
Multi form multi-value-call is inefficient
; (TOP-LEVEL-FORM 9)
; WEBLOCKS::CLASS-VISIBLE-SLOTS
; (TOP-LEVEL-FORM 11)
; (DEFGENERIC WEBLOCKS::CLASS-VISIBLE-SLOTS-IMPL)
; (TOP-LEVEL-FORM 11)
;;;*** Warning in WEBLOCKS::INSPECT-TYPESPEC: (MULTIPLE-VALUE-CALL
(FUNCALL (FUNCTION (LAMBDA (#:R0199324 #:R1199325) (FUNCTION (LAMBDA
(#:FORM) (FARE-UTILS:MVBIND (#:R2199326 #:R3199327) (FUNCALL (FUNCTION
(LAMBDA (#:FORM) (FUNCALL (FUNCTION (LAMBDA (FARE-MATCHER::FORM FARE-
MATCHER::N) (FARE-MATCHER:M%WHEN (AND (LISTP FARE-MATCHER::FORM) (FARE-
UTILS:LENGTH=N-P FARE-MATCHER::FORM FARE-MATCHER::N)) (APPLY (FUNCTION
VALUES) FARE-MATCHER::FORM)))) #:FORM 2))) #:FORM) (FARE-MATCHER:M%AND
(FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325 #:R3199327)))))))
(FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE
AND))))) (FUNCTION (LAMBDA (#:FORM) (SETF WEBLOCKS::Y #:FORM))))
(FUNCALL #:FORM)) Multi form multi-value-call is inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION
WEBLOCKS::INSPECT-TYPESPEC): (MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION
(LAMBDA (#:R0199324 #:R1199325) (FUNCTION (LAMBDA (#:FORM) (FARE-
UTILS:MVBIND (#:R2199326 #:R3199327) (FUNCALL (FUNCTION (LAMBDA
(#:FORM) (FUNCALL (FUNCTION (LAMBDA (FARE-MATCHER::FORM FARE-
MATCHER::N) (FARE-MATCHER:M%WHEN (AND (LISTP FARE-MATCHER::FORM) (FARE-
UTILS:LENGTH=N-P FARE-MATCHER::FORM FARE-MATCHER::N)) (APPLY (FUNCTION
VALUES) FARE-MATCHER::FORM)))) #:FORM 2))) #:FORM) (FARE-MATCHER:M%AND
(FUNCALL #:R0199324 #:R2199326) (FUNCALL #:R1199325 #:R3199327)))))))
(FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE
OR))))) (FUNCTION (LAMBDA (#:FORM) (SETF WEBLOCKS::Y #:FORM))))
(FUNCALL #:FORM)) Multi form multi-value-call is inefficient
;;;*** Warning in (SUBFUNCTION #:FAILURE-CONTINUATION
WEBLOCKS::INSPECT-TYPESPEC): (MULTIPLE-VALUE-CALL (FUNCALL (FUNCTION
(LAMBDA (#:R0199324 #:R1199325 #:R2199326) (FUNCTION (LAMBDA (#:FORM)
(FARE-UTILS:MVBIND (#:R3199327 #:R4199621 #:R5199622) (FUNCALL
(FUNCTION (LAMBDA (#:FORM) (FUNCALL (FUNCTION (LAMBDA (FARE-
MATCHER::FORM FARE-MATCHER::N) (FARE-MATCHER:M%WHEN (AND (LISTP FARE-
MATCHER::FORM) (FARE-UTILS:LENGTH=N-P FARE-MATCHER::FORM FARE-
MATCHER::N)) (APPLY (FUNCTION VALUES) FARE-MATCHER::FORM)))) #:FORM
3))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324 #:R3199327)
(FUNCALL #:R1199325 #:R4199621) (FUNCALL #:R2199326 #:R5199622)))))))
(FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE
OR))))) (FUNCTION (LAMBDA (#:FORM) (SETF WEBLOCKS::Y #:FORM)))
(FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL #:FORM (QUOTE
NULL)))))) (FUNCALL #:FORM)) Multi form multi-value-call is
inefficient
;;;*** Warning in WEBLOCKS::INSPECT-TYPESPEC: (MULTIPLE-VALUE-CALL
(FUNCALL (FUNCTION (LAMBDA (#:R0199324 #:R1199325 #:R2199326)
(FUNCTION (LAMBDA (#:FORM) (FARE-UTILS:MVBIND (#:R3199327 #:R4199621
#:R5199622) (FUNCALL (FUNCTION (LAMBDA (#:FORM) (FUNCALL (FUNCTION
(LAMBDA (FARE-MATCHER::FORM FARE-MATCHER::N) (FARE-MATCHER:M%WHEN (AND
(LISTP FARE-MATCHER::FORM) (FARE-UTILS:LENGTH=N-P FARE-MATCHER::FORM
FARE-MATCHER::N)) (APPLY (FUNCTION VALUES) FARE-MATCHER::FORM))))
#:FORM 3))) #:FORM) (FARE-MATCHER:M%AND (FUNCALL #:R0199324
#:R3199327) (FUNCALL #:R1199325 #:R4199621) (FUNCALL #:R2199326
#:R5199622))))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN (EQL
#:FORM (QUOTE OR))))) (FUNCTION (LAMBDA (#:FORM) (FARE-MATCHER:M%WHEN
(EQL #:FORM (QUOTE NULL))))) (FUNCTION (LAMBDA (#:FORM) (SETF
WEBLOCKS::Y #:FORM)))) (FUNCALL #:FORM)) Multi form multi-value-call
is inefficient
;;;*** Warning in WEBLOCKS::INSPECT-TYPESPEC: Y is bound but not
referenced
;;;*** Warning in WEBLOCKS::INSPECT-TYPESPEC: Y is bound but not
referenced
; WEBLOCKS::INSPECT-TYPESPEC
; (TOP-LEVEL-FORM 13)
; (DEFGENERIC WEBLOCKS::TYPESPEC->VIEW-FIELD-PRESENTATION)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "scaffold" 21E50C17>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\view\compiler.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\view\presentation.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (METHOD WEBLOCKS:VIEW-ARGUMENT-QUOTING-STRATEGY ((EQL :PRESENT-AS)))
; (TOP-LEVEL-FORM 3)
; (DEFCLASS WEBLOCKS::PRESENTATION)
; (METHOD WEBLOCKS:DEPENDENCIES APPEND (WEBLOCKS::PRESENTATION))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\view\scaffold.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\view\presentation.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\dataview.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::DATA-VIEW)
; (DEFCLASS WEBLOCKS::DATA-VIEW-FIELD)
; (DEFCLASS WEBLOCKS::DATA-SCAFFOLD)
; (DEFPARAMETER WEBLOCKS::*TEXT-PRESENTATION-MIXIN-DEFAULT-FORMAT-
STRING*)
; (DEFCLASS WEBLOCKS::TEXT-PRESENTATION-MIXIN)
; (METHOD WEBLOCKS::TEXT-PRESENTATION-MIXIN-FORMAT-STRING (NULL))
; (DEFCLASS WEBLOCKS::TEXT-PRESENTATION)
; (METHOD WEBLOCKS:VIEW-CAPTION (WEBLOCKS::DATA-VIEW))
; (METHOD WEBLOCKS:WITH-VIEW-HEADER (WEBLOCKS::DATA-VIEW T T T))
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD (WEBLOCKS::DATA-VIEW-FIELD
WEBLOCKS::DATA-VIEW T T T T))
; (DEFVAR WEBLOCKS::*PRESENTATION-DOM-ID*)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::TEXT-
PRESENTATION T T T T))
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (NULL WEBLOCKS::TEXT-
PRESENTATION T T T T))
; WEBLOCKS::HIGHLIGHT-REGEX-MATCHES
; (METHOD WEBLOCKS:PRINT-VIEW-FIELD-VALUE (T T T T T T))
; (METHOD WEBLOCKS:PRINT-VIEW-FIELD-VALUE (SYMBOL T T T T T))
; (METHOD WEBLOCKS:PRINT-VIEW-FIELD-VALUE (STANDARD-OBJECT T T T T T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\formview\formview.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*FORM-DEFAULT-ERROR-SUMMARY-THRESHOLD*)
; (DEFPARAMETER WEBLOCKS::*REQUIRED-FIELD-MESSAGE*)
; (DEFCLASS WEBLOCKS::FORM-VIEW)
; (DEFCLASS WEBLOCKS::FORM-VIEW-FIELD-WRITER-MIXIN)
; (DEFCLASS WEBLOCKS::FORM-VIEW-FIELD)
; WEBLOCKS::GET-REQUIRED-ERROR-MSG
; (DEFCLASS WEBLOCKS::MIXIN-FORM-VIEW-FIELD)
; (METHOD WEBLOCKS::MIXIN-FORM-VIEW-FIELD-PERSIST-P (WEBLOCKS::MIXIN-
FORM-VIEW-FIELD))
; (METHOD WEBLOCKS:VIEW-DEFAULT-FIELD-TYPE ((EQL (QUOTE
WEBLOCKS::FORM)) (EQL (QUOTE WEBLOCKS:MIXIN))))
; (DEFCLASS WEBLOCKS::FORM-PRESENTATION)
; (DEFPARAMETER WEBLOCKS::*MAX-RAW-INPUT-LENGTH*)
; (DEFCLASS WEBLOCKS::INPUT-PRESENTATION)
; (TOP-LEVEL-FORM 15)
; (DEFGENERIC WEBLOCKS::RENDER-VALIDATION-SUMMARY)
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 16)
; (DEFGENERIC WEBLOCKS::RENDER-FORM-VIEW-BUTTONS)
; (TOP-LEVEL-FORM 16)
; (METHOD WEBLOCKS:VIEW-CAPTION (WEBLOCKS::FORM-VIEW))
; (METHOD WEBLOCKS:WITH-VIEW-HEADER (WEBLOCKS::FORM-VIEW T T T))
;;;*** Warning in (METHOD WEBLOCKS:RENDER-VIEW-FIELD (WEBLOCKS::FORM-
VIEW-FIELD WEBLOCKS::FORM-VIEW T T T T)): WEBLOCKS::*PRESENTATION-DOM-
ID* bound lexically.
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD (WEBLOCKS::FORM-VIEW-FIELD
WEBLOCKS::FORM-VIEW T T T T))
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::INPUT-
PRESENTATION T T T T))
; (METHOD WEBLOCKS:PRINT-VIEW-FIELD-VALUE (NULL WEBLOCKS::INPUT-
PRESENTATION T T T T))
; WEBLOCKS::FORM-FIELD-INTERMEDIATE-VALUE
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "formview" 21E5055B>.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\formview\helpers.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; WEBLOCKS::MAKE-SLOT-WRITER
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\formview\formview.ofasl
Warning: (METHOD MIXIN-FORM-VIEW-FIELD-PERSIST-P (MIXIN-FORM-VIEW-
FIELD)) defined more than once in d:\ue31057\old\base\external\site
\weblocks-stable\src\views\formview\formview.lisp.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\formview\parser.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::PARSER)
; (TOP-LEVEL-FORM 4)
; (DEFGENERIC WEBLOCKS::PARSE-VIEW-FIELD-VALUE)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)
; (DEFGENERIC WEBLOCKS::PARSER-CLASS-NAME)
; (TOP-LEVEL-FORM 5)
;;;*** Warning in (METHOD WEBLOCKS:VIEW-ARGUMENT-QUOTING-STRATEGY
((EQL :PRESENT-AS))): (METHOD WEBLOCKS:VIEW-ARGUMENT-QUOTING-STRATEGY
((EQL :PRESENT-AS))) being redefined in d:\ue31057\old\base\external
\site\weblocks-stable\src\views\formview\parser.lisp (previously in d:
\ue31057\old\base\external\site\weblocks-stable\src\views\view
\presentation.lisp).
; (METHOD WEBLOCKS:VIEW-ARGUMENT-QUOTING-STRATEGY ((EQL :PRESENT-AS)))
; (TOP-LEVEL-FORM 6)
; (DEFCLASS WEBLOCKS::TEXT-PARSER)
; (METHOD WEBLOCKS::PARSE-VIEW-FIELD-VALUE (WEBLOCKS::TEXT-PARSER T T
WEBLOCKS:FORM-VIEW WEBLOCKS:FORM-VIEW-FIELD))
; WEBLOCKS::TEXT-INPUT-PRESENT-P
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "parser" 21E517F3>.
Warning: COMPILE-FILE failed while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "parser" 21E517F3>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\formview\parser.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\formview\scaffold.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::FORM-SCAFFOLD)
; (METHOD WEBLOCKS:GENERATE-SCAFFOLD-VIEW (WEBLOCKS::FORM-SCAFFOLD T))
;;;*** Warning in (METHOD WEBLOCKS:GENERATE-SCAFFOLD-VIEW-FIELD
(WEBLOCKS::FORM-SCAFFOLD T T)): (MULTIPLE-VALUE-CALL (FUNCTION
WEBLOCKS:TYPESPEC->VIEW-FIELD-PRESENTATION) WEBLOCKS:SCAFFOLD
(WEBLOCKS:INSPECT-TYPESPEC (SLOT-DEFINITION-TYPE WEBLOCKS::DSD)))
Multi form multi-value-call is inefficient
;;;*** Warning in (METHOD WEBLOCKS:GENERATE-SCAFFOLD-VIEW-FIELD
(WEBLOCKS::FORM-SCAFFOLD T T)): (MULTIPLE-VALUE-CALL (FUNCTION
WEBLOCKS::TYPESPEC->FORM-VIEW-FIELD-PARSER) WEBLOCKS:SCAFFOLD
(WEBLOCKS:INSPECT-TYPESPEC (SLOT-DEFINITION-TYPE WEBLOCKS::DSD)))
Multi form multi-value-call is inefficient
; (METHOD WEBLOCKS:GENERATE-SCAFFOLD-VIEW-FIELD (WEBLOCKS::FORM-
SCAFFOLD T T))
; (TOP-LEVEL-FORM 6)
; (DEFGENERIC WEBLOCKS::TYPESPEC->FORM-VIEW-FIELD-PARSER)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "scaffold" 21E4EB03>.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\formview\validation.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; WEBLOCKS::RUN-VIEW-VALIDATORS
; (TOP-LEVEL-FORM 5)
; (DEFGENERIC WEBLOCKS::VALIDATE-OBJECT-FORM-VIEW)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 6)
; (DEFGENERIC WEBLOCKS::VALIDATE-FORM-VIEW-FIELD)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\formview\validation.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\formview\request-deserialization.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; (DEFGENERIC WEBLOCKS::UPDATE-OBJECT-VIEW-FROM-REQUEST)
; (TOP-LEVEL-FORM 3)
; WEBLOCKS::REQUEST-PARAMETERS-FOR-OBJECT-VIEW
; (TOP-LEVEL-FORM 5)
; (DEFGENERIC WEBLOCKS::REQUEST-PARAMETER-FOR-PRESENTATION)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\sequence-view.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*RENDER-EMPTY-SEQUENCE-STRING*)
; (DEFCLASS WEBLOCKS::SEQUENCE-VIEW)
; (DEFCLASS WEBLOCKS::VIEW-FIELD-SORTING-MIXIN)
; (DEFCLASS WEBLOCKS::SEQUENCE-VIEW-FIELD)
; (DEFCLASS WEBLOCKS::MIXIN-SEQUENCE-VIEW-FIELD)
; (DEFCLASS WEBLOCKS::SEQUENCE-SCAFFOLD)
; (METHOD WEBLOCKS:VIEW-DEFAULT-FIELD-TYPE ((EQL (QUOTE SEQUENCE))
(EQL (QUOTE WEBLOCKS:MIXIN))))
; (METHOD WEBLOCKS:WITH-VIEW-HEADER (WEBLOCKS::SEQUENCE-VIEW T T T))
; (METHOD WEBLOCKS:RENDER-OBJECT-VIEW-IMPL (NULL WEBLOCKS::SEQUENCE-
VIEW T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\dataview.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\sequence-view.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\tableview.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::TABLE-VIEW)
; (DEFCLASS WEBLOCKS::TABLE-VIEW-FIELD)
; (DEFCLASS WEBLOCKS::TABLE-SCAFFOLD)
; (METHOD WEBLOCKS:VIEW-DEFAULT-FIELD-TYPE ((EQL (QUOTE
WEBLOCKS::TABLE)) (EQL (QUOTE WEBLOCKS:MIXIN))))
; (METHOD WEBLOCKS:WITH-VIEW-HEADER (WEBLOCKS::TABLE-VIEW T T T))
; (TOP-LEVEL-FORM 8)
; (DEFGENERIC WEBLOCKS::WITH-TABLE-VIEW-HEADER)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 9)
; (DEFGENERIC WEBLOCKS::WITH-TABLE-VIEW-HEADER-ROW)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 10)
; (DEFGENERIC WEBLOCKS::RENDER-TABLE-VIEW-HEADER-ROW)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 11)
; (DEFGENERIC WEBLOCKS::RENDER-VIEW-FIELD-HEADER)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 12)
; (DEFGENERIC WEBLOCKS::RENDER-VIEW-FIELD-HEADER-VALUE)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 13)
; (DEFGENERIC WEBLOCKS::WITH-TABLE-VIEW-BODY-ROW)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 14)
; (DEFGENERIC WEBLOCKS::RENDER-TABLE-VIEW-BODY-ROW)
; (TOP-LEVEL-FORM 14)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD (WEBLOCKS::TABLE-VIEW-FIELD
WEBLOCKS::TABLE-VIEW T T T T))
; (METHOD WEBLOCKS:RENDER-OBJECT-VIEW-IMPL (SEQUENCE WEBLOCKS::TABLE-
VIEW T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\formview\helpers.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\formview\scaffold.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\formview\request-
deserialization.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\file-upload.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::FILE-UPLOAD-PRESENTATION)
;;;*** Warning in (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T
WEBLOCKS::FILE-UPLOAD-PRESENTATION WEBLOCKS:FORM-VIEW-FIELD
WEBLOCKS:FORM-VIEW T T)): INTERMEDIATE-VALUES is bound but not
referenced
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::FILE-UPLOAD-
PRESENTATION WEBLOCKS:FORM-VIEW-FIELD WEBLOCKS:FORM-VIEW T T))
; (DEFCLASS WEBLOCKS::FILE-UPLOAD-PARSER)
; (METHOD WEBLOCKS:PARSE-VIEW-FIELD-VALUE (WEBLOCKS::FILE-UPLOAD-
PARSER T T WEBLOCKS:FORM-VIEW WEBLOCKS:FORM-VIEW-FIELD))
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "file-upload" 21E4BA23>.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\us-states.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*US-STATES*)
; (DEFPARAMETER WEBLOCKS::*US-STATES-ABREVIATION->NAME*)
; (DEFPARAMETER WEBLOCKS::*USE-SUGGEST-FOR-US-STATES*)
; WEBLOCKS::US-STATE-P
; (DEFTYPE WEBLOCKS::US-STATE)
; (DEFCLASS WEBLOCKS::US-STATE-PRESENTATION)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::US-STATE-
PRESENTATION WEBLOCKS:FORM-VIEW-FIELD WEBLOCKS:FORM-VIEW T T))
; (DEFCLASS WEBLOCKS::US-STATE-PARSER)
; (METHOD WEBLOCKS:PARSE-VIEW-FIELD-VALUE (WEBLOCKS::US-STATE-PARSER T
T WEBLOCKS:FORM-VIEW WEBLOCKS:FORM-VIEW-FIELD))
; (METHOD WEBLOCKS:TYPESPEC->VIEW-FIELD-PRESENTATION (WEBLOCKS:FORM-
SCAFFOLD (EQL (QUOTE WEBLOCKS::US-STATE)) T))
; (METHOD WEBLOCKS:TYPESPEC->FORM-VIEW-FIELD-PARSER (WEBLOCKS:FORM-
SCAFFOLD (EQL (QUOTE WEBLOCKS::US-STATE)) T))
; (METHOD WEBLOCKS:DEPENDENCIES APPEND (WEBLOCKS::US-STATE-
PRESENTATION))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\boolean.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::PREDICATE-PRESENTATION)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (NULL WEBLOCKS::PREDICATE-
PRESENTATION T T T T))
; (METHOD WEBLOCKS:PRINT-VIEW-FIELD-VALUE (T WEBLOCKS::PREDICATE-
PRESENTATION T T T T))
; (DEFCLASS WEBLOCKS::CHECKBOX-PRESENTATION)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::CHECKBOX-
PRESENTATION WEBLOCKS:FORM-VIEW-FIELD WEBLOCKS:FORM-VIEW T T))
; (DEFCLASS WEBLOCKS::PREDICATE-PARSER)
; (METHOD WEBLOCKS:PARSE-VIEW-FIELD-VALUE (WEBLOCKS::PREDICATE-PARSER
T T WEBLOCKS:FORM-VIEW WEBLOCKS:FORM-VIEW-FIELD))
; (METHOD WEBLOCKS:TYPESPEC->VIEW-FIELD-PRESENTATION
(WEBLOCKS:SCAFFOLD (EQL (QUOTE BOOLEAN)) T))
; (METHOD WEBLOCKS:TYPESPEC->VIEW-FIELD-PRESENTATION (WEBLOCKS:FORM-
SCAFFOLD (EQL (QUOTE BOOLEAN)) T))
; (METHOD WEBLOCKS:TYPESPEC->FORM-VIEW-FIELD-PARSER (WEBLOCKS:FORM-
SCAFFOLD (EQL (QUOTE BOOLEAN)) T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\parsers\common.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::NUMBER-PARSER)
; (DEFCLASS WEBLOCKS::INTEGER-PARSER)
; (METHOD WEBLOCKS:PARSER-ERROR-MESSAGE (WEBLOCKS::INTEGER-PARSER))
; (METHOD WEBLOCKS:PARSE-VIEW-FIELD-VALUE (WEBLOCKS::INTEGER-PARSER T
T WEBLOCKS:FORM-VIEW WEBLOCKS:FORM-VIEW-FIELD))
; (METHOD WEBLOCKS:TYPESPEC->FORM-VIEW-FIELD-PARSER (WEBLOCKS:FORM-
SCAFFOLD (EQL (QUOTE INTEGER)) T))
; (DEFCLASS WEBLOCKS::FLOAT-PARSER)
; (METHOD WEBLOCKS:PARSER-ERROR-MESSAGE (WEBLOCKS::FLOAT-PARSER))
; (METHOD WEBLOCKS:PARSE-VIEW-FIELD-VALUE (WEBLOCKS::FLOAT-PARSER T T
WEBLOCKS:FORM-VIEW WEBLOCKS:FORM-VIEW-FIELD))
; (METHOD WEBLOCKS:TYPESPEC->FORM-VIEW-FIELD-PARSER (WEBLOCKS:FORM-
SCAFFOLD (EQL (QUOTE FLOAT)) T))
; (DEFCLASS WEBLOCKS::SYMBOL-PARSER)
; WEBLOCKS::PARSE-SYMBOL-FROM-REQUEST
; (METHOD WEBLOCKS:PARSE-VIEW-FIELD-VALUE (WEBLOCKS::SYMBOL-PARSER T T
WEBLOCKS:FORM-VIEW WEBLOCKS:FORM-VIEW-FIELD))
; (DEFCLASS WEBLOCKS::KEYWORD-PARSER)
; (METHOD WEBLOCKS:PARSE-VIEW-FIELD-VALUE (WEBLOCKS::KEYWORD-PARSER T
T WEBLOCKS:FORM-VIEW WEBLOCKS:FORM-VIEW-FIELD))
; (DEFCLASS WEBLOCKS::OBJECT-ID-PARSER)
; (METHOD WEBLOCKS:PARSER-ERROR-MESSAGE (WEBLOCKS::OBJECT-ID-PARSER))
; (METHOD WEBLOCKS:PARSE-VIEW-FIELD-VALUE (WEBLOCKS::OBJECT-ID-PARSER
T T WEBLOCKS:FORM-VIEW WEBLOCKS:FORM-VIEW-FIELD))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\presentations\hidden.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::HIDDEN-PRESENTATION)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD (WEBLOCKS:FORM-VIEW-FIELD
WEBLOCKS:FORM-VIEW T WEBLOCKS::HIDDEN-PRESENTATION T T))
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD (WEBLOCKS:DATA-VIEW-FIELD
WEBLOCKS:DATA-VIEW T WEBLOCKS::HIDDEN-PRESENTATION T T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\presentations\choices.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; (DEFGENERIC WEBLOCKS::PRESENTATION-CHOICES-DEFAULT-LABEL-KEY)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 4)
; (DEFGENERIC WEBLOCKS::PRESENTATION-CHOICES-DEFAULT-VALUE-KEY)
; (TOP-LEVEL-FORM 4)
; (DEFCLASS WEBLOCKS::CHOICES-PRESENTATION-MIXIN)
; (METHOD WEBLOCKS::OBTAIN-PRESENTATION-CHOICES (WEBLOCKS::CHOICES-
PRESENTATION-MIXIN T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\presentations\date.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCONSTANT METABANG.UTILITIES:+SECONDS-PER-DAY+)
; WEBLOCKS::DATE->UTIME
; (DEFCLASS WEBLOCKS::DATE-PARSER)
; (METHOD WEBLOCKS:PARSE-VIEW-FIELD-VALUE (WEBLOCKS::DATE-PARSER T T
WEBLOCKS:FORM-VIEW WEBLOCKS:FORM-VIEW-FIELD))
; (DEFCLASS WEBLOCKS::DATE-PRINTING-MIXIN)
; (METHOD WEBLOCKS:PRINT-VIEW-FIELD-VALUE (T WEBLOCKS::DATE-PRINTING-
MIXIN T T T T))
; (DEFCLASS WEBLOCKS::DATE-PRESENTATION)
; (DEFCLASS WEBLOCKS::DATE-ENTRY-PRESENTATION)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\presentations
\choices.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\presentations\radio.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::RADIO-PRESENTATION)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD (WEBLOCKS:FORM-VIEW-FIELD
WEBLOCKS:FORM-VIEW T WEBLOCKS::RADIO-PRESENTATION T T))
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::RADIO-
PRESENTATION WEBLOCKS:FORM-VIEW-FIELD WEBLOCKS:FORM-VIEW T T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\presentations\dropdown.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::DROPDOWN-PRESENTATION)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::DROPDOWN-
PRESENTATION WEBLOCKS:FORM-VIEW-FIELD WEBLOCKS:FORM-VIEW T T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\presentations\textarea.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*TEXTAREA-ROWS*)
; (DEFPARAMETER WEBLOCKS::*TEXTAREA-COLS*)
; (DEFPARAMETER WEBLOCKS::*MAX-TEXTAREA-INPUT-LENGTH*)
; (DEFCLASS WEBLOCKS::TEXTAREA-PRESENTATION)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::TEXTAREA-
PRESENTATION WEBLOCKS:FORM-VIEW-FIELD WEBLOCKS:FORM-VIEW T T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\presentations\paragraph.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::PARAGRAPH-PRESENTATION)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::PARAGRAPH-
PRESENTATION T T T T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\presentations\excerpt.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*TEXT-DATA-CUTOFF-THRESHOLD*)
; (DEFCLASS WEBLOCKS::EXCERPT-PRESENTATION)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::EXCERPT-
PRESENTATION T T T T))
; (METHOD WEBLOCKS:PRINT-VIEW-FIELD-VALUE (T WEBLOCKS::EXCERPT-
PRESENTATION T T T T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\presentations\image.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::IMAGE-PRESENTATION)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (NULL WEBLOCKS::IMAGE-
PRESENTATION T T T T))
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::IMAGE-
PRESENTATION T T T T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\presentations\checkboxes.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::CHECKBOXES-PRESENTATION)
; (METHOD WEBLOCKS:OBTAIN-PRESENTATION-CHOICES (WEBLOCKS::CHECKBOXES-
PRESENTATION T))
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD (WEBLOCKS:FORM-VIEW-FIELD
WEBLOCKS:FORM-VIEW T WEBLOCKS::CHECKBOXES-PRESENTATION T T))
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::CHECKBOXES-
PRESENTATION WEBLOCKS:FORM-VIEW-FIELD WEBLOCKS:FORM-VIEW T T))
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::CHECKBOXES-
PRESENTATION T T T T))
; WEBLOCKS::RENDER-CHECKBOXES
; (METHOD WEBLOCKS:REQUEST-PARAMETER-FOR-PRESENTATION (T
WEBLOCKS::CHECKBOXES-PRESENTATION))
; (DEFCLASS WEBLOCKS::CHECKBOXES-PARSER)
;;;*** Warning in WEBLOCKS::POST-PARAMETER->LIST: HUNCHENTOOT:POST-
PARAMETERS is called with the wrong number of arguments: Got 0 wanted
1
; WEBLOCKS::POST-PARAMETER->LIST
; (METHOD WEBLOCKS:PARSE-VIEW-FIELD-VALUE (WEBLOCKS::CHECKBOXES-PARSER
T T WEBLOCKS:FORM-VIEW WEBLOCKS:FORM-VIEW-FIELD))
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "checkboxes" 21E4B313>.
Warning: COMPILE-FILE failed while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "checkboxes" 21E4B313>.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\presentations\url.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::URL-PRESENTATION)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::URL-
PRESENTATION T T T T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\presentations\html.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::HTML-PRESENTATION)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::HTML-
PRESENTATION T T T T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\presentations
\hidden.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\presentations
\date.ofasl
Warning: (DEFCONSTANT +SECONDS-PER-DAY+) being redefined in d:
\ue31057\old\base\external\site\weblocks-stable\src\views\types
\presentations\date.lisp (previously in d:\ue31057\old\base\external
\site\metatilities-base\dev\l0-time.lisp).
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\presentations
\radio.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\presentations
\dropdown.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\presentations
\textarea.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\presentations
\paragraph.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\presentations
\excerpt.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\presentations
\image.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\presentations
\checkboxes.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\presentations
\url.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\presentations
\html.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\parsers\common.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\member.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (METHOD WEBLOCKS:TYPESPEC->VIEW-FIELD-PRESENTATION (WEBLOCKS:FORM-
SCAFFOLD (EQL (QUOTE MEMBER)) T))
; (METHOD WEBLOCKS:TYPESPEC->FORM-VIEW-FIELD-PARSER (WEBLOCKS:FORM-
SCAFFOLD (EQL (QUOTE MEMBER)) T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\views\types\password.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*MAX-PASSWORD-LENGTH*)
; (DEFCLASS WEBLOCKS::PASSWORD-PRESENTATION)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (T WEBLOCKS::PASSWORD-
PRESENTATION WEBLOCKS:FORM-VIEW-FIELD WEBLOCKS:FORM-VIEW T T))
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE (NULL WEBLOCKS::PASSWORD-
PRESENTATION WEBLOCKS:FORM-VIEW-FIELD WEBLOCKS:FORM-VIEW T T))
; (METHOD WEBLOCKS:PRINT-VIEW-FIELD-VALUE (T WEBLOCKS::PASSWORD-
PRESENTATION T T T T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\tableview.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\file-upload.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\us-states.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\boolean.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\member.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\views\types\password.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\linguistic\grammar.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\widget\widget-mop.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::WIDGET-CLASS)
; (METHOD VALIDATE-SUPERCLASS (WEBLOCKS::WIDGET-CLASS CLOSER-
MOP:STANDARD-CLASS))
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::WIDGET-CLASS))
; (DEFCLASS WEBLOCKS::WIDGET-SLOT-DEFINITION-MIXIN)
; (DEFCLASS WEBLOCKS::WIDGET-DIRECT-SLOT-DEFINITION)
; (METHOD CLOS:DIRECT-SLOT-DEFINITION-CLASS (WEBLOCKS::WIDGET-CLASS))
; (DEFCLASS WEBLOCKS::WIDGET-EFFECTIVE-SLOT-DEFINITION)
; (METHOD CLOS:EFFECTIVE-SLOT-DEFINITION-CLASS (WEBLOCKS::WIDGET-
CLASS))
; (METHOD CLOS:COMPUTE-EFFECTIVE-SLOT-DEFINITION (WEBLOCKS::WIDGET-
CLASS T T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\widget\widget-mop.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\widget\widget.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; WEBLOCKS::DEFWIDGET
; (DEFCLASS WEBLOCKS::WIDGET)
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::WIDGET))
; (TOP-LEVEL-FORM 6)
; (DEFGENERIC WEBLOCKS::WIDGET-NAME)
; (TOP-LEVEL-FORM 6)
; (METHOD (SETF WEBLOCKS::WIDGET-NAME) (T WEBLOCKS::WIDGET))
; (DEFPARAMETER WEBLOCKS::*OVERRIDE-PARENT-P*)
; (METHOD (SETF WEBLOCKS::WIDGET-PARENT) (T WEBLOCKS::WIDGET))
; (DEFTYPE WEBLOCKS::WIDGET-DESIGNATOR)
; WEBLOCKS::WIDGET-DESIGNATOR-P
; (METHOD WEBLOCKS::WIDGET-RENDERED-P (T))
; (METHOD (SETF WEBLOCKS::WIDGET-RENDERED-P) (T T))
; (METHOD WEBLOCKS::WIDGET-PARENT (T))
; (METHOD (SETF WEBLOCKS::WIDGET-PARENT) (T T))
; (TOP-LEVEL-FORM 16)
; (DEFGENERIC WEBLOCKS::MAKE-WIDGET-PLACE-WRITER)
; (TOP-LEVEL-FORM 16)
; (DEFPARAMETER WEBLOCKS::*WIDGET-CLASSES*)
; WEBLOCKS::ENSURE-WIDGET-METHODS
; (TOP-LEVEL-FORM 19)
; (DEFGENERIC WEBLOCKS::WITH-WIDGET-HEADER)
; (TOP-LEVEL-FORM 19)
; (TOP-LEVEL-FORM 20)
; (DEFGENERIC WEBLOCKS::RENDER-WIDGET-BODY)
; (TOP-LEVEL-FORM 20)
; (METHOD WEBLOCKS::RENDER-WIDGET-BODY (SYMBOL))
; (METHOD WEBLOCKS::RENDER-WIDGET-BODY (FUNCTION))
; (METHOD WEBLOCKS::RENDER-WIDGET-BODY (STRING))
; (METHOD WEBLOCKS::WIDGET-PREFIX-FN (T))
; (METHOD WEBLOCKS::WIDGET-SUFFIX-FN (T))
; (TOP-LEVEL-FORM 26)
; (DEFGENERIC WEBLOCKS::RENDER-WIDGET)
; (TOP-LEVEL-FORM 26)
; (METHOD WEBLOCKS::RENDER-WIDGET (T))
; (METHOD WEBLOCKS::COMPOSITE-WIDGETS (WEBLOCKS::WIDGET))
; (METHOD WEBLOCKS::COMPOSITE-WIDGETS (FUNCTION))
; (METHOD WEBLOCKS::COMPOSITE-WIDGETS (SYMBOL))
; (METHOD WEBLOCKS::COMPOSITE-WIDGETS (STRING))
; (TOP-LEVEL-FORM 32)
; (DEFGENERIC WEBLOCKS::MARK-DIRTY)
; (TOP-LEVEL-FORM 32)
; (METHOD WEBLOCKS::MARK-DIRTY (WEBLOCKS::WIDGET))
; WEBLOCKS::WIDGET-DIRTY-P
; (METHOD (SETF CLOS:SLOT-VALUE-USING-CLASS) (T WEBLOCKS:WIDGET-CLASS
WEBLOCKS::WIDGET WEBLOCKS::WIDGET-EFFECTIVE-SLOT-DEFINITION))
; (TOP-LEVEL-FORM 36)
; (DEFGENERIC WEBLOCKS::FIND-WIDGET-BY-PATH*)
; (TOP-LEVEL-FORM 36)
; (METHOD WEBLOCKS::FIND-WIDGET-BY-PATH* ((EQL NIL) T))
; (METHOD WEBLOCKS::FIND-WIDGET-BY-PATH* (WEBLOCKS::WIDGET T))
; (METHOD WEBLOCKS::FIND-WIDGET-BY-PATH* (T (EQL NIL)))
; WEBLOCKS::FIND-WIDGET-BY-PATH
; (METHOD PRINT-OBJECT (WEBLOCKS::WIDGET T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\widget\widget.ofasl
Warning: (METHOD (SETF WIDGET-PARENT) (T WIDGET)) defined more than
once in d:\ue31057\old\base\external\site\weblocks-stable\src\widgets
\widget\widget.lisp.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\flash.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::FLASH)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND (WEBLOCKS::FLASH))
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::FLASH))
; WEBLOCKS::FLASH-MESSAGES-TO-SHOW
; (METHOD WEBLOCKS:WITH-WIDGET-HEADER (WEBLOCKS::FLASH T))
; WEBLOCKS::FLASH-MESSAGE
; (METHOD WEBLOCKS:RENDER-WIDGET-BODY (WEBLOCKS::FLASH))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\data-editor.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::DATA-EDITOR)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND (WEBLOCKS::DATA-
EDITOR))
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::DATA-EDITOR))
; (TOP-LEVEL-FORM 5)
; (DEFGENERIC (SETF WEBLOCKS::DATAFORM-UI-STATE))
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 6)
; (DEFGENERIC WEBLOCKS::RENDER-DATAFORM-DATA-BUTTONS)
; (TOP-LEVEL-FORM 6)
; (METHOD WEBLOCKS::RENDER-DATAFORM-DATA-BUTTONS (WEBLOCKS::DATA-
EDITOR T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\data-editor.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\dataform.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::DATAFORM)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND (WEBLOCKS::DATAFORM))
; (METHOD WEBLOCKS::DATAFORM-DATA-VIEW (WEBLOCKS::DATAFORM))
; (METHOD WEBLOCKS::DATAFORM-FORM-VIEW (WEBLOCKS::DATAFORM))
; (METHOD WEBLOCKS:RENDER-WIDGET-BODY (WEBLOCKS::DATAFORM))
; (TOP-LEVEL-FORM 7)
; (DEFGENERIC WEBLOCKS::RENDER-DATAFORM)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 8)
; (DEFGENERIC WEBLOCKS::RENDER-DATAFORM-DATA)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 9)
; (DEFGENERIC WEBLOCKS::RENDER-DATAFORM-FORM)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 10)
; (DEFGENERIC WEBLOCKS::DATAFORM-SUBMIT-ACTION)
; (TOP-LEVEL-FORM 10)
; (METHOD WEBLOCKS:DEPENDENCIES APPEND (WEBLOCKS::DATAFORM))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\dataform.ofasl
Warning: (METHOD DATAFORM-DATA-VIEW (DATAFORM)) defined more than once
in d:\ue31057\old\base\external\site\weblocks-stable\src\widgets
\dataform.lisp.
Warning: (METHOD DATAFORM-FORM-VIEW (DATAFORM)) defined more than once
in d:\ue31057\old\base\external\site\weblocks-stable\src\widgets
\dataform.lisp.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\quickform.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::QUICKFORM)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND
(WEBLOCKS::QUICKFORM))
; WEBLOCKS::MAKE-QUICKFORM
; (METHOD WEBLOCKS:DATAFORM-SUBMIT-ACTION (WEBLOCKS::QUICKFORM T))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\quickform.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\login.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
;;;*** Warning in (TOP-LEVEL-FORM 3): WEBLOCKS::*DEFAULT-LOGIN-TITLE*
assumed special
;;;*** Warning in (TOP-LEVEL-FORM 3): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 3): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 3): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 3): Inline expansion for CL-
CONT::FUNCALL/CC not found
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
;;;*** Warning in WEBLOCKS::AUTHENTICATEDP: WEBLOCKS::*AUTHENTICATION-
KEY* assumed special
; WEBLOCKS::AUTHENTICATEDP
; WEBLOCKS::ON-SIGNOUT-HOOKS
; WEBLOCKS::ON-SIGNIN-HOOKS
;;;*** Warning in WEBLOCKS::LOGOUT: WEBLOCKS::*AUTHENTICATION-KEY*
assumed special
; WEBLOCKS::LOGOUT
; WEBLOCKS::HASH-PASSWORD
; (DEFPARAMETER WEBLOCKS::*DEFAULT-LOGIN-TITLE*)
; (DEFPARAMETER WEBLOCKS::*DEFAULT-LOGIN-FAILURE-ERROR*)
; (DEFPARAMETER WEBLOCKS::*AUTHENTICATION-KEY*)
; (TOP-LEVEL-FORM 12)
; (DEFCLASS WEBLOCKS::LOGIN)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND (WEBLOCKS::LOGIN))
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::LOGIN))
; (METHOD WEBLOCKS:RENDER-WIDGET-BODY (WEBLOCKS::LOGIN))
; WEBLOCKS::AUTHENTICATED-SERVER-USERS
; WEBLOCKS::ANONYMOUS-USER-COUNT
; WEBLOCKS::PRINT-USER-STATS
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "login" 21E4DBAF>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\flash.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\dataseq\dataseq.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (METHOD WEBLOCKS::DATASEQ-DATA-FORM-CLASS (T))
; (DEFCLASS WEBLOCKS::DATASEQ)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND (WEBLOCKS::DATASEQ))
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::DATASEQ))
; (METHOD WEBLOCKS::DATASEQ-VIEW (WEBLOCKS::DATASEQ))
; WEBLOCKS::DATASEQ-DATA
; WEBLOCKS::DATASEQ-DATA-COUNT
; WEBLOCKS::DATASEQ-PERSISTENT-QUERY-FUNCTION
; (TOP-LEVEL-FORM 10)
; (DEFGENERIC WEBLOCKS::DATASEQ-RENDER-PAGINATION-WIDGET)
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 11)
; (DEFGENERIC WEBLOCKS::DATASEQ-RENDER-PAGINATION-WIDGET-DEFAULT)
; (TOP-LEVEL-FORM 11)
; (METHOD WEBLOCKS:DEPENDENCIES APPEND (WEBLOCKS::DATASEQ))
; WEBLOCKS::DATASEQ-SELECTION-EMPTY-P
; WEBLOCKS::DATASEQ-CLEAR-SELECTION
; WEBLOCKS::DATASEQ-ITEM-SELECTED-P
; WEBLOCKS::DATASEQ-SELECT-ITEM
; WEBLOCKS::DATASEQ-UPDATE-SORT-COLUMN
; WEBLOCKS::DATASEQ-FIELD-SORTABLE-P
; WEBLOCKS::GET-FIELD-INFO-SORT-PATH
; WEBLOCKS::DATASEQ-SORT-PATH
; WEBLOCKS::DATASEQ-SORT-DIRECTION
; WEBLOCKS::DATASEQ-SORT-SLOT
; WEBLOCKS::NEGATE-SORT-DIRECTION
; WEBLOCKS::HUMANIZE-SORT-DIRECTION
; (TOP-LEVEL-FORM 25)
; (DEFGENERIC WEBLOCKS::DATASEQ-RENDER-OPERATIONS)
; (TOP-LEVEL-FORM 25)
; (TOP-LEVEL-FORM 26)
; (DEFGENERIC WEBLOCKS::DATASEQ-RENDER-OPERATIONS-DEFAULT)
; (TOP-LEVEL-FORM 26)
; (TOP-LEVEL-FORM 27)
; (DEFGENERIC WEBLOCKS::DATASEQ-RENDER-MINING-BAR)
; (TOP-LEVEL-FORM 27)
; (TOP-LEVEL-FORM 28)
; (DEFGENERIC WEBLOCKS::RENDER-DATASEQ-BODY)
; (TOP-LEVEL-FORM 28)
; (TOP-LEVEL-FORM 29)
; (DEFGENERIC WEBLOCKS::DATASEQ-WRAP-BODY-IN-FORM-P)
; (TOP-LEVEL-FORM 29)
; (METHOD WEBLOCKS:RENDER-WIDGET-BODY (WEBLOCKS::DATASEQ))
; WEBLOCKS::RENDER-TOTAL-ITEMS-MESSAGE
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\dataseq\operations-action.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 2): Inline expansion for CL-
CONT::FUNCALL/CC not found
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "operations-action" 21E76C9F>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\dataseq\dataseq.ofasl
Warning: (METHOD DATASEQ-VIEW (DATASEQ)) defined more than once in d:
\ue31057\old\base\external\site\weblocks-stable\src\widgets\dataseq
\dataseq.lisp.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\dataseq\operations-
action.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\datagrid\datagrid.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::DATAGRID)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND (WEBLOCKS::DATAGRID))
; (METHOD WEBLOCKS:DATASEQ-VIEW (WEBLOCKS::DATAGRID))
; (METHOD WEBLOCKS:DATASEQ-RENDER-MINING-BAR (WEBLOCKS::DATAGRID))
; (METHOD WEBLOCKS:RENDER-DATASEQ-BODY (WEBLOCKS::DATAGRID))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\datagrid\datagrid.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\datagrid\sort.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-HEADER (WEBLOCKS:TABLE-VIEW-FIELD
WEBLOCKS:TABLE-VIEW WEBLOCKS:DATAGRID T T T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\datagrid\select.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; WEBLOCKS::RENDER-SELECT-BAR
; (DEFCLASS WEBLOCKS::DATAGRID-SELECT-FIELD)
; WEBLOCKS::MAKE-SELECT-FIELD
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-HEADER (WEBLOCKS::DATAGRID-SELECT-
FIELD WEBLOCKS:TABLE-VIEW WEBLOCKS:DATAGRID T T T))
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD (WEBLOCKS::DATAGRID-SELECT-FIELD
WEBLOCKS:TABLE-VIEW WEBLOCKS:DATAGRID T T T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\datagrid\drilldown.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; WEBLOCKS::DATAGRID-DRILLDOWN-STYLE
; (DEFCLASS WEBLOCKS::DATAGRID-DRILLDOWN-FIELD)
; WEBLOCKS::MAKE-DRILLDOWN-FIELD
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD-HEADER (WEBLOCKS::DATAGRID-
DRILLDOWN-FIELD WEBLOCKS:TABLE-VIEW WEBLOCKS:DATAGRID T T T))
; (METHOD WEBLOCKS:RENDER-VIEW-FIELD (WEBLOCKS::DATAGRID-DRILLDOWN-
FIELD WEBLOCKS:TABLE-VIEW WEBLOCKS:DATAGRID T T T))
; (METHOD WEBLOCKS:WITH-TABLE-VIEW-BODY-ROW (WEBLOCKS:TABLE-VIEW T
WEBLOCKS:DATAGRID))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\dataedit\delete-action.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; WEBLOCKS::DATAEDIT-DELETE-ITEM
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 4): Inline expansion for CL-
CONT::FUNCALL/CC not found
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "delete-action" 21E4E233>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\dataedit\delete-
action.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\dataedit\dataedit.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*DEFAULT-CASCADE-DELETE-MIXINS-P*)
; (DEFCLASS WEBLOCKS::DATAEDIT-MIXIN)
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::DATAEDIT-MIXIN))
; (TOP-LEVEL-FORM 6)
; (DEFGENERIC WEBLOCKS::DATAEDIT-CREATE-DRILLDOWN-WIDGET)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 7)
; (DEFGENERIC WEBLOCKS::DATAEDIT-DRILLDOWN-ACTION)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 8)
; (DEFGENERIC WEBLOCKS::DATAEDIT-CREATE-NEW-ITEM-WIDGET)
; (TOP-LEVEL-FORM 8)
; (METHOD WEBLOCKS:DATASEQ-RENDER-OPERATIONS (WEBLOCKS::DATAEDIT-
MIXIN))
; (METHOD WEBLOCKS:DATASEQ-RENDER-PAGINATION-WIDGET
(WEBLOCKS::DATAEDIT-MIXIN))
; WEBLOCKS::DATAEDIT-RESET-STATE
; WEBLOCKS::DATAEDIT-ADD-ITEMS-FLOW
; (METHOD WEBLOCKS::DATAEDIT-UPDATE-OPERATIONS (T))
; (METHOD WEBLOCKS:RENDER-WIDGET-BODY :BEFORE (WEBLOCKS::DATAEDIT-
MIXIN))
; (METHOD WEBLOCKS:DEPENDENCIES APPEND (WEBLOCKS::DATAEDIT-MIXIN))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\datagrid\sort.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\datagrid\select.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\datagrid\drilldown.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\dataedit\dataedit.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\gridedit.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::GRIDEDIT)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND (WEBLOCKS::GRIDEDIT))
; (METHOD WEBLOCKS:DATAEDIT-CREATE-NEW-ITEM-WIDGET
(WEBLOCKS::GRIDEDIT))
; (METHOD WEBLOCKS:DATAEDIT-CREATE-DRILLDOWN-WIDGET
(WEBLOCKS::GRIDEDIT T))
; (METHOD WEBLOCKS:RENDER-WIDGET-BODY (WEBLOCKS::GRIDEDIT))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\datalist.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*DATALIST-SELECTION-ATTEMPT-ERROR-MESSAGE*)
; (DEFCLASS WEBLOCKS::DATALIST)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND (WEBLOCKS::DATALIST))
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::DATALIST))
; (METHOD (SETF WEBLOCKS:DATASEQ-ALLOW-SELECT-P) (T
WEBLOCKS::DATALIST))
; (METHOD WEBLOCKS::DATALIST-ITEM-DATA-VIEW (WEBLOCKS::DATALIST))
; WEBLOCKS::DATALIST-RENDER-SORT-DROPDOWN
; (METHOD WEBLOCKS:DATASEQ-RENDER-MINING-BAR (WEBLOCKS::DATALIST))
; (METHOD WEBLOCKS:DATASEQ-WRAP-BODY-IN-FORM-P (WEBLOCKS::DATALIST))
; WEBLOCKS::DATALIST-ON-DRILLDOWN
; WEBLOCKS::DATALIST-UPDATE-OPRETAIONS
; (TOP-LEVEL-FORM 13)
; (DEFGENERIC WEBLOCKS::DATALIST-RENDER-ITEM)
; (TOP-LEVEL-FORM 13)
; (METHOD WEBLOCKS:RENDER-DATASEQ-BODY (WEBLOCKS::DATALIST))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\datalist.ofasl
Warning: (METHOD DATALIST-ITEM-DATA-VIEW (DATALIST)) defined more than
once in d:\ue31057\old\base\external\site\weblocks-stable\src\widgets
\datalist.lisp.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\listedit.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::LISTEDIT)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND (WEBLOCKS::LISTEDIT))
; (METHOD WEBLOCKS:DATAEDIT-CREATE-NEW-ITEM-WIDGET
(WEBLOCKS::LISTEDIT))
; (METHOD WEBLOCKS:DATAEDIT-CREATE-DRILLDOWN-WIDGET
(WEBLOCKS::LISTEDIT T))
; (METHOD WEBLOCKS:DATALIST-RENDER-ITEM (WEBLOCKS::LISTEDIT T T))
; (METHOD WEBLOCKS:RENDER-WIDGET-BODY (WEBLOCKS::LISTEDIT))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\pagination.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFPARAMETER WEBLOCKS::*PAGINATION-ITEMS-PER-PAGE*)
; (DEFCLASS WEBLOCKS::PAGINATION)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND
(WEBLOCKS::PAGINATION))
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::PAGINATION))
; (METHOD (SETF WEBLOCKS::PAGINATION-TOTAL-ITEMS) :AFTER (T
WEBLOCKS::PAGINATION))
; (METHOD (SETF WEBLOCKS::PAGINATION-ITEMS-PER-PAGE) :AROUND (T
WEBLOCKS::PAGINATION))
; WEBLOCKS::PAGINATION-PAGE-COUNT
; (TOP-LEVEL-FORM 9)
; (DEFGENERIC WEBLOCKS::PAGINATION-RENDER-TOTAL-ITEM-COUNT)
; (TOP-LEVEL-FORM 9)
; (METHOD WEBLOCKS::PAGINATION-RENDER-TOTAL-ITEM-COUNT
(WEBLOCKS::PAGINATION))
; (METHOD WEBLOCKS:RENDER-WIDGET-BODY (WEBLOCKS::PAGINATION))
; WEBLOCKS::PAGINATION-PAGE-ITEM-RANGE
; WEBLOCKS::PAGINATION-CALL-ON-CHANGE
; WEBLOCKS::PAGINATION-ON-GO-TO-PAGE
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\composite.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::COMPOSITE)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND
(WEBLOCKS::COMPOSITE))
; (METHOD INITIALIZE-INSTANCE :AFTER (WEBLOCKS::COMPOSITE))
;;;*** Warning in (METHOD WEBLOCKS::MAKE-WIDGET-PLACE-WRITER
(WEBLOCKS::COMPOSITE T)): ARGS is bound but not referenced
; (METHOD WEBLOCKS::MAKE-WIDGET-PLACE-WRITER (WEBLOCKS::COMPOSITE T))
; WEBLOCKS::CONS-IN-LIST-P
; (METHOD (SETF WEBLOCKS::COMPOSITE-WIDGETS) (T WEBLOCKS::COMPOSITE))
; (METHOD WEBLOCKS:RENDER-WIDGET-BODY (WEBLOCKS::COMPOSITE))
; (METHOD WEBLOCKS:FIND-WIDGET-BY-PATH* (T WEBLOCKS::COMPOSITE))
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "composite" 21E7673F>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\composite.ofasl
Warning: (METHOD (SETF COMPOSITE-WIDGETS) (T COMPOSITE)) defined more
than once in d:\ue31057\old\base\external\site\weblocks-stable\src
\widgets\composite.lisp.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\table-composite.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::TABLE-COMPOSITE)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND (WEBLOCKS::TABLE-
COMPOSITE))
; (METHOD WEBLOCKS:RENDER-WIDGET-BODY (WEBLOCKS::TABLE-COMPOSITE))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\dispatcher.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::DISPATCHER)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND
(WEBLOCKS::DISPATCHER))
; WEBLOCKS::URI-TOKENS-START-WITH
; WEBLOCKS::DISPATCHER-GET-WIDGET
; (METHOD WEBLOCKS:RENDER-WIDGET-BODY (WEBLOCKS::DISPATCHER))
; (METHOD WEBLOCKS:FIND-WIDGET-BY-PATH* (T WEBLOCKS::DISPATCHER))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\selector-mixin.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (SUBFUNCTION (DEFSETF WEBLOCKS::PANE-INFO-LABEL) (DEFSTRUCT
WEBLOCKS::PANE-INFO))
; (SUBFUNCTION (DEFSETF WEBLOCKS::PANE-INFO-URI-TOKENS) (DEFSTRUCT
WEBLOCKS::PANE-INFO))
; (SUBFUNCTION (DEFSETF WEBLOCKS::PANE-INFO-NAME) (DEFSTRUCT
WEBLOCKS::PANE-INFO))
; (SUBFUNCTION WEBLOCKS::MAKE-PANE-INFO (DEFSTRUCT WEBLOCKS::PANE-
INFO))
; (SUBFUNCTION WEBLOCKS::MAKE-PANE-INFO (DEFSTRUCT WEBLOCKS::PANE-
INFO))
;;;*** Warning in (DEFCLASS WEBLOCKS::SELECTOR-MIXIN):
#<WEBLOCKS:WIDGET-CLASS WEBLOCKS::SELECTOR-MIXIN 200DF95B> is not
defined to be a subclass of WEBLOCKS:WIDGET; consider adding
WEBLOCKS:WIDGET or a subclass thereof to the superclass list
; (DEFCLASS WEBLOCKS::SELECTOR-MIXIN)
; (TOP-LEVEL-FORM 5)
; (DEFGENERIC WEBLOCKS::SELECTOR-MIXIN-DEFAULT-PANE)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 6)
; (DEFGENERIC WEBLOCKS::SELECTOR-MIXIN-CURRENT-PANE)
; (TOP-LEVEL-FORM 6)
; (TOP-LEVEL-FORM 7)
; (DEFGENERIC WEBLOCKS::SELECTOR-MIXIN-CURRENT-PANE-WIDGET)
; (TOP-LEVEL-FORM 7)
; WEBLOCKS::SELECTOR-MIXIN-CANONICALIZE-PANE-INFO
; WEBLOCKS::SELECTOR-MIXIN-CANONICALIZE-PANE
; WEBLOCKS::SELECTOR-MIXIN-FIND-PANE-BY-NAME
; WEBLOCKS::SELECTOR-MIXIN-FIND-PANE-BY-TOKENS
; WEBLOCKS::SELECTOR-MIXIN-REMOVE-PANE-BY-NAME
; (METHOD WEBLOCKS:FIND-WIDGET-BY-PATH* (T WEBLOCKS::SELECTOR-MIXIN))
; (METHOD WEBLOCKS::MAKE-WIDGET-PLACE-WRITER (WEBLOCKS::SELECTOR-MIXIN
T))
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "selector-mixin" 21E70057>.
Warning: COMPILE-FILE failed while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "selector-mixin" 21E70057>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\dispatcher.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\selector-mixin.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\selector.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::SELECTOR)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND (WEBLOCKS::SELECTOR))
; (TOP-LEVEL-FORM 4)
; (DEFGENERIC WEBLOCKS::SELECTOR-ON-DISPATCH)
; (TOP-LEVEL-FORM 4)
; (METHOD WEBLOCKS:FIND-WIDGET-BY-PATH* (T WEBLOCKS::SELECTOR))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\selector.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\widgets\navigation.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS::NAVIGATION)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND
(WEBLOCKS::NAVIGATION))
; (TOP-LEVEL-FORM 4)
; (DEFGENERIC WEBLOCKS::RENDER-NAVIGATION-MENU)
; (TOP-LEVEL-FORM 4)
; (METHOD WEBLOCKS:RENDER-WIDGET-BODY (WEBLOCKS::NAVIGATION))
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND
(WEBLOCKS::NAVIGATION))
; WEBLOCKS::INIT-NAVIGATION
; WEBLOCKS::MAKE-NAVIGATION
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\login.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\gridedit.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\listedit.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\pagination.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\table-composite.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\widgets\navigation.ofasl
Warning: (METHOD PER-CLASS-DEPENDENCIES APPEND (NAVIGATION)) defined
more than once in d:\ue31057\old\base\external\site\weblocks-stable\src
\widgets\navigation.lisp.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\request-handler.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\control-flow\call-answer.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (SUBFUNCTION (DEFCLASS WEBLOCKS::WIDGET-NOT-IN-PARENT) (DEFINE-
CONDITION WEBLOCKS::WIDGET-NOT-IN-PARENT))
; (DEFINE-CONDITION WEBLOCKS::WIDGET-NOT-IN-PARENT)
; (DEFINE-CONDITION WEBLOCKS::WIDGET-NOT-IN-PARENT)
; WEBLOCKS::REPORT-WIDGET-NOT-IN-PARENT
; (METHOD WEBLOCKS:WIDGET-CONTINUATION (FUNCTION))
; (METHOD (SETF WEBLOCKS:WIDGET-CONTINUATION) (T T))
; (METHOD WEBLOCKS:WIDGET-CONTINUATION (SYMBOL))
; (METHOD (SETF WEBLOCKS:WIDGET-CONTINUATION) (T SYMBOL))
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 9)
; WEBLOCKS::ANSWER
; WEBLOCKS::ADOPT-WIDGET
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 13): Inline expansion for CL-
CONT::FUNCALL/CC not found
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 13)
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 14): Inline expansion for CL-
CONT::FUNCALL/CC not found
; (TOP-LEVEL-FORM 14)
; (TOP-LEVEL-FORM 14)
;;;*** Warning in (TOP-LEVEL-FORM 15): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 15): Inline expansion for CL-
CONT::FUNCALL/CC not found
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 15)
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 16): Inline expansion for CL-
CONT::FUNCALL/CC not found
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 16)
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "call-answer" 21E70C2F>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\control-flow\call-answer.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\control-flow\dialog.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (SUBFUNCTION (DEFSETF WEBLOCKS::DIALOG-CSS-CLASS) (DEFSTRUCT
WEBLOCKS::DIALOG))
; (SUBFUNCTION (DEFSETF WEBLOCKS::DIALOG-WIDGET) (DEFSTRUCT
WEBLOCKS::DIALOG))
; (SUBFUNCTION (DEFSETF WEBLOCKS::DIALOG-CLOSE) (DEFSTRUCT
WEBLOCKS::DIALOG))
; (SUBFUNCTION (DEFSETF WEBLOCKS::DIALOG-TITLE) (DEFSTRUCT
WEBLOCKS::DIALOG))
; (SUBFUNCTION WEBLOCKS::MAKE-DIALOG (DEFSTRUCT WEBLOCKS::DIALOG))
; (SUBFUNCTION WEBLOCKS::MAKE-DIALOG (DEFSTRUCT WEBLOCKS::DIALOG))
; WEBLOCKS::CURRENT-DIALOG
; WEBLOCKS::MAKE-DIALOG-JS
; WEBLOCKS::UPDATE-DIALOG-ON-REQUEST
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 7): Inline expansion for CL-
CONT::FUNCALL/CC not found
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 7)
; WEBLOCKS::RENDER-CHOICES-GET
; WEBLOCKS::RENDER-CHOICES-POST
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::APPLY/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::APPLY/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 10): Inline expansion for CL-
CONT::FUNCALL/CC not found
; (TOP-LEVEL-FORM 10)
; (TOP-LEVEL-FORM 10)
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 11): Inline expansion for CL-
CONT::FUNCALL/CC not found
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 11)
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
;;;*** Warning in (TOP-LEVEL-FORM 12): Inline expansion for CL-
CONT::FUNCALL/CC not found
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 12)
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21E97123> on #<ASDF:CL-SOURCE-FILE "dialog" 21E71063>.
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\control-flow\workflow.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; WEBLOCKS::YIELD->DO-WIDGET
; WEBLOCKS::WITH-FLOW
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\default-application.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS WEBLOCKS::WEBLOCKS-DEFAULT)
; (METHOD WEBLOCKS:RENDER-PAGE-BODY :AFTER (WEBLOCKS::WEBLOCKS-DEFAULT
T))
; (DEFCLASS WEBLOCKS::WEBAPP-CONTROL)
; (METHOD WEBLOCKS:PER-CLASS-DEPENDENCIES APPEND (WEBLOCKS::WEBAPP-
CONTROL))
; (METHOD WEBLOCKS:RENDER-WIDGET-BODY (WEBLOCKS::WEBAPP-CONTROL))
; WEBLOCKS::INIT-USER-SESSION
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\log-actions.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\control-flow\dialog.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\control-flow\workflow.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\default-application.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\examples\weblocks-demo\weblocks-demo.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (DEFPACKAGE "WEBLOCKS-DEMO")
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; WEBLOCKS-DEMO::START-WEBLOCKS-DEMO
; WEBLOCKS-DEMO::STOP-WEBLOCKS-DEMO
; WEBLOCKS-DEMO::SANDBOX-STORE
; (DEFCLASS WEBLOCKS-DEMO::WEBLOCKS-DEMO)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\examples\weblocks-demo\weblocks-
demo.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\examples\weblocks-demo\conf\stores.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 2)
; (DEFVAR WEBLOCKS-DEMO::*SCRATCH-STORE*)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 3)
; (DEFVAR WEBLOCKS-DEMO::*PREVALENCE-STORE*)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\examples\weblocks-demo\conf
\stores.ofasl
; loading system definition from d:\ue31057\old\base\external\site
\weblocks-stable\src\store\memory\weblocks-memory.asd into #<The ASDF0
package, 0/16 internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\weblocks-stable
\src\store\memory\weblocks-memory.asd
; registering #<SYSTEM WEBLOCKS-MEMORY 239798BF> as WEBLOCKS-MEMORY
;; Creating system COMMON-LISP-USER::WEBLOCKS-MEMORY
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\store\memory\memory-store.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (DEFPACKAGE "WEBLOCKS-MEMORY")
; (LISPWORKS:TOP-LEVEL-FORM 2)
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\store\memory\memory-store.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\store\memory\memory-utils.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; (LISPWORKS:TOP-LEVEL-FORM 2)
; WEBLOCKS-MEMORY::MAKE-SCRATCH-STORE
; WEBLOCKS-MEMORY::OBJECTS-FROM-SCRATCH-STORE
; (DEFGENERIC WEBLOCKS-MEMORY::STRICTLY-LESS-P)
; (DEFGENERIC WEBLOCKS-MEMORY::EQUIVALENTP)
; WEBLOCKS-MEMORY::ORDER-OBJECTS-IN-MEMORY
; WEBLOCKS-MEMORY::RANGE-OBJECTS-IN-MEMORY
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\store\memory\memory-utils.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\store\memory\memory.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; (LISPWORKS:TOP-LEVEL-FORM 2)
; (DEFCLASS WEBLOCKS-MEMORY::MEMORY-STORE)
; WEBLOCKS-MEMORY::GET-ROOT-OBJECT
; (SETF WEBLOCKS-MEMORY::GET-ROOT-OBJECT)
; WEBLOCKS-MEMORY::REMOVE-ROOT-OBJECT
; (METHOD OPEN-STORE ((EQL :MEMORY)))
; (METHOD CLOSE-STORE (WEBLOCKS-MEMORY::MEMORY-STORE))
; (METHOD CLEAN-STORE (WEBLOCKS-MEMORY::MEMORY-STORE))
; (METHOD BEGIN-TRANSACTION (WEBLOCKS-MEMORY::MEMORY-STORE))
; (METHOD COMMIT-TRANSACTION (WEBLOCKS-MEMORY::MEMORY-STORE))
; (METHOD ROLLBACK-TRANSACTION (WEBLOCKS-MEMORY::MEMORY-STORE))
; (DEFCLASS WEBLOCKS-MEMORY::PERSISTENT-OBJECTS-OF-CLASS)
; (METHOD PERSIST-OBJECT (WEBLOCKS-MEMORY::MEMORY-STORE T))
; (METHOD DELETE-PERSISTENT-OBJECT (WEBLOCKS-MEMORY::MEMORY-STORE T))
; (METHOD DELETE-PERSISTENT-OBJECT-BY-ID (WEBLOCKS-MEMORY::MEMORY-
STORE T T))
; (METHOD FIND-PERSISTENT-OBJECT-BY-ID (WEBLOCKS-MEMORY::MEMORY-STORE
T T))
; (METHOD FIND-PERSISTENT-OBJECTS (WEBLOCKS-MEMORY::MEMORY-STORE T))
; WEBLOCKS-MEMORY::FIND-PERSISTENT-OBJECTS-AUX
; (METHOD COUNT-PERSISTENT-OBJECTS (WEBLOCKS-MEMORY::MEMORY-STORE T))
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\store\memory\memory.ofasl
; loading system definition from d:\ue31057\old\base\external\site
\weblocks-stable\src\store\prevalence\weblocks-prevalence.asd into
; #<The ASDF0 package, 0/16 internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\weblocks-stable
\src\store\prevalence\weblocks-prevalence.asd
; registering #<SYSTEM WEBLOCKS-PREVALENCE 23A18A83> as WEBLOCKS-
PREVALENCE
; loading system definition from d:\ue31057\old\base\external\site\cl-
prevalence\cl-prevalence.asd into #<The ASDF0 package, 0/16 internal,
0/16 external>
; Loading text file d:\ue31057\old\base\external\site\cl-prevalence
\cl-prevalence.asd
; registering #<SYSTEM :CL-PREVALENCE 23A115E3> as CL-PREVALENCE
;; Creating system COMMON-LISP-USER::CL-PREVALENCE->SRC
;; Creating system COMMON-LISP-USER::CL-PREVALENCE
; loading system definition from d:\ue31057\old\base\external\site\s-
sysdeps\s-sysdeps.asd into #<The ASDF0 package, 0/16 internal, 0/16
external>
; Loading text file d:\ue31057\old\base\external\site\s-sysdeps\s-
sysdeps.asd
; registering #<SYSTEM :S-SYSDEPS 23A12A17> as S-SYSDEPS
;; Creating system COMMON-LISP-USER::S-SYSDEPS->SRC
;; Creating system COMMON-LISP-USER::S-SYSDEPS
; loading system definition from d:\ue31057\old\base\external\site\s-
xml\s-xml.asd into #<The ASDF0 package, 0/16 internal, 0/16 external>
; Loading text file d:\ue31057\old\base\external\site\s-xml\s-xml.asd
; registering #<SYSTEM :S-XML 23A1250F> as S-XML
;; Creating system COMMON-LISP-USER::S-XML->SRC
;; Creating system COMMON-LISP-USER::S-XML
;;; Compiling file d:\ue31057\old\base\external\site\s-sysdeps\src
\package.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (DEFPACKAGE "S-SYSDEPS")
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\s-sysdeps\src\package.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\s-sysdeps\src
\sysdeps.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; (LISPWORKS:TOP-LEVEL-FORM 2)
; S-SYSDEPS:MULTIPROCESSING-CAPABLE-P
; S-SYSDEPS:CURRENT-PROCESS
; S-SYSDEPS:KILL-PROCESS
; S-SYSDEPS:RUN-PROCESS
; S-SYSDEPS:ALL-PROCESSES
; S-SYSDEPS:OPEN-SOCKET-STREAM
; S-SYSDEPS:GET-SOCKET-STREAM-PROPERTY
; S-SYSDEPS:START-STANDARD-SERVER
; S-SYSDEPS:MAKE-PROCESS-LOCK
; S-SYSDEPS:WITH-PROCESS-LOCK
; (LISPWORKS:TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\s-xml\src
\package.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (DEFPACKAGE "S-XML")
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\s-xml\src\package.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\s-xml\src
\xml.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; (HARLEQUIN-COMMON-LISP:SUBFUNCTION (DEFCLASS S-XML:XML-PARSER-ERROR)
(DEFINE-CONDITION S-XML:XML-PARSER-ERROR))
; (DEFINE-CONDITION S-XML:XML-PARSER-ERROR)
; (DEFINE-CONDITION S-XML:XML-PARSER-ERROR)
; (LISPWORKS:TOP-LEVEL-FORM 3)
; (LISPWORKS:TOP-LEVEL-FORM 3)
; (LISPWORKS:TOP-LEVEL-FORM 3)
; S-XML::PARSER-ERROR
; S-XML::WHITESPACE-CHAR-P
; S-XML::IDENTIFIER-CHAR-P
; S-XML::SKIP-WHITESPACE
; S-XML::MAKE-EXTENDABLE-STRING
; S-XML:PRINT-STRING-XML
; S-XML::MAKE-STANDARD-ENTITIES
; S-XML::RESOLVE-ENTITY
; (DEFVAR S-XML:*IGNORE-NAMESPACES*)
; (DEFCLASS S-XML::XML-NAMESPACE)
; (METHOD PRINT-OBJECT (S-XML::XML-NAMESPACE T))
; (DEFVAR S-XML:*LOCAL-NAMESPACE*)
; (DEFVAR S-XML::*XML-NAMESPACE*)
; (DEFVAR S-XML::*KNOWN-NAMESPACES*)
; (DEFVAR S-XML:*NAMESPACES*)
; S-XML:FIND-NAMESPACE
; S-XML:REGISTER-NAMESPACE
; S-XML::FIND-NAMESPACE-BINDING
; S-XML:SPLIT-IDENTIFIER
; (DEFVAR S-XML:*REQUIRE-EXISTING-SYMBOLS*)
; (DEFVAR S-XML:*AUTO-EXPORT-SYMBOLS*)
; S-XML:RESOLVE-IDENTIFIER
; (DEFVAR S-XML:*AUTO-CREATE-NAMESPACE-PACKAGES*)
; S-XML::NEW-NAMESPACE
; S-XML:EXTEND-NAMESPACES
; S-XML:PRINT-IDENTIFIER
; (DEFCLASS S-XML:XML-PARSER-STATE)
; (LISPWORKS:TOP-LEVEL-FORM 31)
; (LISPWORKS:TOP-LEVEL-FORM 31)
; (LISPWORKS:TOP-LEVEL-FORM 31)
; (LISPWORKS:TOP-LEVEL-FORM 31)
; (LISPWORKS:TOP-LEVEL-FORM 31)
; (LISPWORKS:TOP-LEVEL-FORM 32)
; (LISPWORKS:TOP-LEVEL-FORM 32)
; (LISPWORKS:TOP-LEVEL-FORM 32)
; (LISPWORKS:TOP-LEVEL-FORM 32)
; (LISPWORKS:TOP-LEVEL-FORM 32)
; (METHOD S-XML::GET-MINI-BUFFER :AFTER (S-XML:XML-PARSER-STATE))
; (METHOD S-XML::GET-BUFFER :AFTER (S-XML:XML-PARSER-STATE))
; S-XML::PARSE-WHITESPACE
; S-XML::PARSE-STRING
; S-XML::PARSE-TEXT
; S-XML::PARSE-IDENTIFIER
; S-XML::SKIP-COMMENT
; S-XML::READ-CDATA
; S-XML::SKIP-SPECIAL-TAG
; S-XML::PARSE-XML-ELEMENT-ATTRIBUTES
; S-XML::PARSE-XML-ELEMENT
; S-XML:START-PARSE-XML
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\s-xml\src\xml.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\s-xml\src
\dom.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; (DEFGENERIC S-XML:PARSE-XML-DOM)
; S-XML:PARSE-XML
; S-XML:PARSE-XML-STRING
; S-XML:PARSE-XML-FILE
; (DEFGENERIC S-XML:PRINT-XML-DOM)
; S-XML:PRINT-XML
; S-XML:PRINT-XML-STRING
; S-XML::PRINT-SPACES
; S-XML::PRINT-SOLITARY-TAG
; S-XML::PRINT-CLOSING-TAG
; S-XML::PRINT-ATTRIBUTE
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\s-xml\src\dom.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\s-xml\src\lxml-
dom.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; S-XML::LXML-NEW-ELEMENT-HOOK
; S-XML::LXML-FINISH-ELEMENT-HOOK
; S-XML::LXML-TEXT-HOOK
; (METHOD S-XML:PARSE-XML-DOM (T (EQL :LXML)))
; S-XML::PLIST->ALIST
; (METHOD S-XML:PRINT-XML-DOM (T (EQL :LXML) T T T))
; (LISPWORKS:TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\s-xml\src\sxml-
dom.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; S-XML::SXML-NEW-ELEMENT-HOOK
; S-XML::SXML-FINISH-ELEMENT-HOOK
; S-XML::SXML-TEXT-HOOK
; (METHOD S-XML:PARSE-XML-DOM (T (EQL :SXML)))
; (METHOD S-XML:PRINT-XML-DOM (T (EQL :SXML) T T T))
; (LISPWORKS:TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\s-xml\src\xml-
struct-dom.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; (HARLEQUIN-COMMON-LISP:SUBFUNCTION (DEFSETF S-XML:XML-ELEMENT-
CHILDREN) (DEFSTRUCT S-XML::XML-ELEMENT))
; (HARLEQUIN-COMMON-LISP:SUBFUNCTION (DEFSETF S-XML:XML-ELEMENT-
ATTRIBUTES) (DEFSTRUCT S-XML::XML-ELEMENT))
; (HARLEQUIN-COMMON-LISP:SUBFUNCTION (DEFSETF S-XML:XML-ELEMENT-NAME)
(DEFSTRUCT S-XML::XML-ELEMENT))
; (HARLEQUIN-COMMON-LISP:SUBFUNCTION S-XML:MAKE-XML-ELEMENT (DEFSTRUCT
S-XML::XML-ELEMENT))
; (HARLEQUIN-COMMON-LISP:SUBFUNCTION S-XML:MAKE-XML-ELEMENT (DEFSTRUCT
S-XML::XML-ELEMENT))
; (LISPWORKS:TOP-LEVEL-FORM 3)
; (LISPWORKS:TOP-LEVEL-FORM 3)
; (LISPWORKS:TOP-LEVEL-FORM 3)
; (LISPWORKS:TOP-LEVEL-FORM 3)
; (LISPWORKS:TOP-LEVEL-FORM 3)
; S-XML:XML-ELEMENT-ATTRIBUTE
; (SETF S-XML:XML-ELEMENT-ATTRIBUTE)
; S-XML:NEW-XML-ELEMENT
; S-XML:FIRST-XML-ELEMENT-CHILD
; S-XML::XML-EQUAL
; (METHOD S-XML:PRINT-XML-DOM (T (EQL :XML-STRUCT) T T T))
; S-XML::STANDARD-NEW-ELEMENT-HOOK
; S-XML::STANDARD-FINISH-ELEMENT-HOOK
; S-XML::STANDARD-TEXT-HOOK
; (METHOD S-XML:PARSE-XML-DOM (T (EQL :XML-STRUCT)))
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\s-xml\src\lxml-dom.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\s-xml\src\sxml-dom.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\s-xml\src\xml-struct-dom.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\s-sysdeps\src\sysdeps.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-prevalence\src
\package.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (DEFPACKAGE "S-SERIALIZATION")
; (DEFPACKAGE "CL-PREVALENCE")
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-prevalence\src\package.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-prevalence\src
\serialization.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; (DEFGENERIC S-SERIALIZATION:SERIALIZABLE-SLOTS)
; S-SERIALIZATION:SERIALIZE-XML
; S-SERIALIZATION:SERIALIZE-SEXP
; (DEFGENERIC S-SERIALIZATION::SERIALIZE-XML-INTERNAL)
; (DEFGENERIC S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL)
; S-SERIALIZATION:DESERIALIZE-XML
; S-SERIALIZATION:DESERIALIZE-SEXP
; S-SERIALIZATION:MAKE-SERIALIZATION-STATE
; (DEFGENERIC S-SERIALIZATION:RESET-KNOWN-SLOTS)
; (DEFCLASS S-SERIALIZATION::SERIALIZATION-STATE)
; (METHOD S-SERIALIZATION::GET-XML-PARSER-STATE (S-
SERIALIZATION::SERIALIZATION-STATE))
; (METHOD S-SERIALIZATION::RESET (S-SERIALIZATION::SERIALIZATION-
STATE))
; (METHOD S-SERIALIZATION:RESET-KNOWN-SLOTS (S-
SERIALIZATION::SERIALIZATION-STATE))
; (METHOD S-SERIALIZATION::KNOWN-OBJECT-ID (S-
SERIALIZATION::SERIALIZATION-STATE T))
; (METHOD S-SERIALIZATION::SET-KNOWN-OBJECT (S-
SERIALIZATION::SERIALIZATION-STATE T))
; (DEFCONSTANT S-SERIALIZATION::+CL-PACKAGE+)
; (DEFCONSTANT S-SERIALIZATION::+KEYWORD-PACKAGE+)
; S-SERIALIZATION::PRINT-SYMBOL-XML
; S-SERIALIZATION::PRINT-SYMBOL
; (METHOD S-SERIALIZATION:SERIALIZABLE-SLOTS (STRUCTURE-OBJECT))
; (METHOD S-SERIALIZATION:SERIALIZABLE-SLOTS (STANDARD-OBJECT))
; (METHOD S-SERIALIZATION::GET-SERIALIZABLE-SLOTS (S-
SERIALIZATION::SERIALIZATION-STATE T))
; (METHOD S-SERIALIZATION::SERIALIZE-XML-INTERNAL (INTEGER T T))
; (METHOD S-SERIALIZATION::SERIALIZE-XML-INTERNAL (RATIO T T))
; (METHOD S-SERIALIZATION::SERIALIZE-XML-INTERNAL (FLOAT T T))
; (METHOD S-SERIALIZATION::SERIALIZE-XML-INTERNAL (COMPLEX T T))
; (METHOD S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL (NUMBER T T))
; (METHOD S-SERIALIZATION::SERIALIZE-XML-INTERNAL (NULL T T))
; (METHOD S-SERIALIZATION::SERIALIZE-XML-INTERNAL ((EQL (QUOTE T)) T
T))
; (METHOD S-SERIALIZATION::SERIALIZE-XML-INTERNAL (STRING T T))
; (METHOD S-SERIALIZATION::SERIALIZE-XML-INTERNAL (CHARACTER T T))
; (METHOD S-SERIALIZATION::SERIALIZE-XML-INTERNAL (SYMBOL T T))
; (METHOD S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL (NULL T T))
; (METHOD S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL ((EQL (QUOTE T)) T
T))
; (METHOD S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL (STRING T T))
; (METHOD S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL (CHARACTER T T))
; (METHOD S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL (SYMBOL T T))
; S-SERIALIZATION::SEQUENCE-TYPE-AND-LENGTH
; (METHOD S-SERIALIZATION::SERIALIZE-XML-INTERNAL (SEQUENCE T T))
; (METHOD S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL (SEQUENCE T T))
; (METHOD S-SERIALIZATION::SERIALIZE-XML-INTERNAL (HASH-TABLE T T))
; (METHOD S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL (HASH-TABLE T T))
; (METHOD S-SERIALIZATION::SERIALIZE-XML-INTERNAL (STRUCTURE-OBJECT T
T))
; (METHOD S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL (STRUCTURE-OBJECT T
T))
; (METHOD S-SERIALIZATION::SERIALIZE-XML-INTERNAL (STANDARD-OBJECT T
T))
; (METHOD S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL (STANDARD-OBJECT T
T))
; S-SERIALIZATION::GET-ATTRIBUTE-VALUE
; S-SERIALIZATION::DESERIALIZE-XML-NEW-ELEMENT
; S-SERIALIZATION::DESERIALIZE-XML-FINISH-ELEMENT
; S-SERIALIZATION::DESERIALIZE-XML-TEXT
; S-SERIALIZATION::DESERIALIZE-SEXP-INTERNAL
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-prevalence\src\serialization.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-prevalence\src
\prevalence.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; CL-PREVALENCE:MAKE-PREVALENCE-SYSTEM
; CL-PREVALENCE:MAKE-TRANSACTION
; (DEFGENERIC CL-PREVALENCE:EXECUTE)
; (DEFGENERIC CL-PREVALENCE::EXECUTE-ON)
; (DEFGENERIC CL-PREVALENCE:QUERY)
; (DEFGENERIC CL-PREVALENCE:SNAPSHOT)
; (DEFGENERIC CL-PREVALENCE:RESTORE)
; (DEFGENERIC CL-PREVALENCE:GET-ROOT-OBJECT)
; (DEFGENERIC (SETF CL-PREVALENCE:GET-ROOT-OBJECT))
; (DEFGENERIC CL-PREVALENCE:GET-OPTION)
; (DEFGENERIC (SETF CL-PREVALENCE:GET-OPTION))
; (DEFGENERIC CL-PREVALENCE:REMOVE-ROOT-OBJECT)
; (DEFGENERIC CL-PREVALENCE:INITIATES-ROLLBACK)
; (DEFGENERIC CL-PREVALENCE:BACKUP)
; (DEFGENERIC CL-PREVALENCE:TOTALLY-DESTROY)
; (DEFCLASS CL-PREVALENCE:PREVALENCE-SYSTEM)
; (DEFCLASS CL-PREVALENCE:GUARDED-PREVALENCE-SYSTEM)
; (DEFCLASS CL-PREVALENCE:TRANSACTION)
; (HARLEQUIN-COMMON-LISP:SUBFUNCTION (DEFCLASS CL-PREVALENCE:NO-
ROLLBACK-ERROR) (DEFINE-CONDITION CL-PREVALENCE:NO-ROLLBACK-ERROR))
; (DEFINE-CONDITION CL-PREVALENCE:NO-ROLLBACK-ERROR)
; (METHOD CL-PREVALENCE:INITIATES-ROLLBACK (CONDITION))
; (METHOD CL-PREVALENCE:INITIATES-ROLLBACK (CL-PREVALENCE:NO-ROLLBACK-
ERROR))
; (METHOD INITIALIZE-INSTANCE :AFTER (CL-PREVALENCE:PREVALENCE-
SYSTEM))
; (METHOD CL-PREVALENCE::GET-TRANSACTION-LOG-STREAM :BEFORE (CL-
PREVALENCE:PREVALENCE-SYSTEM))
; (METHOD CL-PREVALENCE::CLOSE-OPEN-STREAMS (CL-PREVALENCE:PREVALENCE-
SYSTEM))
; (METHOD CL-PREVALENCE:TOTALLY-DESTROY (CL-PREVALENCE:PREVALENCE-
SYSTEM))
; (METHOD PRINT-OBJECT (CL-PREVALENCE:TRANSACTION T))
; (METHOD CL-PREVALENCE:GET-ROOT-OBJECT (CL-PREVALENCE:PREVALENCE-
SYSTEM T))
; (METHOD (SETF CL-PREVALENCE:GET-ROOT-OBJECT) (T CL-
PREVALENCE:PREVALENCE-SYSTEM T))
; (METHOD CL-PREVALENCE:GET-OPTION (CL-PREVALENCE:PREVALENCE-SYSTEM
T))
; (METHOD (SETF CL-PREVALENCE:GET-OPTION) (T CL-PREVALENCE:PREVALENCE-
SYSTEM T))
; (METHOD CL-PREVALENCE:REMOVE-ROOT-OBJECT (CL-PREVALENCE:PREVALENCE-
SYSTEM T))
; (METHOD CL-PREVALENCE:EXECUTE (CL-PREVALENCE:PREVALENCE-SYSTEM CL-
PREVALENCE:TRANSACTION))
; (METHOD CL-PREVALENCE::LOG-TRANSACTION (CL-PREVALENCE:PREVALENCE-
SYSTEM CL-PREVALENCE:TRANSACTION))
; (METHOD CL-PREVALENCE::LOG-TRANSACTION :AFTER (CL-
PREVALENCE:PREVALENCE-SYSTEM CL-PREVALENCE:TRANSACTION))
; (METHOD CL-PREVALENCE:QUERY (CL-PREVALENCE:PREVALENCE-SYSTEM T))
; (METHOD CL-PREVALENCE::EXECUTE-ON (CL-PREVALENCE:TRANSACTION CL-
PREVALENCE:PREVALENCE-SYSTEM))
; (METHOD CL-PREVALENCE:SNAPSHOT (CL-PREVALENCE:PREVALENCE-SYSTEM))
; (METHOD CL-PREVALENCE:BACKUP (CL-PREVALENCE:PREVALENCE-SYSTEM))
; (METHOD CL-PREVALENCE:RESTORE (CL-PREVALENCE:PREVALENCE-SYSTEM))
; (METHOD CL-PREVALENCE:EXECUTE (CL-PREVALENCE:GUARDED-PREVALENCE-
SYSTEM CL-PREVALENCE:TRANSACTION))
; (METHOD CL-PREVALENCE:QUERY (CL-PREVALENCE:GUARDED-PREVALENCE-SYSTEM
T))
; (METHOD CL-PREVALENCE:SNAPSHOT (CL-PREVALENCE:GUARDED-PREVALENCE-
SYSTEM))
; (METHOD CL-PREVALENCE:BACKUP (CL-PREVALENCE:GUARDED-PREVALENCE-
SYSTEM))
; (METHOD CL-PREVALENCE:RESTORE (CL-PREVALENCE:GUARDED-PREVALENCE-
SYSTEM))
; CL-PREVALENCE::TIMETAG
; (METHOD CL-PREVALENCE::GET-TRANSACTION-LOG-FILENAME (CL-
PREVALENCE:PREVALENCE-SYSTEM))
; (METHOD CL-PREVALENCE::GET-SNAPSHOT-FILENAME (CL-
PREVALENCE:PREVALENCE-SYSTEM))
; CL-PREVALENCE::TRUNCATE-FILE
; CL-PREVALENCE::COPY-FILE
; (METHOD S-SERIALIZATION:RESET-KNOWN-SLOTS (CL-PREVALENCE:PREVALENCE-
SYSTEM))
; (LISPWORKS:TOP-LEVEL-FORM 52)
; (LISPWORKS:TOP-LEVEL-FORM 53)
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-prevalence\src\prevalence.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-prevalence\src
\managed-prevalence.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; CL-PREVALENCE:EXECUTE-TRANSACTION
; (DEFCLASS CL-PREVALENCE:OBJECT-WITH-ID)
; (DEFGENERIC CL-PREVALENCE:GET-ID)
; CL-PREVALENCE::GET-OBJECTS-ROOT-NAME
; CL-PREVALENCE::GET-OBJECTS-SLOT-INDEX-NAME
; (DEFGENERIC CL-PREVALENCE:FIND-ALL-OBJECTS)
; (METHOD CL-PREVALENCE:FIND-ALL-OBJECTS (CL-PREVALENCE:PREVALENCE-
SYSTEM T))
; (DEFGENERIC CL-PREVALENCE:FIND-OBJECT-WITH-ID)
; (METHOD CL-PREVALENCE:FIND-OBJECT-WITH-ID (CL-PREVALENCE:PREVALENCE-
SYSTEM T T))
; (DEFGENERIC CL-PREVALENCE:FIND-OBJECT-WITH-SLOT)
; (METHOD CL-PREVALENCE:FIND-OBJECT-WITH-SLOT (CL-
PREVALENCE:PREVALENCE-SYSTEM T T T))
; CL-PREVALENCE::TX-CREATE-OBJECTS-SLOT-INDEX
; CL-PREVALENCE::TX-REMOVE-OBJECTS-SLOT-INDEX
; CL-PREVALENCE::ADD-OBJECT-TO-SLOT-INDEX
; CL-PREVALENCE::REMOVE-OBJECT-FROM-SLOT-INDEX
; CL-PREVALENCE:INDEX-ON
; CL-PREVALENCE:DROP-INDEX-ON
; CL-PREVALENCE::SLOT-VALUE-CHANGED-P
; CL-PREVALENCE:TX-CREATE-OBJECT
; CL-PREVALENCE:TX-DELETE-OBJECT
; CL-PREVALENCE:TX-CHANGE-OBJECT-SLOTS
; CL-PREVALENCE:TX-CREATE-ID-COUNTER
; (METHOD CL-PREVALENCE::NEXT-ID (CL-PREVALENCE:PREVALENCE-SYSTEM))
; (DEFGENERIC CL-PREVALENCE:GET-PREFERENCE)
; (METHOD CL-PREVALENCE:GET-PREFERENCE (CL-PREVALENCE:PREVALENCE-
SYSTEM T))
; CL-PREVALENCE:TX-SET-PREFERENCE
; (DEFGENERIC CL-PREVALENCE:ALL-PREFERENCES-KEYS)
; (METHOD CL-PREVALENCE:ALL-PREFERENCES-KEYS (CL-PREVALENCE:PREVALENCE-
SYSTEM))
; (LISPWORKS:TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\cl-prevalence\src
\master-slave.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; CL-PREVALENCE:START-MASTER-CLIENT
; CL-PREVALENCE:STOP-MASTER-CLIENT
; CL-PREVALENCE:START-SLAVE-SERVER
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-prevalence\src\managed-prevalence.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\cl-prevalence\src
\blob.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (LISPWORKS:TOP-LEVEL-FORM 1)
; (DEFCLASS CL-PREVALENCE:BLOB)
; (DEFGENERIC CL-PREVALENCE:GET-NAME)
; (DEFGENERIC (SETF CL-PREVALENCE:GET-NAME))
; (DEFGENERIC CL-PREVALENCE:GET-SIZE)
; (DEFGENERIC CL-PREVALENCE:GET-MIME-TYPE)
; (DEFGENERIC (SETF CL-PREVALENCE:GET-MIME-TYPE))
; (DEFGENERIC CL-PREVALENCE:GET-KEYWORDS)
; (DEFGENERIC (SETF CL-PREVALENCE:GET-KEYWORDS))
; (METHOD PRINT-OBJECT (CL-PREVALENCE:BLOB T))
; (DEFVAR CL-PREVALENCE:*BLOB-ROOT*)
; (DEFGENERIC CL-PREVALENCE:GET-FILE)
; (METHOD CL-PREVALENCE:GET-FILE (CL-PREVALENCE:BLOB))
; CL-PREVALENCE::COPY-STREAM
; (DEFGENERIC CL-PREVALENCE:FILL-FROM-STREAM)
; (METHOD CL-PREVALENCE:FILL-FROM-STREAM (CL-PREVALENCE:BLOB T))
; (DEFGENERIC CL-PREVALENCE:COPY-TO-STREAM)
; (METHOD CL-PREVALENCE:COPY-TO-STREAM (CL-PREVALENCE:BLOB T))
; (DEFGENERIC CL-PREVALENCE:FILL-FROM-FILE)
; (METHOD CL-PREVALENCE:FILL-FROM-FILE (CL-PREVALENCE:BLOB T))
; (DEFGENERIC CL-PREVALENCE:DESTROY)
; (METHOD CL-PREVALENCE:DESTROY (CL-PREVALENCE:BLOB))
; (METHOD CL-PREVALENCE::SIZE-FROM-FILE (CL-PREVALENCE:BLOB))
; (METHOD CL-PREVALENCE::SET-SIZE-FROM-FILE (CL-PREVALENCE:BLOB))
; (METHOD CL-PREVALENCE:GET-SIZE :BEFORE (CL-PREVALENCE:BLOB))
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-prevalence\src\master-slave.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\cl-prevalence\src\blob.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\src\store\prevalence\prevalence.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (LISPWORKS:TOP-LEVEL-FORM 0)
; (DEFPACKAGE "WEBLOCKS-PREVALENCE")
; (LISPWORKS:TOP-LEVEL-FORM 2)
; (DEFVAR WEBLOCKS-PREVALENCE::*LOCKS*)
; (METHOD OPEN-STORE ((EQL :PREVALENCE)))
; (METHOD CLOSE-STORE (CL-PREVALENCE:PREVALENCE-SYSTEM))
; (METHOD CLEAN-STORE (CL-PREVALENCE:PREVALENCE-SYSTEM))
; (METHOD BEGIN-TRANSACTION (CL-PREVALENCE:PREVALENCE-SYSTEM))
; (METHOD COMMIT-TRANSACTION (CL-PREVALENCE:PREVALENCE-SYSTEM))
; (METHOD ROLLBACK-TRANSACTION (CL-PREVALENCE:PREVALENCE-SYSTEM))
; (DEFCLASS WEBLOCKS-PREVALENCE::PERSISTENT-OBJECTS-OF-CLASS)
; (METHOD PERSIST-OBJECT (CL-PREVALENCE:PREVALENCE-SYSTEM T))
; WEBLOCKS-PREVALENCE::TX-PERSIST-OBJECT-PREVALENCE
; (METHOD DELETE-PERSISTENT-OBJECT (CL-PREVALENCE:PREVALENCE-SYSTEM
T))
; (METHOD DELETE-PERSISTENT-OBJECT-BY-ID (CL-PREVALENCE:PREVALENCE-
SYSTEM T T))
; WEBLOCKS-PREVALENCE::TX-DELETE-OBJECT-BY-ID-PREVALENCE
; (METHOD FIND-PERSISTENT-OBJECT-BY-ID (CL-PREVALENCE:PREVALENCE-
SYSTEM T T))
; (METHOD FIND-PERSISTENT-OBJECTS (CL-PREVALENCE:PREVALENCE-SYSTEM T))
; WEBLOCKS-PREVALENCE::TX-FIND-PERSISTENT-OBJECTS-PREVALENCE
; (METHOD COUNT-PERSISTENT-OBJECTS (CL-PREVALENCE:PREVALENCE-SYSTEM
T))
; WEBLOCKS-PREVALENCE:MAKE-PERSISTENT-INSTANCE
; (LISPWORKS:TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\src\store\prevalence
\prevalence.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\examples\weblocks-demo\src\model\company.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; WEBLOCKS-DEMO::ALL-COMPANIES
; (DEFCLASS WEBLOCKS-DEMO::COMPANY)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\examples\weblocks-demo\src\model\address.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS WEBLOCKS-DEMO::ADDRESS)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\examples\weblocks-demo\src\model
\address.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\examples\weblocks-demo\src\model\person.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS WEBLOCKS-DEMO::PERSON)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\examples\weblocks-demo\src\model
\person.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\examples\weblocks-demo\src\model
\company.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\examples\weblocks-demo\src\model\employee.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFCLASS WEBLOCKS-DEMO::EMPLOYEE)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\examples\weblocks-demo\src\model
\employee.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\examples\weblocks-demo\src\layout.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; WEBLOCKS-DEMO::INITIAL-PAGE
; WEBLOCKS-DEMO::MAKE-MAIN-PAGE
; WEBLOCKS-DEMO::MAKE-EMPLOYEES-PAGE
; WEBLOCKS-DEMO::MAKE-COMPANIES-PAGE
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\examples\weblocks-demo\src\snippets.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; WEBLOCKS-DEMO::RENDER-HEADER
; (METHOD WEBLOCKS:RENDER-PAGE-BODY :AFTER (WEBLOCKS-DEMO::WEBLOCKS-
DEMO T))
; (TOP-LEVEL-FORM 0)
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\examples\weblocks-demo\src\sandbox.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; WEBLOCKS-DEMO::INIT-SANDBOX-STORE
; (METHOD WEBLOCKS:CLASS-STORE ((EQL (QUOTE WEBLOCKS-
DEMO::EMPLOYEE))))
; (METHOD WEBLOCKS:CLASS-STORE ((EQL (QUOTE WEBLOCKS-DEMO::COMPANY))))
; (TOP-LEVEL-FORM 0)
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\examples\weblocks-demo\src
\layout.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\examples\weblocks-demo\src
\snippets.ofasl
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\examples\weblocks-demo\src
\sandbox.ofasl
;;; Compiling file d:\ue31057\old\base\external\site\weblocks-stable
\examples\weblocks-demo\src\init-session.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
;;;*** Warning in (DEFCLASS WEBLOCKS-DEMO::WEBLOCKS-DEMO): (DEFCLASS
WEBLOCKS-DEMO::WEBLOCKS-DEMO) being redefined in d:\ue31057\old\base
\external\site\weblocks-stable\examples\weblocks-demo\src\init-
session.lisp (previously in d:\ue31057\old\base\external\site\weblocks-
stable\examples\weblocks-demo\weblocks-demo.lisp).
; (DEFCLASS WEBLOCKS-DEMO::WEBLOCKS-DEMO)
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
;;;*** Warning in WEBLOCKS-DEMO::INIT-USER-SESSION: Inline expansion
for CL-CONT::FUNCALL/CC not found
; WEBLOCKS-DEMO::INIT-USER-SESSION
; (TOP-LEVEL-FORM 0)
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
21DE49FB> on #<ASDF:CL-SOURCE-FILE "init-session" 21DE35CF>.
Warning: COMPILE-FILE failed while performing #<ASDF:COMPILE-OP NIL
21DE49FB> on #<ASDF:CL-SOURCE-FILE "init-session" 21DE35CF>.
; Loading fasl file d:\ue31057\old\base-obj\lispworks-5.1.2-mswindows-
x86\external\site\weblocks-stable\examples\weblocks-demo\src\init-
session.ofasl

The following functions are undefined:
FARE-CLOS-MATCH::SLOT-DEFINITION-NAME which is referenced by (TOP-
LEVEL-FORM 5)
FARE-CLOS-MATCH::SLOT-DEFINITION-INITARGS which is referenced by
(METHOD FARE-CLOS-MATCH:CLASS-INITARG-TO-SLOT (STANDARD-CLASS))
FARE-CLOS-MATCH::COMPUTE-SLOTS which is referenced by (METHOD FARE-
CLOS-MATCH:CLASS-INITARG-TO-SLOT (STANDARD-CLASS))
FARE-UTILS::FEATURITY which is referenced by FARE-UTILS:UNFEATURIFY
NIL


CL-USER 7 > (weblocks-demo:start-weblocks-demo :port 3455)
Warning: An instance of WEBLOCKS-DEMO with name weblocks-demo is
already running, ignoring start request
NIL

CL-USER 8 >

--------------------------------------------------------------------------------------------------------------------------------------------------


On Mar 20, 5:09 pm, Vyacheslav Akhmechet <coffee...@gmail.com> wrote:

[Plamen Stamov]

google doesn't like the full log... so - here the relevant parts...

> \anaphora-0.9.3\anaphora.asd ...
>
> read more »

[Vyacheslav Akhmechet]

On Fri, Mar 20, 2009 at 12:17 PM, Plamen Stamov <plamen...@gmail.com> wrote:
> But, the first suspectible thing I see is a bunch of warnings from CL-
> CONT (below is my compile-log from LispWorks), and a warning from
> Fare's Matcher, that multiple-value-call is inefficient...

CL-CONT (and Fare Matcher) are only used in very specialized cases.
Most of the operations you described above don't depend on these
facilities, so I don't see how they could cause an overall slowdown
(especially to such a degree).

[Plamen Stamov]

Hello Vyacheslav,

today I had again some time to look at the problem and it turned out,
that the problem was partly in Weblocks, partly in ASDF :

Weblocks computes on each client request the path of the application,
which (if i understand correctly, if not set by the developer
explicitly) is calculated from the path of the ASDF-system to which
the application belongs. For that Weblocks calls asdf:system-
definitions-pathname, which on it's turn traverses all known
directories known to ASDF to search and does a PROBE-FILE for .asd
files with the name of the system searched. And that can take a while.
Not knowing if this is an intendet behavior of Weblocks I implemented
a small function, which memoizes the .asdf locations per system, which
I turn on before loading Weblocks. Then - the demo responds allways in
less than a second.

Below is the code I use - if you find that there are also other users
affected by this behavior, you could include it in the distribution.

With best regards
Plamen

(defvar *asdf-cache* (make-hash-table :test #'equalp))

(defun cached-sysdef-central-registry-search (system)
(let ((result (gethash system *asdf-cache*)))
(unless result
(setf result (some (lambda (x) (funcall x system))
(rest asdf:*system-definition-search-
functions*)))
(when result
(setf (gethash system *asdf-cache*) result)))
result))

(defun cache-asdf-locations ()
"Installs an ASDF search function for caching the location of ASDF
systems found"
(setf asdf:*system-definition-search-functions*
(pushnew 'cached-sysdef-central-registry-search asdf:*system-
definition-search-functions*)))

(defun uncache-asdf-locations ()
"Uninstalls an the ASDF search function for caching the location of
ASDF systems found"
(clrhash *asdf-cache*)
(setf asdf:*system-definition-search-functions*
(remove 'cached-sysdef-central-registry-search asdf:*system-
definition-search-functions*)))



On Mar 20, 5:41 pm, Vyacheslav Akhmechet <coffee...@gmail.com> wrote:

[Leslie P. Polzer]

> Weblocks computes on each client request the path of the application,
> which (if i understand correctly, if not set by the developer
> explicitly) is calculated from the path of the ASDF-system to which
> the application belongs. For that Weblocks calls asdf:system-
> definitions-pathname, which on it's turn traverses all known
> directories known to ASDF to search and does a PROBE-FILE for .asd
> files with the name of the system searched. And that can take a while.
> Not knowing if this is an intendet behavior of Weblocks I implemented
> a small function, which memoizes the .asdf locations per system, which
> I turn on before loading Weblocks. Then - the demo responds allways in
> less than a second.

That's interesting. Could you submit a full patch?

[Plamen Stamov]

Hi Leslie,

after only 2-3 hours of playing with Weblocks I wouldn't start to
modify it :) The solution I posted works, but I don't know yet enought
about Weblocks to know the exact and right place to put that code in
the Weblocks source tree. One possible place (from what I understand
until now about Weblocks) would be for example as a first line of
weblocks.asd, but the user's of weblocks should know about that, so
they are not puzzled in some rare situations (see the explanation
below). The code I sent you could actually belong more to ASDF than to
Weblocks, but since about 2 years I don't know who is the actual
maintainer of ASDF.

But - the code above is very simple and you can much better decide
than me, where would be the right place to put and/or invoke it. It
has only 2 public functions : cache-asdf-locations and uncache-asdf-
locations. The first one should be called before starting the Weblocks/
Hunchentoot server (it may be called before or after loading
Weblocks). The function is transparent, it fills it's cache lazy, so
it wouldn't affect the normal operation of ASDF or Weblocks. The only
occasion, when one would need to invoke (uncache-asdf-locations) and
turn the caching off, is when one moves an existing ASDF-system to a
different folder, while Weblocks/Hunchentoot are running, while that
moved system is needed by Weblocks or the application running in it.
In that case one should invoke (uncache-asdf-locations) before
reloading that system and invoke again (cache-asdf-locations) after
it, to reenable the caching and avoid the hundrets of PROBE-FILE which
could otherwise go to the operatins system and dramatically slow the
operation of the server.

So - sorry for not sending a patch - but I think - this is better,
than to send one for the wrong place :)

With best regards
Plamen

On Mar 24, 12:52 pm, "Leslie P. Polzer" <s...@viridian-project.de>
wrote:

[Leslie P. Polzer]

> But - the code above is very simple and you can much better decide
> than me, where would be the right place to put and/or invoke it. It

> has only 2 public functions : [...]

Yes. The problem of course is not lack of understanding but rather
that we want to encourage people to send their changes in a way that
takes work off our (i.e. the core team's) shoulders.

> So - sorry for not sending a patch - but I think - this is better,
> than to send one for the wrong place :)

Probably. :)

Thanks in any case for sending the code, I'll integrate it soon.

[Plamen Stamov]

On Mar 24, 3:42 pm, "Leslie P. Polzer" <s...@viridian-project.de>
wrote:

> > But - the code above is very simple and you can much better decide
> > than me, where would be the right place to put and/or invoke it. It
> > has only 2 public functions : [...]
>
> Yes. The problem of course is not lack of understanding but rather
> that we want to encourage people to send their changes in a way that
> takes work off our (i.e. the core team's) shoulders.
>

Of course I'll do later :) Just want to have at least more than 2-3
hours of experience with the framework first :)

> > So - sorry for not sending a patch - but I think - this is better,
> > than to send one for the wrong place :)
>
> Probably. :)
>
> Thanks in any case for sending the code, I'll integrate it soon.

Thank you

[JT]

> Weblocks computes on each client request the path of the application,
> which (if i understand correctly, if not set by the developer
> explicitly) is calculated from the path of the ASDF-system to which
> the application belongs. For that Weblocks calls asdf:system-
> definitions-pathname, which on it's turn traverses all known
> directories known to ASDF to search and does a PROBE-FILE for .asd
> files with the name of the system searched. And that can take a while.
> Not knowing if this is an intendet behavior of Weblocks I implemented
> a small function, which memoizes the .asdf locations per system, which
> I turn on before loading Weblocks. Then - the demo responds allways in
> less than a second.

I'm glad you are addressing this performance issue It is rather
expensive computation, considering that it always computes to the same
folder once the system is loaded. FYI, dependency also calls it to
look up every css/js file. However, I had never notice any slowness.
How many registered systems do you have?

I'm actually in the middle of implementing a more generic memoization
utility so that we can (ideally) pick any function and cache the
result. Most of this work has already done by someone else here
http://www.tfeb.org/lisp/hax.html#MEMOIZE . At this moment, I'm making
it thread safe and adding a few optional caching requirements.

[Vyacheslav Akhmechet]

On Wed, Mar 25, 2009 at 12:57 PM, JT <jingt...@gmail.com> wrote:
> However, I had never notice any slowness. How many registered
> systems do you have?

I was wondering about the same thing.

> I'm actually in the middle of implementing a more generic memoization
> utility so that we can (ideally) pick any function and cache the
> result.

You've probably already thought about this, but I'll say it anyway.
It'd be nice to give an option to cache in the request, in the
session, and in the application. The reason for the request cache is
that some widgets (like the datagrid) make a call to the same
functions that access the database over and over. Instead of
restructuring the code, it'd be nice to just cache the value of those
functions in the request, so they get called only once per request.

It would also be very nice to have a simple function to flush the
caches (for debugging).

[JT]

> You've probably already thought about this, but I'll say it anyway.
> It'd be nice to give an option to cache in the request, in the
> session, and in the application. The reason for the request cache is
> that some widgets (like the datagrid) make a call to the same
> functions that access the database over and over. Instead of
> restructuring the code, it'd be nice to just cache the value of those
> functions in the request, so they get called only once per request.

I definitely have thought about that. I'm glad you think the same.

> It would also be very nice to have a simple function to flush the
> caches (for debugging).

The plan is have options to setup each memoized function with global
manual flushing, flushing upon any change in the source file, or
really anything thing you want hook it up with.

[Leslie P. Polzer]

> The plan is have options to setup each memoized function with global
> manual flushing, flushing upon any change in the source file, or
> really anything thing you  want hook it up with.

I'm very happy that you took this up. It sounds like this could become
a nice separate library for memoization.