From ng at stamov.ch  Thu Apr  1 17:52:15 2004
From: ng at stamov.ch (ng at stamov.ch)
Date: Thu,  1 Apr 2004 19:52:15 +0200
Subject: [Bese-devel] Compilation under LW
Message-ID: <1080841935.406c56cfd7cea@secure.netzone.ch>


Hello,

today I discovered UCW and tried to build it. I used for that LW 4.3 on 
Windows using directly the tarbal of the source repository (currently I have 
no access to any *nix and to arch) in the hope, that the sources visible in 
the source tree would work without the need to apply patches. Everything 
(arnesi, yacml, fiveam, portableaserve) compiles (and runs without errors all 
test suites) until I start loading the :ucw system. When it comes to the 
componens module I get the same error for all sources using "defaction". 

Can someone help?

With best regards
Plamen Stamov

Here are some typical errors:

File : ucw_0.2.0\src\components\option-dialog.lisp


**++++ Error in (METHOD IT.BESE.UCW::RESPOND (IT.BESE.UCW::OPTION-DIALOG T)): 
  NIL is not of type LEXICAL::ENVIRONMENT when accessing slot 
LEXICAL::VARIABLES.


File : ucw_0.2.0\src\components\range-view.lisp
**++++ Error in (METHOD IT.BESE.UCW::SCROLL-START (IT.BESE.UCW::RANGE-VIEW)): 
  NIL is not of type LEXICAL::ENVIRONMENT when accessing slot 
LEXICAL::VARIABLES.


**++++ Error in (METHOD IT.BESE.UCW::SCROLL-END (IT.BESE.UCW::RANGE-VIEW)): 
  NIL is not of type LEXICAL::ENVIRONMENT when accessing slot 
LEXICAL::VARIABLES.


**++++ Error in (METHOD IT.BESE.UCW::SCROLL-FORWARD (IT.BESE.UCW::RANGE-
VIEW)): 
  NIL is not of type LEXICAL::ENVIRONMENT when accessing slot 
LEXICAL::VARIABLES.


**++++ Error in (METHOD IT.BESE.UCW::SCROLL-BACKWARD (IT.BESE.UCW::RANGE-
VIEW)): 
  NIL is not of type LEXICAL::ENVIRONMENT when accessing slot 
LEXICAL::VARIABLES.


**++++ Error in (METHOD IT.BESE.UCW::SCROLL-TO-OFFSET (IT.BESE.UCW::RANGE-VIEW 
T)): 
  NIL is not of type LEXICAL::ENVIRONMENT when accessing slot 
LEXICAL::VARIABLES.


**++++ Error in (METHOD IT.BESE.UCW::SCROLL-TO-PAGE (IT.BESE.UCW::RANGE-VIEW 
T)): 
  NIL is not of type LEXICAL::ENVIRONMENT when accessing slot 
LEXICAL::VARIABLES.



And here is the trace of the first error :

IT.BESE.UCW 2 : 1 > :bb
#<PACKAGE IT.BESE.UCW>

Condition: NIL is not of type LEXICAL::ENVIRONMENT when accessing slot 
LEXICAL::VARIABLES.
Call to LEXICAL:LEXICAL-FUNCTION-DESC (offset 24)
  LEXICAL::NAME : CURRENT-COMPONENT
  LEXICAL::ENV  : :DONT-KNOW

Call to SETF::SETF-METHOD (offset 27)
  SYMBOL               : CURRENT-COMPONENT
  SETF::ENV            : NIL
  SETF::NO-LOCAL-CHECK : :DONT-KNOW

Binding frame:
  SYSTEM::*SETF-FORM* : NIL

Call to SETF::SETF-FORM (offset 218)
  SETF::PLACE : (CURRENT-COMPONENT *CONTEXT*)
  SETF::VALUE : (MAKE-INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are 
you sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL :FRAME 
(CURRENT-FRAME *CONTEXT*) :CONTINUATION #:UNIQUE-10846 :CALLING-COMPONENT 
#:UNIQUE-10847)
  SETF::ENV   : NIL

Call to IT.BESE.ARNESI::CPS-PASS1 (offset 5165)
  IT.BESE.ARNESI::FORM : (SETF (CURRENT-COMPONENT *CONTEXT*) (MAKE-INSTANCE 
(QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S 
to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL :FRAME (CURRENT-FRAME 
*CONTEXT*) :CONTINUATION #:UNIQUE-10846 :CALLING-COMPONENT #:UNIQUE-10847))
  IT.BESE.ARNESI::ENV  : ((:LET #:UNIQUE-10846 #:G10851) (:LET #:UNIQUE-10847 
#:G10848) (:BLOCK RESPOND #:G10844))
  DBG::KEYFORM         : SETF
  IT.BESE.ARNESI::IT   : NIL
  IT.BESE.ARNESI::IT   : #<function SETF 2019DE22>

Call to MAPCAR (offset 260)
  SEQ::FN     : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 
IT.BESE.ARNESI::CPS-PASS1-BODY) 216C55EA>
  SEQ::FLIST  : ((SETF (CURRENT-COMPONENT *CONTEXT*) (MAKE-INSTANCE (QUOTE 
OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL :FRAME (CURRENT-FRAME *CONTEXT*) :CONTINUATION 
#:UNIQUE-10846 :CALLING-COMPONENT #:UNIQUE-10847)))
  SEQ::OLISTS : NIL

Call to IT.BESE.ARNESI::CPS-PASS1-BODY (offset 115)
  IT.BESE.ARNESI::FORMS : ((SETF (CURRENT-COMPONENT *CONTEXT*) (MAKE-INSTANCE 
(QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S 
to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL :FRAME (CURRENT-FRAME 
*CONTEXT*) :CONTINUATION #:UNIQUE-10846 :CALLING-COMPONENT #:UNIQUE-10847)))
  IT.BESE.ARNESI::ENV   : ((:LET #:UNIQUE-10846 #:G10851) (:LET #:UNIQUE-10847 
#:G10848) (:BLOCK RESPOND #:G10844))

Call to IT.BESE.ARNESI::CPS-PASS1-BODY-WITH-DECLARES (offset 280)
  IT.BESE.ARNESI::FORMS     : ((SETF (CURRENT-COMPONENT *CONTEXT*) (MAKE-
INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to 
answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL :FRAME (CURRENT-FRAME 
*CONTEXT*) :CONTINUATION #:UNIQUE-10846 :CALLING-COMPONENT #:UNIQUE-10847)))
  IT.BESE.ARNESI::ENV       : ((:LET #:UNIQUE-10846 #:G10851) (:LET #:UNIQUE-
10847 #:G10848) (:BLOCK RESPOND #:G10844))
  IT.BESE.ARNESI::REAL-BODY : ((SETF (CURRENT-COMPONENT *CONTEXT*) (MAKE-
INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to 
answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL :FRAME (CURRENT-FRAME 
*CONTEXT*) :CONTINUATION #:UNIQUE-10846 :CALLING-COMPONENT #:UNIQUE-10847)))
  IT.BESE.ARNESI::DECLARES  : NIL
  DBG::EXTRA-VALS           : :DONT-KNOW

Call to IT.BESE.ARNESI::CPS-PASS1-LAMBDA-FUNCTION (offset 256)
  IT.BESE.ARNESI::LAMBDA-FORM : (LAMBDA (#1=#:UNIQUE-10846) (SETF (CURRENT-
COMPONENT *CONTEXT*) (MAKE-INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT 
NIL "Are you sure you want to answer ~S to the question ~S?" (CDR VALUE) 
(MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM 
NIL :FRAME (CURRENT-FRAME *CONTEXT*) :CONTINUATION #1# :CALLING-COMPONENT 
#:UNIQUE-10847)))
  IT.BESE.ARNESI::ENV         : ((:LET #:UNIQUE-10846 #:G10851) (:LET #:UNIQUE-
10847 #:G10848) (:BLOCK RESPOND #:G10844))
  DBG::\(ARGS\ ...\)          : ((#1=#:UNIQUE-10846) (SETF (CURRENT-COMPONENT 
*CONTEXT*) (MAKE-INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you 
sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL :FRAME 
(CURRENT-FRAME *CONTEXT*) :CONTINUATION #1# :CALLING-COMPONENT #:UNIQUE-
10847)))
  IT.BESE.ARNESI::ARGS        : (#:UNIQUE-10846)
  DBG::BODY                   : ((SETF (CURRENT-COMPONENT *CONTEXT*) (MAKE-
INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to 
answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL :FRAME (CURRENT-FRAME 
*CONTEXT*) :CONTINUATION #:UNIQUE-10846 :CALLING-COMPONENT #:UNIQUE-10847)))

Call to IT.BESE.ARNESI::CPS-PASS1 (offset 937)
  IT.BESE.ARNESI::FORM : (FUNCTION (LAMBDA (#1=#:UNIQUE-10846) (SETF (CURRENT-
COMPONENT *CONTEXT*) (MAKE-INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT 
NIL "Are you sure you want to answer ~S to the question ~S?" (CDR VALUE) 
(MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM 
NIL :FRAME (CURRENT-FRAME *CONTEXT*) :CONTINUATION #1# :CALLING-COMPONENT 
#:UNIQUE-10847))))
  IT.BESE.ARNESI::ENV  : ((:LET #:UNIQUE-10847 #:G10848) (:BLOCK RESPOND 
#:G10844))
  DBG::KEYFORM         : FUNCTION

Call to IT.BESE.ARNESI::CPS-PASS1 (offset 5180)
  IT.BESE.ARNESI::FORM : (LAMBDA (#1=#:UNIQUE-10846) (SETF (CURRENT-COMPONENT 
*CONTEXT*) (MAKE-INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you 
sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL :FRAME 
(CURRENT-FRAME *CONTEXT*) :CONTINUATION #1# :CALLING-COMPONENT #:UNIQUE-
10847)))
  IT.BESE.ARNESI::ENV  : ((:LET #:UNIQUE-10847 #:G10848) (:BLOCK RESPOND 
#:G10844))
  DBG::KEYFORM         : LAMBDA
  IT.BESE.ARNESI::IT   : NIL
  IT.BESE.ARNESI::IT   : #<function LAMBDA 2012EB82>

Call to (HARLEQUIN-COMMON-LISP:SUBFUNCTION 5 IT.BESE.ARNESI::CPS-PASS1) 
(offset 57)
  IT.BESE.ARNESI::ARG : (LAMBDA (#1=#:UNIQUE-10846) (SETF (CURRENT-COMPONENT 
*CONTEXT*) (MAKE-INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you 
sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL :FRAME 
(CURRENT-FRAME *CONTEXT*) :CONTINUATION #1# :CALLING-COMPONENT #:UNIQUE-
10847)))

Call to MAPCAR (offset 260)
  SEQ::FN     : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 5 
IT.BESE.ARNESI::CPS-PASS1) 216C5AC2>
  SEQ::FLIST  : ((LAMBDA (#1=#:UNIQUE-10846) (SETF (CURRENT-COMPONENT 
*CONTEXT*) (MAKE-INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you 
sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL :FRAME 
(CURRENT-FRAME *CONTEXT*) :CONTINUATION #1# :CALLING-COMPONENT #:UNIQUE-
10847))))
  SEQ::OLISTS : NIL

Call to IT.BESE.ARNESI::CPS-PASS1 (offset 5257)
  IT.BESE.ARNESI::FORM : (CALL/CC (LAMBDA (#1=#:UNIQUE-10846) (SETF (CURRENT-
COMPONENT *CONTEXT*) (MAKE-INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT 
NIL "Are you sure you want to answer ~S to the question ~S?" (CDR VALUE) 
(MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM 
NIL :FRAME (CURRENT-FRAME *CONTEXT*) :CONTINUATION #1# :CALLING-COMPONENT 
#:UNIQUE-10847))))
  IT.BESE.ARNESI::ENV  : ((:LET #:UNIQUE-10847 #:G10848) (:BLOCK RESPOND 
#:G10844))
  DBG::KEYFORM         : CALL/CC
  IT.BESE.ARNESI::IT   : NIL
  IT.BESE.ARNESI::IT   : NIL

Call to MAPCAR (offset 260)
  SEQ::FN     : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 
IT.BESE.ARNESI::CPS-PASS1-BODY) 216C5CC2>
  SEQ::FLIST  : ((CALL/CC (LAMBDA (#1=#:UNIQUE-10846) (SETF (CURRENT-COMPONENT 
*CONTEXT*) (MAKE-INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you 
sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL :FRAME 
(CURRENT-FRAME *CONTEXT*) :CONTINUATION #1# :CALLING-COMPONENT #:UNIQUE-
10847)))))
  SEQ::OLISTS : NIL

Call to IT.BESE.ARNESI::CPS-PASS1-BODY (offset 115)
  IT.BESE.ARNESI::FORMS : ((CALL/CC (LAMBDA (#1=#:UNIQUE-10846) (SETF (CURRENT-
COMPONENT *CONTEXT*) (MAKE-INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT 
NIL "Are you sure you want to answer ~S to the question ~S?" (CDR VALUE) 
(MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM 
NIL :FRAME (CURRENT-FRAME *CONTEXT*) :CONTINUATION #1# :CALLING-COMPONENT 
#:UNIQUE-10847)))))
  IT.BESE.ARNESI::ENV   : ((:LET #:UNIQUE-10847 #:G10848) (:BLOCK RESPOND 
#:G10844))

Call to IT.BESE.ARNESI::CPS-PASS1-BODY-WITH-DECLARES (offset 280)
  IT.BESE.ARNESI::FORMS     : ((CALL/CC (LAMBDA (#1=#:UNIQUE-10846) (SETF 
(CURRENT-COMPONENT *CONTEXT*) (MAKE-INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE 
(FORMAT NIL "Are you sure you want to answer ~S to the question ~S?" (CDR 
VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM 
NIL :FRAME (CURRENT-FRAME *CONTEXT*) :CONTINUATION #1# :CALLING-COMPONENT 
#:UNIQUE-10847)))))
  IT.BESE.ARNESI::ENV       : ((:LET #:UNIQUE-10847 #:G10848) (:BLOCK RESPOND 
#:G10844))
  IT.BESE.ARNESI::REAL-BODY : ((CALL/CC (LAMBDA (#1=#:UNIQUE-10846) (SETF 
(CURRENT-COMPONENT *CONTEXT*) (MAKE-INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE 
(FORMAT NIL "Are you sure you want to answer ~S to the question ~S?" (CDR 
VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM 
NIL :FRAME (CURRENT-FRAME *CONTEXT*) :CONTINUATION #1# :CALLING-COMPONENT 
#:UNIQUE-10847)))))
  IT.BESE.ARNESI::DECLARES  : NIL
  DBG::EXTRA-VALS           : :DONT-KNOW

Call to IT.BESE.ARNESI::CPS-PASS1 (offset 1760)
  IT.BESE.ARNESI::FORM     : (LET ((#2=#:UNIQUE-10847 (CURRENT-COMPONENT 
*CONTEXT*))) (CALL/CC (LAMBDA (#1=#:UNIQUE-10846) (SETF (CURRENT-COMPONENT 
*CONTEXT*) (MAKE-INSTANCE (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you 
sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL :FRAME 
(CURRENT-FRAME *CONTEXT*) :CONTINUATION #1# :CALLING-COMPONENT #2#)))))
  IT.BESE.ARNESI::ENV      : ((:BLOCK RESPOND #:G10844))
  DBG::KEYFORM             : LET
  IT.BESE.ARNESI::BINDINGS : ((#:UNIQUE-10847 (CURRENT-COMPONENT *CONTEXT*)))
  IT.BESE.ARNESI::BODY-ENV : ((:LET #:UNIQUE-10847 #:G10848) (:BLOCK RESPOND 
#:G10844))

Call to IT.BESE.ARNESI::CPS-PASS1 (offset 5180)
  IT.BESE.ARNESI::FORM : (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are 
you sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL)
  IT.BESE.ARNESI::ENV  : ((:BLOCK RESPOND #:G10844))
  DBG::KEYFORM         : CALL
  IT.BESE.ARNESI::IT   : NIL
  IT.BESE.ARNESI::IT   : #<function CALL 21FDE2B2>

Call to IT.BESE.ARNESI::CPS-PASS1 (offset 1137)
  IT.BESE.ARNESI::FORM : (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT 
NIL "Are you sure you want to answer ~S to the question ~S?" (CDR VALUE) 
(MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) 
(ANSWER (CAR VALUE)) NIL)
  IT.BESE.ARNESI::ENV  : ((:BLOCK RESPOND #:G10844))
  DBG::KEYFORM         : IF

Call to IT.BESE.ARNESI::CPS-PASS1 (offset 1161)
  IT.BESE.ARNESI::FORM : (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR VALUE)))
  IT.BESE.ARNESI::ENV  : ((:BLOCK RESPOND #:G10844))
  DBG::KEYFORM         : IF

Call to MAPCAR (offset 260)
  SEQ::FN     : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 
IT.BESE.ARNESI::CPS-PASS1-BODY) 216C646A>
  SEQ::FLIST  : ((IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE 
(FORMAT NIL "Are you sure you want to answer ~S to the question ~S?" (CDR 
VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM 
NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR VALUE))))
  SEQ::OLISTS : NIL

Call to IT.BESE.ARNESI::CPS-PASS1-BODY (offset 115)
  IT.BESE.ARNESI::FORMS : ((IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR VALUE))))
  IT.BESE.ARNESI::ENV   : ((:BLOCK RESPOND #:G10844))

Call to IT.BESE.ARNESI::CPS-PASS1 (offset 371)
  IT.BESE.ARNESI::FORM : (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE 
OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR VALUE))))
  IT.BESE.ARNESI::ENV  : NIL
  DBG::KEYFORM         : BLOCK
  IT.BESE.ARNESI::ENV  : ((:BLOCK RESPOND #:G10844))

Call to MAPCAR (offset 260)
  SEQ::FN     : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 
IT.BESE.ARNESI::CPS-PASS1-BODY) 216C66AA>
  SEQ::FLIST  : ((BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR VALUE)))))
  SEQ::OLISTS : NIL

Call to IT.BESE.ARNESI::CPS-PASS1-BODY (offset 115)
  IT.BESE.ARNESI::FORMS : ((BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL 
(QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S 
to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER 
(CAR VALUE)))))
  IT.BESE.ARNESI::ENV   : NIL

Call to IT.BESE.ARNESI::CPS-PASS1 (offset 2573)
  IT.BESE.ARNESI::FORM : (PROGN (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL 
(QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S 
to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER 
(CAR VALUE)))))
  IT.BESE.ARNESI::ENV  : NIL
  DBG::KEYFORM         : PROGN

Call to TO-CPS (offset 33)
  IT.BESE.ARNESI::FORM : (PROGN (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL 
(QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S 
to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER 
(CAR VALUE)))))

Call to WITH-CALL/CC (offset 82)
  DSPEC::%%MACROARG%% : (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF 
(CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to 
answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER 
(CAR VALUE)))))
  &ENVIRONMENT        : :DONT-KNOW
  DBG::\(&REST\ ...\) : ((BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE 
OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR VALUE)))))

Binding frame:
  DSPEC::*CURRENT-FORM-TYPE* : NIL

Binding frame:
  DSPEC:*CURRENT-FORM* : (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF 
(CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to 
answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER 
(CAR VALUE)))))

Call to MACROEXPAND-1 (offset 251)
  LEXICAL::FORM : (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL 
(QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S 
to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER 
(CAR VALUE)))))
  LEXICAL::ENV  : #S(LEXICAL::ENVIRONMENT LEXICAL::VARIABLES ((#:G10839 . 
#:G10839) (#:G10838 . #:G10838) (#:G10837 . #:G10837) (VALUE . #:VALUE) 
(DIALOG . #:DIALOG)) LEXICAL::FUNCTIONS ((NEXT-METHOD-P . #:NEXT-METHOD-P) 
(CALL-NEXT-METHOD . #:CALL-NEXT-METHOD)) LEXICAL::REMOTE-ENVIRONMENT NIL)

Call to LEXICAL:CAREFUL-MACROEXPAND (offset 50)
  LEXICAL::FORM : (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL 
(QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S 
to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER 
(CAR VALUE)))))
  LEXICAL::ENV  : #S(LEXICAL::ENVIRONMENT LEXICAL::VARIABLES ((#:G10839 . 
#:G10839) (#:G10838 . #:G10838) (#:G10837 . #:G10837) (VALUE . #:VALUE) 
(DIALOG . #:DIALOG)) LEXICAL::FUNCTIONS ((NEXT-METHOD-P . #:NEXT-METHOD-P) 
(CALL-NEXT-METHOD . #:CALL-NEXT-METHOD)) LEXICAL::REMOTE-ENVIRONMENT NIL)

Binding frame:
  DSPEC:*CURRENT-FORM* : (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR VALUE))))))

Call to LEXICAL::PRE (offset 121)
  LEXICAL::CFORM : (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL 
(QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S 
to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER 
(CAR VALUE)))))

Call to MAPCAR (offset 260)
  SEQ::FN     : #<function LEXICAL::PRE 20164DA2>
  SEQ::FLIST  : ((WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL 
(QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S 
to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE 
((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER 
(CAR VALUE))))))
  SEQ::OLISTS : NIL

Binding frame:
  LEXICAL::*BLOCK-ENVIRONMENT* : NIL

Call to (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 (LISPWORKS:TOP-LEVEL-FORM 23)) 
(offset 211)
  DSPEC::%%MACROARG%% : :DONT-KNOW
  &ENVIRONMENT        : :DONT-KNOW

Binding frame:
  DSPEC:*CURRENT-FORM* : (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving 
action UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) 
(WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE)))))))

Call to LEXICAL::PRE (offset 177)
  LEXICAL::CFORM : (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR VALUE))))))

Call to MAPCAR (offset 260)
  SEQ::FN     : #<function LEXICAL::PRE 20164DA2>
  SEQ::FLIST  : ((BLOCK RESPOND (UCW.ACCESS.INFO "Serving action UCW::RESPOND 
in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK 
RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT 
NIL "Are you sure you want to answer ~S to the question ~S?" (CDR VALUE) 
(MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) 
(ANSWER (CAR VALUE)) NIL) (ANSWER (CAR VALUE)))))))
  SEQ::OLISTS : NIL

Call to (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 (LISPWORKS:TOP-LEVEL-FORM 3)) 
(offset 93)
  DSPEC::%%MACROARG%% : :DONT-KNOW
  &ENVIRONMENT        : :DONT-KNOW

Binding frame:
  DSPEC:*CURRENT-FORM* : (FLET ((NEXT-METHOD-P NIL (NOT (NOT #:G10837)))) 
(DECLARE (INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND 
(UCW.ACCESS.INFO "Serving action UCW::RESPOND in session ~S." (SESSION.ID 
(CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM 
DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you 
want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS 
(QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) 
(ANSWER (CAR VALUE))))))))

Call to LEXICAL::PRE (offset 177)
  LEXICAL::CFORM : (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE)))))))

Call to MAPCAR (offset 260)
  SEQ::FN     : #<function LEXICAL::PRE 20164DA2>
  SEQ::FLIST  : ((PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE))))))))
  SEQ::OLISTS : NIL

Call to (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 (LISPWORKS:TOP-LEVEL-FORM 7)) 
(offset 218)
  LEXICAL::DECLS : ((INLINE NEXT-METHOD-P))
  LEXICAL::BODY  : ((PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE))))))))

Binding frame:
  LEXICAL::*FUNCTION-ENVIRONMENT* : ((CALL-NEXT-METHOD . #:CALL-NEXT-METHOD))

Binding frame:
  LEXICAL::*VARIABLE-ENVIRONMENT* : ((#:G10839 . #:G10839) (#:G10838 . 
#:G10838) (#:G10837 . #:G10837) (VALUE . #:VALUE) (DIALOG . #:DIALOG))

Binding frame:
  LEXICAL::*BINDING-CONTEXT* : NIL

Call to LEXICAL::HANDLE-DECLARATIONS (offset 599)
  LEXICAL::BODY-TEXT            : :DONT-KNOW
  LEXICAL::HANDLER              : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 
1 (LISPWORKS:TOP-LEVEL-FORM 7)) 2198D95A>
  LEXICAL::SPECIAL-REST-HANDLER : NIL

Binding frame:
  DSPEC:*CURRENT-FORM* : (FLET ((CALL-NEXT-METHOD (&OPTIONAL . #2=(#:G10841 
#:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) 
(DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP 
(SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #1=
(METHOD RESPOND (OPTION-DIALOG T))) #3=#:G10837 NIL #:G10838 #:G10839) 
(CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-COUNT) (QUOTE #1#) #3# 2 
NIL NIL . #2#)))) (DECLARE (INLINE CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P 
NIL (NOT (NOT #3#)))) (DECLARE (INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND 
(UCW.ACCESS.INFO "Serving action UCW::RESPOND in session ~S." (SESSION.ID 
(CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM 
DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you 
want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS 
(QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) 
(ANSWER (CAR VALUE)))))))))

Call to LEXICAL::PRE (offset 177)
  LEXICAL::CFORM : (FLET ((NEXT-METHOD-P NIL (NOT (NOT #:G10837)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE))))))))

Call to MAPCAR (offset 260)
  SEQ::FN     : #<function LEXICAL::PRE 20164DA2>
  SEQ::FLIST  : ((FLET ((NEXT-METHOD-P NIL (NOT (NOT #:G10837)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE)))))))))
  SEQ::OLISTS : NIL

Call to (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 (LISPWORKS:TOP-LEVEL-FORM 7)) 
(offset 218)
  LEXICAL::DECLS : ((INLINE CALL-NEXT-METHOD))
  LEXICAL::BODY  : ((FLET ((NEXT-METHOD-P NIL (NOT (NOT #:G10837)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE)))))))))

Binding frame:
  LEXICAL::*FUNCTION-ENVIRONMENT* : NIL

Binding frame:
  LEXICAL::*VARIABLE-ENVIRONMENT* : ((#:G10839 . #:G10839) (#:G10838 . 
#:G10838) (#:G10837 . #:G10837) (VALUE . #:VALUE) (DIALOG . #:DIALOG))

Binding frame:
  LEXICAL::*BINDING-CONTEXT* : NIL

Call to LEXICAL::HANDLE-DECLARATIONS (offset 599)
  LEXICAL::BODY-TEXT            : :DONT-KNOW
  LEXICAL::HANDLER              : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 
1 (LISPWORKS:TOP-LEVEL-FORM 7)) 20712FA2>
  LEXICAL::SPECIAL-REST-HANDLER : NIL

Binding frame:
  DSPEC:*CURRENT-FORM* : (LET ((#3=#:G10838 DIALOG) (#2=#:G10839 VALUE)) (FLET 
((CALL-NEXT-METHOD (&OPTIONAL . #4=(#:G10841 #:G10840)) (DECLARE 
(SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-
COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) 
(CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #1=(METHOD RESPOND (OPTION-
DIALOG T))) #5=#:G10837 NIL #3# #2#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #1#) #5# 2 NIL NIL . #4#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #5#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE))))))))))

Call to LEXICAL::PRE (offset 177)
  LEXICAL::CFORM : (FLET ((CALL-NEXT-METHOD (&OPTIONAL . #2=(#:G10841 
#:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) 
(DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP 
(SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #1=
(METHOD RESPOND (OPTION-DIALOG T))) #3=#:G10837 NIL #:G10838 #:G10839) 
(CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-COUNT) (QUOTE #1#) #3# 2 
NIL NIL . #2#)))) (DECLARE (INLINE CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P 
NIL (NOT (NOT #3#)))) (DECLARE (INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND 
(UCW.ACCESS.INFO "Serving action UCW::RESPOND in session ~S." (SESSION.ID 
(CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM 
DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you 
want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS 
(QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) 
(ANSWER (CAR VALUE)))))))))

Call to MAPCAR (offset 260)
  SEQ::FN     : #<function LEXICAL::PRE 20164DA2>
  SEQ::FLIST  : ((FLET ((CALL-NEXT-METHOD (&OPTIONAL . #2=(#:G10841 #:G10840)) 
(DECLARE (SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) 
(HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP 
(SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #1=
(METHOD RESPOND (OPTION-DIALOG T))) #3=#:G10837 NIL #:G10838 #:G10839) 
(CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-COUNT) (QUOTE #1#) #3# 2 
NIL NIL . #2#)))) (DECLARE (INLINE CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P 
NIL (NOT (NOT #3#)))) (DECLARE (INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND 
(UCW.ACCESS.INFO "Serving action UCW::RESPOND in session ~S." (SESSION.ID 
(CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM 
DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you 
want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS 
(QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) 
(ANSWER (CAR VALUE))))))))))
  SEQ::OLISTS : NIL

Call to (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 (LISPWORKS:TOP-LEVEL-FORM 3)) 
(offset 156)
  LEXICAL::DECLS : NIL
  LEXICAL::BODY  : ((FLET ((CALL-NEXT-METHOD (&OPTIONAL . #2=(#:G10841 
#:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) 
(DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP 
(SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #1=
(METHOD RESPOND (OPTION-DIALOG T))) #3=#:G10837 NIL #:G10838 #:G10839) 
(CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-COUNT) (QUOTE #1#) #3# 2 
NIL NIL . #2#)))) (DECLARE (INLINE CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P 
NIL (NOT (NOT #3#)))) (DECLARE (INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND 
(UCW.ACCESS.INFO "Serving action UCW::RESPOND in session ~S." (SESSION.ID 
(CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM 
DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you 
want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS 
(QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) 
(ANSWER (CAR VALUE))))))))))

Binding frame:
  LEXICAL::*FUNCTION-ENVIRONMENT* : NIL

Binding frame:
  LEXICAL::*VARIABLE-ENVIRONMENT* : ((#:G10837 . #:G10837) (VALUE . #:VALUE) 
(DIALOG . #:DIALOG))

Binding frame:
  LEXICAL::*BINDING-CONTEXT* : NIL

Call to LEXICAL::HANDLE-DECLARATIONS (offset 599)
  LEXICAL::BODY-TEXT            : :DONT-KNOW
  LEXICAL::HANDLER              : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 
1 (LISPWORKS:TOP-LEVEL-FORM 3)) 2071103A>
  LEXICAL::SPECIAL-REST-HANDLER : NIL

Binding frame:
  DSPEC:*CURRENT-FORM* : (LET ((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE 
(SAFETY 0))) CLOS::*NEXT-METHODS*))) (LET ((#2=#:G10838 DIALOG) (#1=#:G10839 
VALUE)) (FLET ((CALL-NEXT-METHOD (&OPTIONAL . #5=(#:G10841 #:G10840)) (DECLARE 
(SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-
COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) 
(CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #4=(METHOD RESPOND (OPTION-
DIALOG T))) #3# NIL #2# #1#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #4#) #3# 2 NIL NIL . #5#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #3#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE)))))))))))

Call to LEXICAL::PRE (offset 177)
  LEXICAL::CFORM : (LET ((#3=#:G10838 DIALOG) (#2=#:G10839 VALUE)) (FLET 
((CALL-NEXT-METHOD (&OPTIONAL . #4=(#:G10841 #:G10840)) (DECLARE 
(SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-
COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) 
(CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #1=(METHOD RESPOND (OPTION-
DIALOG T))) #5=#:G10837 NIL #3# #2#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #1#) #5# 2 NIL NIL . #4#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #5#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE))))))))))

Call to MAPCAR (offset 260)
  SEQ::FN     : #<function LEXICAL::PRE 20164DA2>
  SEQ::FLIST  : ((LET ((#3=#:G10838 DIALOG) (#2=#:G10839 VALUE)) (FLET ((CALL-
NEXT-METHOD (&OPTIONAL . #4=(#:G10841 #:G10840)) (DECLARE (SYSTEM::FLAG :CALL-
NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-
SAFETY 0) (SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-
METHOD-WITH-ORIGINAL NIL (QUOTE #1=(METHOD RESPOND (OPTION-DIALOG T))) 
#5=#:G10837 NIL #3# #2#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-
COUNT) (QUOTE #1#) #5# 2 NIL NIL . #4#)))) (DECLARE (INLINE CALL-NEXT-METHOD)) 
(FLET ((NEXT-METHOD-P NIL (NOT (NOT #5#)))) (DECLARE (INLINE NEXT-METHOD-P)) 
(PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action UCW::RESPOND in session 
~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND 
(IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are 
you sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER 
(CAR VALUE)) NIL) (ANSWER (CAR VALUE)))))))))))
  SEQ::OLISTS : NIL

Call to (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 (LISPWORKS:TOP-LEVEL-FORM 3)) 
(offset 156)
  LEXICAL::DECLS : NIL
  LEXICAL::BODY  : ((LET ((#3=#:G10838 DIALOG) (#2=#:G10839 VALUE)) (FLET 
((CALL-NEXT-METHOD (&OPTIONAL . #4=(#:G10841 #:G10840)) (DECLARE 
(SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-
COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) 
(CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #1=(METHOD RESPOND (OPTION-
DIALOG T))) #5=#:G10837 NIL #3# #2#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #1#) #5# 2 NIL NIL . #4#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #5#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE)))))))))))

Binding frame:
  LEXICAL::*FUNCTION-ENVIRONMENT* : NIL

Binding frame:
  LEXICAL::*VARIABLE-ENVIRONMENT* : ((VALUE . #:VALUE) (DIALOG . #:DIALOG))

Binding frame:
  LEXICAL::*BINDING-CONTEXT* : NIL

Call to LEXICAL::HANDLE-DECLARATIONS (offset 599)
  LEXICAL::BODY-TEXT            : :DONT-KNOW
  LEXICAL::HANDLER              : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 
1 (LISPWORKS:TOP-LEVEL-FORM 3)) 207110AA>
  LEXICAL::SPECIAL-REST-HANDLER : NIL

Binding frame:
  DSPEC:*CURRENT-FORM* : (FUNCTION (LAMBDA #4=(DIALOG VALUE) (DECLARE 
(HARLEQUIN-COMMON-LISP:LAMBDA-NAME #5=(METHOD RESPOND (OPTION-DIALOG T))) 
(HARLEQUIN-COMMON-LISP:LAMBDA-LIST . #4#) (SYSTEM::FLAG :METHOD) (TYPE OPTION-
DIALOG DIALOG) (IGNORABLE DIALOG)) (LET ((#3=#:G10837 (LOCALLY (DECLARE 
(OPTIMIZE (SAFETY 0))) CLOS::*NEXT-METHODS*))) (LET ((#2=#:G10838 DIALOG) 
(#1=#:G10839 VALUE)) (FLET ((CALL-NEXT-METHOD (&OPTIONAL . #6=(#:G10841 
#:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) 
(DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP 
(SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE 
#5#) #3# NIL #2# #1#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-
COUNT) (QUOTE #5#) #3# 2 NIL NIL . #6#)))) (DECLARE (INLINE CALL-NEXT-METHOD)) 
(FLET ((NEXT-METHOD-P NIL (NOT (NOT #3#)))) (DECLARE (INLINE NEXT-METHOD-P)) 
(PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action UCW::RESPOND in session 
~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND 
(IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are 
you sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER 
(CAR VALUE)) NIL) (ANSWER (CAR VALUE)))))))))))))

Call to LEXICAL::PRE (offset 177)
  LEXICAL::CFORM : (LET ((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) 
CLOS::*NEXT-METHODS*))) (LET ((#2=#:G10838 DIALOG) (#1=#:G10839 VALUE)) (FLET 
((CALL-NEXT-METHOD (&OPTIONAL . #5=(#:G10841 #:G10840)) (DECLARE 
(SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-
COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) 
(CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #4=(METHOD RESPOND (OPTION-
DIALOG T))) #3# NIL #2# #1#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #4#) #3# 2 NIL NIL . #5#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #3#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE)))))))))))

Call to MAPCAR (offset 260)
  SEQ::FN     : #<function LEXICAL::PRE 20164DA2>
  SEQ::FLIST  : ((LET ((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) 
CLOS::*NEXT-METHODS*))) (LET ((#2=#:G10838 DIALOG) (#1=#:G10839 VALUE)) (FLET 
((CALL-NEXT-METHOD (&OPTIONAL . #5=(#:G10841 #:G10840)) (DECLARE 
(SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-
COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) 
(CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #4=(METHOD RESPOND (OPTION-
DIALOG T))) #3# NIL #2# #1#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #4#) #3# 2 NIL NIL . #5#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #3#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE))))))))))))
  SEQ::OLISTS : NIL

Call to LEXICAL::LEX-LAMBDA-LIST (offset 134)
  HARLEQUIN-COMMON-LISP:LAMBDA-LIST : :DONT-KNOW
  LEXICAL::DECLS                    : ((HARLEQUIN-COMMON-LISP:LAMBDA-NAME 
(METHOD RESPOND (OPTION-DIALOG T))) (HARLEQUIN-COMMON-LISP:LAMBDA-LIST DIALOG 
VALUE) (SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG DIALOG) (IGNORABLE DIALOG))
  LEXICAL::NEW-BODY                 : ((LET ((#3=#:G10837 (LOCALLY (DECLARE 
(OPTIMIZE (SAFETY 0))) CLOS::*NEXT-METHODS*))) (LET ((#2=#:G10838 DIALOG) 
(#1=#:G10839 VALUE)) (FLET ((CALL-NEXT-METHOD (&OPTIONAL . #5=(#:G10841 
#:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) 
(DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP 
(SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #4=
(METHOD RESPOND (OPTION-DIALOG T))) #3# NIL #2# #1#) (CLOS::CALL-NEXT-METHOD-
WITH-ARGS (SYSTEM::ARGUMENTS-COUNT) (QUOTE #4#) #3# 2 NIL NIL . #5#)))) 
(DECLARE (INLINE CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT 
#3#)))) (DECLARE (INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND 
(UCW.ACCESS.INFO "Serving action UCW::RESPOND in session ~S." (SESSION.ID 
(CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM 
DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you 
want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS 
(QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) 
(ANSWER (CAR VALUE))))))))))))

Binding frame:
  LEXICAL::*LEXICAL-NAMES-DEFINED* : NIL

Binding frame:
  LEXICAL::*LEXICAL-NAMES-USED* : NIL

Binding frame:
  LEXICAL::*INSIDE-LAMBDA-P* : NIL

Call to LEXICAL::LEX-LAMBDA-CLOSE (offset 132)
  HARLEQUIN-COMMON-LISP:LAMBDA-LIST : :DONT-KNOW
  LEXICAL::DECLS                    : :DONT-KNOW
  LEXICAL::NEW-BODY                 : :DONT-KNOW

Binding frame:
  LEXICAL::*FUNCTION-ENVIRONMENT* : NIL

Binding frame:
  LEXICAL::*VARIABLE-ENVIRONMENT* : NIL

Binding frame:
  LEXICAL::*BINDING-CONTEXT* : #<unbound>

Call to LEXICAL::HANDLE-DECLARATIONS (offset 599)
  LEXICAL::BODY-TEXT            : :DONT-KNOW
  LEXICAL::HANDLER              : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 
1 LEXICAL::LEX-LAMBDA-1) 2070FDA2>
  LEXICAL::SPECIAL-REST-HANDLER : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 
2 LEXICAL::LEX-LAMBDA-1) 20711122>

Call to LEXICAL::LEX-LAMBDA (offset 251)
  HARLEQUIN-COMMON-LISP:LAMBDA-LIST : (DIALOG VALUE)
  LEXICAL::BODY                     : ((DECLARE (HARLEQUIN-COMMON-LISP:LAMBDA-
NAME #4=(METHOD RESPOND (OPTION-DIALOG T))) (HARLEQUIN-COMMON-LISP:LAMBDA-LIST 
DIALOG VALUE) (SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG DIALOG) (IGNORABLE 
DIALOG)) (LET ((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) 
CLOS::*NEXT-METHODS*))) (LET ((#2=#:G10838 DIALOG) (#1=#:G10839 VALUE)) (FLET 
((CALL-NEXT-METHOD (&OPTIONAL . #5=(#:G10841 #:G10840)) (DECLARE 
(SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-
COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) 
(CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #4#) #3# NIL #2# #1#) 
(CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-COUNT) (QUOTE #4#) #3# 2 
NIL NIL . #5#)))) (DECLARE (INLINE CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P 
NIL (NOT (NOT #3#)))) (DECLARE (INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND 
(UCW.ACCESS.INFO "Serving action UCW::RESPOND in session ~S." (SESSION.ID 
(CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM 
DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you 
want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS 
(QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) 
(ANSWER (CAR VALUE))))))))))))
  LEXICAL::NAME                     : NIL

Call to LEXICAL::LEX-FUNCTION (offset 329)
  LEXICAL::FUNCTION-NAME : (DIALOG VALUE)

Call to (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 (LISPWORKS:TOP-LEVEL-FORM 5)) 
(offset 91)
  DSPEC::%%MACROARG%% : :DONT-KNOW
  &ENVIRONMENT        : :DONT-KNOW

Binding frame:
  DSPEC:*CURRENT-FORM* : (CLOS::LOAD-DEFMETHOD-M (QUOTE (RESPOND NIL DIALOG 
VALUE)) (QUOTE #5=(OPTION-DIALOG T)) (FUNCTION (LAMBDA #4=(DIALOG VALUE) 
(DECLARE (HARLEQUIN-COMMON-LISP:LAMBDA-NAME #6=(METHOD RESPOND #5#)) 
(HARLEQUIN-COMMON-LISP:LAMBDA-LIST . #4#) (SYSTEM::FLAG :METHOD) (TYPE OPTION-
DIALOG DIALOG) (IGNORABLE DIALOG)) (LET ((#3=#:G10837 (LOCALLY (DECLARE 
(OPTIMIZE (SAFETY 0))) CLOS::*NEXT-METHODS*))) (LET ((#2=#:G10838 DIALOG) 
(#1=#:G10839 VALUE)) (FLET ((CALL-NEXT-METHOD (&OPTIONAL . #7=(#:G10841 
#:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) 
(DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP 
(SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE 
#6#) #3# NIL #2# #1#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-
COUNT) (QUOTE #6#) #3# 2 NIL NIL . #7#)))) (DECLARE (INLINE CALL-NEXT-METHOD)) 
(FLET ((NEXT-METHOD-P NIL (NOT (NOT #3#)))) (DECLARE (INLINE NEXT-METHOD-P)) 
(PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action UCW::RESPOND in session 
~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND 
(IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are 
you sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER 
(CAR VALUE)) NIL) (ANSWER (CAR VALUE))))))))))))))

Call to LEXICAL::PRE (offset 177)
  LEXICAL::CFORM : (FUNCTION (LAMBDA #4=(DIALOG VALUE) (DECLARE (HARLEQUIN-
COMMON-LISP:LAMBDA-NAME #5=(METHOD RESPOND (OPTION-DIALOG T))) (HARLEQUIN-
COMMON-LISP:LAMBDA-LIST . #4#) (SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG 
DIALOG) (IGNORABLE DIALOG)) (LET ((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE 
(SAFETY 0))) CLOS::*NEXT-METHODS*))) (LET ((#2=#:G10838 DIALOG) (#1=#:G10839 
VALUE)) (FLET ((CALL-NEXT-METHOD (&OPTIONAL . #6=(#:G10841 #:G10840)) (DECLARE 
(SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-
COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) 
(CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #5#) #3# NIL #2# #1#) 
(CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-COUNT) (QUOTE #5#) #3# 2 
NIL NIL . #6#)))) (DECLARE (INLINE CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P 
NIL (NOT (NOT #3#)))) (DECLARE (INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND 
(UCW.ACCESS.INFO "Serving action UCW::RESPOND in session ~S." (SESSION.ID 
(CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM 
DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you 
want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS 
(QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) 
(ANSWER (CAR VALUE)))))))))))))

Call to MAPCAR (offset 260)
  SEQ::FN     : #<function LEXICAL::PRE 20164DA2>
  SEQ::FLIST  : ((FUNCTION (LAMBDA #4=(DIALOG VALUE) (DECLARE (HARLEQUIN-
COMMON-LISP:LAMBDA-NAME #5=(METHOD RESPOND (OPTION-DIALOG T))) (HARLEQUIN-
COMMON-LISP:LAMBDA-LIST . #4#) (SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG 
DIALOG) (IGNORABLE DIALOG)) (LET ((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE 
(SAFETY 0))) CLOS::*NEXT-METHODS*))) (LET ((#2=#:G10838 DIALOG) (#1=#:G10839 
VALUE)) (FLET ((CALL-NEXT-METHOD (&OPTIONAL . #6=(#:G10841 #:G10840)) (DECLARE 
(SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-
COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) 
(CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #5#) #3# NIL #2# #1#) 
(CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-COUNT) (QUOTE #5#) #3# 2 
NIL NIL . #6#)))) (DECLARE (INLINE CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P 
NIL (NOT (NOT #3#)))) (DECLARE (INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND 
(UCW.ACCESS.INFO "Serving action UCW::RESPOND in session ~S." (SESSION.ID 
(CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM 
DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you 
want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS 
(QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) 
(ANSWER (CAR VALUE))))))))))))))
  SEQ::OLISTS : NIL

Call to LEXICAL::LEX-CALL (offset 59)
  LEXICAL::FORM : (CLOS::LOAD-DEFMETHOD-M (QUOTE (RESPOND NIL DIALOG VALUE)) 
(QUOTE #5=(OPTION-DIALOG T)) (FUNCTION (LAMBDA #4=(DIALOG VALUE) (DECLARE 
(HARLEQUIN-COMMON-LISP:LAMBDA-NAME #6=(METHOD RESPOND #5#)) (HARLEQUIN-COMMON-
LISP:LAMBDA-LIST . #4#) (SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG DIALOG) 
(IGNORABLE DIALOG)) (LET ((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 
0))) CLOS::*NEXT-METHODS*))) (LET ((#2=#:G10838 DIALOG) (#1=#:G10839 VALUE)) 
(FLET ((CALL-NEXT-METHOD (&OPTIONAL . #7=(#:G10841 #:G10840)) (DECLARE 
(SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-
COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) 
(CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #6#) #3# NIL #2# #1#) 
(CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-COUNT) (QUOTE #6#) #3# 2 
NIL NIL . #7#)))) (DECLARE (INLINE CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P 
NIL (NOT (NOT #3#)))) (DECLARE (INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND 
(UCW.ACCESS.INFO "Serving action UCW::RESPOND in session ~S." (SESSION.ID 
(CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM 
DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you 
want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS 
(QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) 
(ANSWER (CAR VALUE))))))))))))))

Binding frame:
  DSPEC:*CURRENT-FORM* : (DSPEC:CALL-WITH-DEFINING-LOCATION CLOS::LOAD-
DEFMETHOD-M (QUOTE (RESPOND NIL DIALOG VALUE)) (QUOTE #5=(OPTION-DIALOG T)) 
(FUNCTION (LAMBDA #4=(DIALOG VALUE) (DECLARE (HARLEQUIN-COMMON-LISP:LAMBDA-
NAME #6=(METHOD RESPOND #5#)) (HARLEQUIN-COMMON-LISP:LAMBDA-LIST . #4#) 
(SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG DIALOG) (IGNORABLE DIALOG)) (LET 
((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) CLOS::*NEXT-METHODS*))) 
(LET ((#2=#:G10838 DIALOG) (#1=#:G10839 VALUE)) (FLET ((CALL-NEXT-METHOD 
(&OPTIONAL . #7=(#:G10841 #:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-METHOD) 
(OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 
3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-
ORIGINAL NIL (QUOTE #6#) #3# NIL #2# #1#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #6#) #3# 2 NIL NIL . #7#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #3#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE))))))))))))))

Call to LEXICAL::PRE (offset 177)
  LEXICAL::CFORM : (CLOS::LOAD-DEFMETHOD-M (QUOTE (RESPOND NIL DIALOG VALUE)) 
(QUOTE #5=(OPTION-DIALOG T)) (FUNCTION (LAMBDA #4=(DIALOG VALUE) (DECLARE 
(HARLEQUIN-COMMON-LISP:LAMBDA-NAME #6=(METHOD RESPOND #5#)) (HARLEQUIN-COMMON-
LISP:LAMBDA-LIST . #4#) (SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG DIALOG) 
(IGNORABLE DIALOG)) (LET ((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 
0))) CLOS::*NEXT-METHODS*))) (LET ((#2=#:G10838 DIALOG) (#1=#:G10839 VALUE)) 
(FLET ((CALL-NEXT-METHOD (&OPTIONAL . #7=(#:G10841 #:G10840)) (DECLARE 
(SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-
COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) 
(CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #6#) #3# NIL #2# #1#) 
(CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-COUNT) (QUOTE #6#) #3# 2 
NIL NIL . #7#)))) (DECLARE (INLINE CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P 
NIL (NOT (NOT #3#)))) (DECLARE (INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND 
(UCW.ACCESS.INFO "Serving action UCW::RESPOND in session ~S." (SESSION.ID 
(CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM 
DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you 
want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS 
(QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) 
(ANSWER (CAR VALUE))))))))))))))

Binding frame:
  LEXICAL::*REMOTE-ENVIRONMENT* : #<unbound>

Binding frame:
  LEXICAL::*TAG-ENVIRONMENT* : #<unbound>

Binding frame:
  LEXICAL::*BLOCK-ENVIRONMENT* : #<unbound>

Binding frame:
  LEXICAL::*FUNCTION-ENVIRONMENT* : #<unbound>

Binding frame:
  LEXICAL::*VARIABLE-ENVIRONMENT* : #<unbound>

Binding frame:
  LEXICAL::*LEXICAL-NAMES-DEFINED* : #<unbound>

Binding frame:
  LEXICAL::*LEXICAL-NAMES-USED* : #<unbound>

Binding frame:
  LEXICAL::*INSIDE-LAMBDA-P* : #<unbound>

Binding frame:
  LEXICAL::*FREE-SYMBOLS* : #<unbound>

Call to LEXICAL:PREPROCESS (offset 309)
  LEXICAL::FORM : (CLOS::LOAD-DEFMETHOD-M (QUOTE (RESPOND NIL DIALOG VALUE)) 
(QUOTE #5=(OPTION-DIALOG T)) (FUNCTION (LAMBDA #4=(DIALOG VALUE) (DECLARE 
(HARLEQUIN-COMMON-LISP:LAMBDA-NAME #6=(METHOD RESPOND #5#)) (HARLEQUIN-COMMON-
LISP:LAMBDA-LIST . #4#) (SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG DIALOG) 
(IGNORABLE DIALOG)) (LET ((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 
0))) CLOS::*NEXT-METHODS*))) (LET ((#2=#:G10838 DIALOG) (#1=#:G10839 VALUE)) 
(FLET ((CALL-NEXT-METHOD (&OPTIONAL . #7=(#:G10841 #:G10840)) (DECLARE 
(SYSTEM::FLAG :CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-
COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) 
(CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL (QUOTE #6#) #3# NIL #2# #1#) 
(CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-COUNT) (QUOTE #6#) #3# 2 
NIL NIL . #7#)))) (DECLARE (INLINE CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P 
NIL (NOT (NOT #3#)))) (DECLARE (INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND 
(UCW.ACCESS.INFO "Serving action UCW::RESPOND in session ~S." (SESSION.ID 
(CONTEXT.SESSION *CONTEXT*))) (WITH-CALL/CC (BLOCK RESPOND (IF (CONFIRM 
DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you sure you 
want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS 
(QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) 
(ANSWER (CAR VALUE))))))))))))))
  LEXICAL::ENV  : #S(LEXICAL::ENVIRONMENT LEXICAL::VARIABLES NIL 
LEXICAL::FUNCTIONS NIL LEXICAL::REMOTE-ENVIRONMENT NIL)

Call to LEXICAL:EVAL-WITH-ENV (offset 28)
  LEXICAL::FORM : :DONT-KNOW
  LEXICAL::ENV  : :DONT-KNOW

Binding frame:
  DSPEC:*CURRENT-FORM* : (LISPWORKS:COMPILER-LET ((COMPILER:*FUNCTION-NAME* 
(COMPILER::GENERATE-SUBFORM-NAME #1=(QUOTE #7=(METHOD RESPOND #6=(OPTION-
DIALOG T))) COMPILER:*FUNCTION-NAME*)) (COMPILER::*FUNCTION-PARENT* 
(COMPILER::TLF-FUNCTION-PARENT (QUOTE #1#)))) (EVAL-WHEN (:COMPILE-TOPLEVEL) 
(CLOS::RECORD-CLASS-POTENTIAL-ARGUMENTS (QUOTE RESPOND) (QUOTE #9=(DIALOG 
VALUE)) (QUOTE #6#)) (COMPILER::SET-ARG-SPEC-FROM-LAMBDA-LIST (QUOTE RESPOND) 
(QUOTE #9#))) (DSPEC:CALL-WITH-DEFINING-LOCATION CLOS::LOAD-DEFMETHOD-M (QUOTE 
(RESPOND NIL . #9#)) (QUOTE #6#) (FUNCTION (LAMBDA #5=(DIALOG VALUE) (DECLARE 
(HARLEQUIN-COMMON-LISP:LAMBDA-NAME #7#) (HARLEQUIN-COMMON-LISP:LAMBDA-LIST . 
#5#) (SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG DIALOG) (IGNORABLE DIALOG)) 
(LET ((#4=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) CLOS::*NEXT-
METHODS*))) (LET ((#3=#:G10838 DIALOG) (#2=#:G10839 VALUE)) (FLET ((CALL-NEXT-
METHOD (&OPTIONAL . #8=(#:G10841 #:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-
METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) 
(SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-
ORIGINAL NIL (QUOTE #7#) #4# NIL #3# #2#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #7#) #4# 2 NIL NIL . #8#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #4#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE)))))))))))))))

Call to IV:PROCESS-TOP-LEVEL (offset 361)
  DSPEC:*CURRENT-FORM* : (DSPEC:CALL-WITH-DEFINING-LOCATION CLOS::LOAD-
DEFMETHOD-M (QUOTE (RESPOND NIL DIALOG VALUE)) (QUOTE #5=(OPTION-DIALOG T)) 
(FUNCTION (LAMBDA #4=(DIALOG VALUE) (DECLARE (HARLEQUIN-COMMON-LISP:LAMBDA-
NAME #6=(METHOD RESPOND #5#)) (HARLEQUIN-COMMON-LISP:LAMBDA-LIST . #4#) 
(SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG DIALOG) (IGNORABLE DIALOG)) (LET 
((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) CLOS::*NEXT-METHODS*))) 
(LET ((#2=#:G10838 DIALOG) (#1=#:G10839 VALUE)) (FLET ((CALL-NEXT-METHOD 
(&OPTIONAL . #7=(#:G10841 #:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-METHOD) 
(OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 
3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-
ORIGINAL NIL (QUOTE #6#) #3# NIL #2# #1#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #6#) #3# 2 NIL NIL . #7#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #3#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE))))))))))))))
  IV::ENV              : #S(LEXICAL::ENVIRONMENT LEXICAL::VARIABLES NIL 
LEXICAL::FUNCTIONS NIL LEXICAL::REMOTE-ENVIRONMENT NIL)
  IV::CONT             : #<function LEXICAL:EVAL-WITH-ENV 2016AB2A>
  IV::MODE             : :EXECUTE

Binding frame:
  COMPILER::*FUNCTION-PARENT* : NIL

Binding frame:
  COMPILER:*FUNCTION-NAME* : NIL

Catch frame: #:CATCHER49020

Binding frame:
  DSPEC:*CURRENT-FORM* : (COMPILER::TOP-LEVEL-FORM-NAME #6=(METHOD RESPOND #5=
(OPTION-DIALOG T)) (EVAL-WHEN (:COMPILE-TOPLEVEL) (CLOS::RECORD-CLASS-
POTENTIAL-ARGUMENTS (QUOTE RESPOND) (QUOTE #8=(DIALOG VALUE)) (QUOTE #5#)) 
(COMPILER::SET-ARG-SPEC-FROM-LAMBDA-LIST (QUOTE RESPOND) (QUOTE #8#))) 
(DSPEC:CALL-WITH-DEFINING-LOCATION CLOS::LOAD-DEFMETHOD-M (QUOTE (RESPOND 
NIL . #8#)) (QUOTE #5#) (FUNCTION (LAMBDA #4=(DIALOG VALUE) (DECLARE 
(HARLEQUIN-COMMON-LISP:LAMBDA-NAME #6#) (HARLEQUIN-COMMON-LISP:LAMBDA-LIST . 
#4#) (SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG DIALOG) (IGNORABLE DIALOG)) 
(LET ((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) CLOS::*NEXT-
METHODS*))) (LET ((#2=#:G10838 DIALOG) (#1=#:G10839 VALUE)) (FLET ((CALL-NEXT-
METHOD (&OPTIONAL . #7=(#:G10841 #:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-
METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) 
(SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-
ORIGINAL NIL (QUOTE #6#) #3# NIL #2# #1#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #6#) #3# 2 NIL NIL . #7#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #3#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE)))))))))))))))

Call to IV::PROCESS-COMPILER-LET (offset 358)
  DSPEC:*CURRENT-FORM* : (LISPWORKS:COMPILER-LET ((COMPILER:*FUNCTION-NAME* 
(COMPILER::GENERATE-SUBFORM-NAME #1=(QUOTE #7=(METHOD RESPOND #6=(OPTION-
DIALOG T))) COMPILER:*FUNCTION-NAME*)) (COMPILER::*FUNCTION-PARENT* 
(COMPILER::TLF-FUNCTION-PARENT (QUOTE #1#)))) (EVAL-WHEN (:COMPILE-TOPLEVEL) 
(CLOS::RECORD-CLASS-POTENTIAL-ARGUMENTS (QUOTE RESPOND) (QUOTE #9=(DIALOG 
VALUE)) (QUOTE #6#)) (COMPILER::SET-ARG-SPEC-FROM-LAMBDA-LIST (QUOTE RESPOND) 
(QUOTE #9#))) (DSPEC:CALL-WITH-DEFINING-LOCATION CLOS::LOAD-DEFMETHOD-M (QUOTE 
(RESPOND NIL . #9#)) (QUOTE #6#) (FUNCTION (LAMBDA #5=(DIALOG VALUE) (DECLARE 
(HARLEQUIN-COMMON-LISP:LAMBDA-NAME #7#) (HARLEQUIN-COMMON-LISP:LAMBDA-LIST . 
#5#) (SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG DIALOG) (IGNORABLE DIALOG)) 
(LET ((#4=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) CLOS::*NEXT-
METHODS*))) (LET ((#3=#:G10838 DIALOG) (#2=#:G10839 VALUE)) (FLET ((CALL-NEXT-
METHOD (&OPTIONAL . #8=(#:G10841 #:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-
METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) 
(SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-
ORIGINAL NIL (QUOTE #7#) #4# NIL #3# #2#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #7#) #4# 2 NIL NIL . #8#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #4#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE)))))))))))))))
  IV::ENV              : #S(LEXICAL::ENVIRONMENT LEXICAL::VARIABLES NIL 
LEXICAL::FUNCTIONS NIL LEXICAL::REMOTE-ENVIRONMENT NIL)
  IV::CONT             : #<function LEXICAL:EVAL-WITH-ENV 2016AB2A>
  IV::MODE             : :EXECUTE

Binding frame:
  DSPEC:*CURRENT-FORM* : (LISPWORKS:COMPILER-LET ((DSPEC::*LOCATION* (QUOTE 
(:INSIDE #6=(METHOD RESPOND #5=(OPTION-DIALOG T)) 
#P"D:/prj/lx/try/ucw_0.2.0/src/components/option-dialog.lisp")))) 
(COMPILER::TOP-LEVEL-FORM-NAME #6# (EVAL-WHEN (:COMPILE-TOPLEVEL) 
(CLOS::RECORD-CLASS-POTENTIAL-ARGUMENTS (QUOTE RESPOND) (QUOTE #8=(DIALOG 
VALUE)) (QUOTE #5#)) (COMPILER::SET-ARG-SPEC-FROM-LAMBDA-LIST (QUOTE RESPOND) 
(QUOTE #8#))) (DSPEC:CALL-WITH-DEFINING-LOCATION CLOS::LOAD-DEFMETHOD-M (QUOTE 
(RESPOND NIL . #8#)) (QUOTE #5#) (FUNCTION (LAMBDA #4=(DIALOG VALUE) (DECLARE 
(HARLEQUIN-COMMON-LISP:LAMBDA-NAME #6#) (HARLEQUIN-COMMON-LISP:LAMBDA-LIST . 
#4#) (SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG DIALOG) (IGNORABLE DIALOG)) 
(LET ((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) CLOS::*NEXT-
METHODS*))) (LET ((#2=#:G10838 DIALOG) (#1=#:G10839 VALUE)) (FLET ((CALL-NEXT-
METHOD (&OPTIONAL . #7=(#:G10841 #:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-
METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) 
(SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-
ORIGINAL NIL (QUOTE #6#) #3# NIL #2# #1#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #6#) #3# 2 NIL NIL . #7#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #3#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE))))))))))))))))

Call to IV:PROCESS-TOP-LEVEL (offset 307)
  DSPEC:*CURRENT-FORM* : (COMPILER::TOP-LEVEL-FORM-NAME #6=(METHOD RESPOND #5=
(OPTION-DIALOG T)) (EVAL-WHEN (:COMPILE-TOPLEVEL) (CLOS::RECORD-CLASS-
POTENTIAL-ARGUMENTS (QUOTE RESPOND) (QUOTE #8=(DIALOG VALUE)) (QUOTE #5#)) 
(COMPILER::SET-ARG-SPEC-FROM-LAMBDA-LIST (QUOTE RESPOND) (QUOTE #8#))) 
(DSPEC:CALL-WITH-DEFINING-LOCATION CLOS::LOAD-DEFMETHOD-M (QUOTE (RESPOND 
NIL . #8#)) (QUOTE #5#) (FUNCTION (LAMBDA #4=(DIALOG VALUE) (DECLARE 
(HARLEQUIN-COMMON-LISP:LAMBDA-NAME #6#) (HARLEQUIN-COMMON-LISP:LAMBDA-LIST . 
#4#) (SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG DIALOG) (IGNORABLE DIALOG)) 
(LET ((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) CLOS::*NEXT-
METHODS*))) (LET ((#2=#:G10838 DIALOG) (#1=#:G10839 VALUE)) (FLET ((CALL-NEXT-
METHOD (&OPTIONAL . #7=(#:G10841 #:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-
METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) 
(SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-
ORIGINAL NIL (QUOTE #6#) #3# NIL #2# #1#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #6#) #3# 2 NIL NIL . #7#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #3#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE)))))))))))))))
  IV::ENV              : #S(LEXICAL::ENVIRONMENT LEXICAL::VARIABLES NIL 
LEXICAL::FUNCTIONS NIL LEXICAL::REMOTE-ENVIRONMENT NIL)
  IV::CONT             : #<function LEXICAL:EVAL-WITH-ENV 2016AB2A>
  IV::MODE             : :EXECUTE

Binding frame:
  DSPEC::*LOCATION* : #P"D:/prj/lx/try/ucw_0.2.0/src/components/option-
dialog.lisp"

Catch frame: #:CATCHER49020

Binding frame:
  DSPEC:*CURRENT-FORM* : (DEFACTION RESPOND ((DIALOG OPTION-DIALOG) VALUE) (IF 
(CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you 
sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER 
(CAR VALUE)) NIL) (ANSWER (CAR VALUE))))

Call to IV::PROCESS-COMPILER-LET (offset 358)
  DSPEC:*CURRENT-FORM* : (LISPWORKS:COMPILER-LET ((DSPEC::*LOCATION* (QUOTE 
(:INSIDE #6=(METHOD RESPOND #5=(OPTION-DIALOG T)) 
#P"D:/prj/lx/try/ucw_0.2.0/src/components/option-dialog.lisp")))) 
(COMPILER::TOP-LEVEL-FORM-NAME #6# (EVAL-WHEN (:COMPILE-TOPLEVEL) 
(CLOS::RECORD-CLASS-POTENTIAL-ARGUMENTS (QUOTE RESPOND) (QUOTE #8=(DIALOG 
VALUE)) (QUOTE #5#)) (COMPILER::SET-ARG-SPEC-FROM-LAMBDA-LIST (QUOTE RESPOND) 
(QUOTE #8#))) (DSPEC:CALL-WITH-DEFINING-LOCATION CLOS::LOAD-DEFMETHOD-M (QUOTE 
(RESPOND NIL . #8#)) (QUOTE #5#) (FUNCTION (LAMBDA #4=(DIALOG VALUE) (DECLARE 
(HARLEQUIN-COMMON-LISP:LAMBDA-NAME #6#) (HARLEQUIN-COMMON-LISP:LAMBDA-LIST . 
#4#) (SYSTEM::FLAG :METHOD) (TYPE OPTION-DIALOG DIALOG) (IGNORABLE DIALOG)) 
(LET ((#3=#:G10837 (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) CLOS::*NEXT-
METHODS*))) (LET ((#2=#:G10838 DIALOG) (#1=#:G10839 VALUE)) (FLET ((CALL-NEXT-
METHOD (&OPTIONAL . #7=(#:G10841 #:G10840)) (DECLARE (SYSTEM::FLAG :CALL-NEXT-
METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0) (HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) 
(SPEED 3))) (IF (ZEROP (SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-
ORIGINAL NIL (QUOTE #6#) #3# NIL #2# #1#) (CLOS::CALL-NEXT-METHOD-WITH-ARGS 
(SYSTEM::ARGUMENTS-COUNT) (QUOTE #6#) #3# 2 NIL NIL . #7#)))) (DECLARE (INLINE 
CALL-NEXT-METHOD)) (FLET ((NEXT-METHOD-P NIL (NOT (NOT #3#)))) (DECLARE 
(INLINE NEXT-METHOD-P)) (PROGN (BLOCK RESPOND (UCW.ACCESS.INFO "Serving action 
UCW::RESPOND in session ~S." (SESSION.ID (CONTEXT.SESSION *CONTEXT*))) (WITH-
CALL/CC (BLOCK RESPOND (IF (CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-
DIALOG) :MESSAGE (FORMAT NIL "Are you sure you want to answer ~S to the 
question ~S?" (CDR VALUE) (MESSAGE DIALOG)) :OPTIONS (QUOTE ((T . "Yes") 
(NIL . "No"))) :CONFIRM NIL) (ANSWER (CAR VALUE)) NIL) (ANSWER (CAR 
VALUE))))))))))))))))
  IV::ENV              : #S(LEXICAL::ENVIRONMENT LEXICAL::VARIABLES NIL 
LEXICAL::FUNCTIONS NIL LEXICAL::REMOTE-ENVIRONMENT NIL)
  IV::CONT             : #<function LEXICAL:EVAL-WITH-ENV 2016AB2A>
  IV::MODE             : :EXECUTE

Binding frame:
  DSPEC:*CURRENT-FORM* : #<unbound>

Call to IV:PROCESS-TOP-LEVEL (offset 307)
  DSPEC:*CURRENT-FORM* : (DEFACTION RESPOND ((DIALOG OPTION-DIALOG) VALUE) (IF 
(CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you 
sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER 
(CAR VALUE)) NIL) (ANSWER (CAR VALUE))))
  IV::ENV              : #S(LEXICAL::ENVIRONMENT LEXICAL::VARIABLES NIL 
LEXICAL::FUNCTIONS NIL LEXICAL::REMOTE-ENVIRONMENT NIL)
  IV::CONT             : #<function LEXICAL:EVAL-WITH-ENV 2016AB2A>
  IV::MODE             : :EXECUTE

Binding frame:
  EDITOR::*EVAL-WARNING* : #<unbound>

Call to EDITOR::EDITOR-EVAL (offset 195)
  EDITOR:BUFFER  : :DONT-KNOW
  EDITOR::SEXP   : (DEFACTION RESPOND ((DIALOG OPTION-DIALOG) VALUE) (IF 
(CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you 
sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER 
(CAR VALUE)) NIL) (ANSWER (CAR VALUE))))
  EDITOR::ERRORP : T

Call to (HARLEQUIN-COMMON-LISP:SUBFUNCTION 3 (HARLEQUIN-COMMON-
LISP:SUBFUNCTION 1 EDITOR::REGION-LISP-EVAL)) (offset 26)
  EDITOR::FORM : (DEFACTION RESPOND ((DIALOG OPTION-DIALOG) VALUE) (IF 
(CONFIRM DIALOG) (IF (CALL (QUOTE OPTION-DIALOG) :MESSAGE (FORMAT NIL "Are you 
sure you want to answer ~S to the question ~S?" (CDR VALUE) (MESSAGE 
DIALOG)) :OPTIONS (QUOTE ((T . "Yes") (NIL . "No"))) :CONFIRM NIL) (ANSWER 
(CAR VALUE)) NIL) (ANSWER (CAR VALUE))))

Binding frame:
  COMPILER::*SOURCE-LEVEL-FORM-TABLE* : NIL

Binding frame:
  SYSTEM::*LAST-FORM-READ* : #<unbound>

Catch frame: SYSTEM::EXIT-LOAD-CATCH

Call to SYSTEM::LOAD-TEXT-STREAM (offset 283)
  STREAM                 : #<EDITOR::EDITOR-REGION-STREAM #<EDITOR:BUFFER 
option-dialog.lisp> 217715DC>
  SYSTEM::EVAL-FUNCTION  : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 3 
(HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 EDITOR::REGION-LISP-EVAL)) 219A939A>
  PRINT                  : NIL
  SYSTEM::PRINT-FUNCTION : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 4 
(HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 EDITOR::REGION-LISP-EVAL)) 219A9382>
  SYSTEM::EXIT-LOAD-P    : T

Catch frame: (NIL)

Binding frame:
  *LOAD-TRUENAME* : NIL

Binding frame:
  *LOAD-PATHNAME* : NIL

Call to (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 EDITOR::REGION-LISP-EVAL) (offset 
692)
  #:BUFFER1041 : #<EDITOR:BUFFER option-dialog.lisp>

Binding frame:
  EDITOR::*CAN-USE-ECHO-AREA* : NIL

Binding frame:
  *PACKAGE* : #<PACKAGE COMMON-LISP-USER>

Binding frame:
  DSPEC::*LOCATION-DEFS* : NIL

Binding frame:
  DSPEC::*LOCATION* : :LISTENER

Binding frame:
  *TRACE-OUTPUT* : #<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER Background 
Output> 2140F10C>

Binding frame:
  *ERROR-OUTPUT* : #<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER Background 
Output> 2140F10C>

Binding frame:
  *STANDARD-OUTPUT* : #<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER 
Background Output> 2140F10C>

Binding frame:
  DSPEC:*SOURCE-PATHNAME* : NIL

Binding frame:
  SYSTEM:*CURRENT-PATHNAME* : NIL

Call to EDITOR::WITH-COMPILATION-ENVIRONMENT-AT-POINT-FN (offset 252)
  EDITOR::POINT         : #<EDITOR::POINT "option-dialog.lisp" 0 offset 699 
219A9554>
  EDITOR::START-MESSAGE : "Evaluating..."
  EDITOR::END-MESSAGE   : "Finished evaluating"
  EDITOR::BODY-FN       : #<closure (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 
EDITOR::REGION-LISP-EVAL) 219A94B2>

Catch frame: (NIL)

Call to EDITOR::REGION-LISP-EVAL (offset 237)
  EDITOR:BUFFER : #<EDITOR:BUFFER option-dialog.lisp>
  EDITOR::START : #<EDITOR::POINT "option-dialog.lisp" 0 offset 699 219A9554>
  EDITOR::END   : #<EDITOR::POINT "option-dialog.lisp" 0 offset 1088 219A9534>
  PRINT         : T

Binding frame:
  EDITOR::*E-CURRENT-WINDOW* : #<EDITOR::WM-WINDOW "cps.lisp" 217DCDE4>

Binding frame:
  EDITOR::*CURRENT-WINDOW* : NIL

Binding frame:
  EDITOR::*CURRENT-BUFFER* : #<EDITOR:BUFFER NIL>

Catch frame: #<unbound>

Call to EDITOR::BACKGROUND-REGION-EVAL (offset 103)
  EDITOR::WINDOW         : #<EDITOR::WM-WINDOW "cps.lisp" 217DCDE4>
  EDITOR:BUFFER          : #<EDITOR:BUFFER option-dialog.lisp>
  EDITOR::START          : #<EDITOR::POINT "option-dialog.lisp" 0 offset 699 
219A9554>
  EDITOR::END            : #<EDITOR::POINT "option-dialog.lisp" 0 offset 1088 
219A9534>
  PRINT                  : T
  EDITOR::WARNINGS       : NIL
  EDITOR::AFTER-FUNCTION : NIL

Binding frame:
  *QUERY-IO* : #<Synonym stream to *TERMINAL-IO*>

Binding frame:
  *STANDARD-INPUT* : #<Synonym stream to *TERMINAL-IO*>

Binding frame:
  *TRACE-OUTPUT* : #<Synonym stream to *TERMINAL-IO*>

Binding frame:
  *ERROR-OUTPUT* : #<Synonym stream to *TERMINAL-IO*>

Binding frame:
  *STANDARD-OUTPUT* : #<Synonym stream to *TERMINAL-IO*>

Catch frame: #:CATCHER16531

Call to CAPI::BIND-STANDARD-STREAMS-AND-EXECUTE (offset 189)
  STREAM          : #<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER Background 
Output> 2140F10C>
  CAPI::FUNC-ARGS : (EDITOR::BACKGROUND-REGION-EVAL #<EDITOR::WM-
WINDOW "cps.lisp" 217DCDE4> #<EDITOR:BUFFER #1=option-dialog.lisp> 
#<EDITOR::POINT #1="option-dialog.lisp" 0 offset 699 219A9554> #<EDITOR::POINT 
#1="option-dialog.lisp" 0 offset 1088 219A9534> T NIL NIL)

Catch frame: (NIL)

Binding frame:
  *PACKAGE* : #<PACKAGE COMMON-LISP-USER>

Call to MP::BACKGROUND-EXECUTE-LOOP (offset 695)

Catch frame: MP::PROCESS-TAG

Catch frame: (NIL)

Binding frame:
  MP:*CURRENT-PROCESS* : NIL

Binding frame:
  WIN32::*DDE-THREAD-INSTANCE* : #<unbound>

Binding frame:
  MP::*ACTIONS-AFTER-SLEEPING* : NIL

Binding frame:
  MP::*ACTIONS-BEFORE-SLEEPING* : NIL

Binding frame:
  SYSTEM::*READER-STATE* : #<unbound>

Binding frame:
  *PACKAGE* : #<PACKAGE COMMON-LISP-USER>

Binding frame:
  EDITOR::*CURRENT-BUFFER* : NIL

Binding frame:
  EDITOR::*CURRENT-WINDOW* : NIL

Binding frame:
  EDITOR::*EDITOR-STATE* : NIL

Binding frame:
  EDITOR::*EDITOR-INPUT-STYLE* : #S(EDITOR:EDITOR-INPUT-STYLE EDITOR::KEY-
BINDINGS #<EDITOR::KEY-TABLE #<EQUALP Hash Table{331} 20C5707C> 1 330> 
EDITOR::DELETE-SELECTION-MODE NIL EDITOR::LOGICAL-CHARACTERS #<EQUALP Hash 
Table{20} 20BCA45C> EDITOR::EXECUTE-MODE NIL EDITOR::ECHO-MODE NIL 
EDITOR::PLIST NIL EDITOR::INTERRUPT-KEYS (#S(SYSTEM::GESTURE-SPEC SYSTEM::DATA 
103 SYSTEM::MODIFIERS 2) #S(SYSTEM::GESTURE-SPEC SYSTEM::DATA 71 
SYSTEM::MODIFIERS 2)) EDITOR::STYLE :EMACS EDITOR::POINT-ALWAYS-VISIBLE T 
EDITOR::SPARE NIL)

Binding frame:
  CAPI::*USE-ACCELERATORS* : T

Binding frame:
  CAPI-WIN32-LIB::*ALT-IS-META-KEY* : T

Binding frame:
  ORG.TFEB.LW-COMMANDS::*PACKAGE-STACK* : NIL

Catch frame: #:CATCHER1774

Call to (HARLEQUIN-COMMON-LISP:SUBFUNCTION MP::PROCESS-SG-FUNCTION 
MP::INITIALIZE-PROCESS-STACK) (offset 347)
  MP::IGNORED : :DONT-KNOW

Call to SYSTEM::%%FIRST-CALL-TO-STACK (offset 40)


SYSTEM::%%FIRST-CALL-TO-STACK
T




From mb at bese.it  Fri Apr  2 10:23:11 2004
From: mb at bese.it (Marco Baringer)
Date: Fri, 2 Apr 2004 12:23:11 +0200
Subject: [Bese-devel] Compilation under LW
In-Reply-To: <1080841935.406c56cfd7cea@secure.netzone.ch>
Message-ID: <BE22E029-848F-11D8-926D-000393599076@bese.it>

On Gioved?, apr 1, 2004, at 19:52 Europe/Rome, ng at stamov.ch wrote:

> Hello,
>
> today I discovered UCW and tried to build it. I used for that LW 4.3 on
> Windows using directly the tarbal of the source repository (currently 
> I have
> no access to any *nix and to arch) in the hope, that the sources 
> visible in
> the source tree would work without the need to apply patches. 
> Everything
> (arnesi, yacml, fiveam, portableaserve) compiles (and runs without 
> errors all
> test suites) until I start loading the :ucw system. When it comes to 
> the
> componens module I get the same error for all sources using 
> "defaction".
>
> Can someone help?

lispworks is not an officially supported platform (i don't have a copy 
of lispworks i can test things on), so you're somewhat on your own here.

the only thing i was able to glean from the backtrace is that the error 
is occuring when trying to cps transform a setf of a class accessor, 
but i don't really know what to do. is there a smaller test case you 
can come up with which breaks the cps tranformer?

--
Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen




From mb at bese.it  Sat Apr  3 11:28:29 2004
From: mb at bese.it (Marco Baringer)
Date: Sat, 3 Apr 2004 13:28:29 +0200
Subject: [Bese-devel] Re: more feedback
In-Reply-To: <m265cifcu3.fsf@tnuctip.rychter.com>
Message-ID: <07CC99BB-8562-11D8-926D-000393599076@bese.it>

On Venerd?, apr 2, 2004, at 20:34 Europe/Rome, Jan Rychter wrote:

> I've updated ucw and yaclml to the latest versions.
>
> Hmm. interesting. I have figured out at least one cause of my problems:
> I have configured my Apache as:
>
>   <Location />
>   SetHandler lisp-handler
>   </Location>

ucw assumes (implicitly) that the only requests it will get are 
requests it should handle, it doesn't know how to serve "regular" files 
and i don't really think i want to teach it to. though i may need to at 
least teach aserve to distinguish.

you'll notice that the recent entry points are all mapped to urls 
ending in ".ucw", this not to remind everyone that they're using ucw, 
this is so that you can do

<LocationMatch "\.ucw$">
   SetHandler lisp-handler
</LocationMatch>

And let apache deal with serving icons, static files and style sheets.

> BTW, a quick manual of how to deal with crashed/broken UCW sessions
> would be extremely helpful. How do you do it? I feel major pain having
> to manually kill my *inferior-lisp*, *slime-repl* and quite often also
> *sldb* buffers along with my lisp...

i generally don't kill those. although adding a slime-quit function to 
slime wouldn't be a bad idea.

i usually start ucw from the terminal and then immediatly attach a 
slime to it. (i've even got a script which starts ucw, starts a slime 
server and then does a emacsclient -n -e '(slime-connect ...)', maybe 
i'll put this script into the main repo). When things go wrong i use 
M-x slime-list-threads to attach a debugger to the proper thread, i try 
and figure out what went wrong and either abort the request via the 
server-error restart, or re-call the action via the retry restart.

of course, this is what i _would_ do, at the moment it seems that my 
slime-attach-debugger code is broken. :(

--
Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen




From ats at acm.org  Tue Apr  6 00:56:07 2004
From: ats at acm.org (Alan Shutko)
Date: Mon, 05 Apr 2004 19:56:07 -0500
Subject: [Bese-devel] Typo in suite.lisp
Message-ID: <87lll9divs.fsf@wesley.springies.com>

Unknown misspelled in make-suite.  Sorry I'm sending in a patch, but
setting up a publicly available arch archive for a one-byte change
seemed excessive.

--- orig/src/suite.lisp
+++ mod/src/suite.lisp
@@ -11,7 +11,7 @@
 	  for in-suite = (get-test i)
 	  do (progn
 	       (when (null in-suite)
-		 (cerror "Create a new suite named ~A." "Unkown suite ~A." i)
+		 (cerror "Create a new suite named ~A." "Unknown suite ~A." i)
 		 (setf (get-test in-suite) (make-suite in-suite)
 		       in-suite (get-test in-suite)))
 	       (setf (gethash name (tests in-suite)) suite)))

-- 
Alan Shutko <ats at acm.org> - I am the rocks.
If you plant bird seed, what do you get?



From mb at bese.it  Tue Apr  6 14:43:25 2004
From: mb at bese.it (Marco Baringer)
Date: Tue, 6 Apr 2004 16:43:25 +0200
Subject: [Bese-devel] Typo in suite.lisp
In-Reply-To: <87lll9divs.fsf@wesley.springies.com>
Message-ID: <C24F8121-87D8-11D8-9DDC-000393599076@bese.it>

On Marted?, apr 6, 2004, at 02:56 Europe/Rome, Alan Shutko wrote:

> Unknown misspelled in make-suite.  Sorry I'm sending in a patch, but
> setting up a publicly available arch archive for a one-byte change
> seemed excessive.

applied. thanks.

--
Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen




From mb at bese.it  Tue Apr  6 15:04:39 2004
From: mb at bese.it (Marco Baringer)
Date: Tue, 6 Apr 2004 17:04:39 +0200
Subject: [Bese-devel] Typo in suite.lisp
In-Reply-To: <C24F8121-87D8-11D8-9DDC-000393599076@bese.it>
Message-ID: <B9B04CB1-87DB-11D8-9DDC-000393599076@bese.it>


there was another bug right next to that typo. we were creating a suite 
named NIL, no matter what you'd specified as the IN suite.

I've uploaded fiveam 1.2.2 which contains these fixes.

if you're using 1.1.X you can grab just this patch, it's called 
FiveAM--dev--1.2--patch-5

--
Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen




From jan at rychter.com  Tue Apr  6 20:49:04 2004
From: jan at rychter.com (Jan Rychter)
Date: Tue, 06 Apr 2004 13:49:04 -0700
Subject: [Bese-devel] Re: more feedback
References: <mailman.209.1080991512.19196.bese-devel@common-lisp.net>
Message-ID: <m23c7gygqn.fsf@tnuctip.rychter.com>

>>>>> "Marco" == Marco Baringer <mb at bese.it>:
[...]
 >> BTW, a quick manual of how to deal with crashed/broken UCW sessions
 >> would be extremely helpful. How do you do it? I feel major pain
 >> having to manually kill my *inferior-lisp*, *slime-repl* and quite
 >> often also *sldb* buffers along with my lisp...

 Marco> i generally don't kill those. although adding a slime-quit
 Marco> function to slime wouldn't be a bad idea.

 Marco> i usually start ucw from the terminal and then immediatly attach
 Marco> a slime to it. (i've even got a script which starts ucw, starts
 Marco> a slime server and then does a emacsclient -n -e '(slime-connect
 Marco> ...)', maybe i'll put this script into the main repo). When
 Marco> things go wrong i use M-x slime-list-threads to attach a
 Marco> debugger to the proper thread, i try and figure out what went
 Marco> wrong and either abort the request via the server-error restart,
 Marco> or re-call the action via the retry restart.

 Marco> of course, this is what i _would_ do, at the moment it seems
 Marco> that my slime-attach-debugger code is broken. :(

I still haven't gotten UCW to run. I think I'm trying to get too many
buggy components to work together, which results in debugging too many
things at once (e.g. SLIME support for threads is shaky).

I am still hitting a problem, where UCW services ONE request and then
spins in a busy loop having printed "[3290272773] Reaping dead
sessions."

I think I have to figure out a way to run a subset of UCW, without the
debugging functionality and the SLIME interface, just with a simple
print-based logger. Otherwise I won't get very far.

Has anyone gotten UCW to work with CMUCL and mod_lisp?

--J.


From chris at iBankTech.NET  Mon Apr 12 00:31:57 2004
From: chris at iBankTech.NET (Chris Capel)
Date: Sun, 11 Apr 2004 19:31:57 -0500
Subject: [Bese-devel] Getting up UCW
Message-ID: <AC4E9FFE068E2147A9E0568EB7A94D2C5CDF@ibt-server1.iBankTech.NET>

Using SBCL 0.8.8, I followed these steps:

1. Unpacked UCW 0.2 into ~/ucw
2. Added
   (require 'asdf)
   (pushnew "~/ucw/systems/" asdf:*central-registry*)
to my .sbclrc file.
3. Typed (load "ucw/examples/run-examples-mod-lisp") into a new sbcl toplevel.

I got this message after much compiling:

-----------------------------------
compilation aborted because of input error:
  READ failure in COMPILE-FILE:
    READER-ERROR at 819 (line 23, column 67) on #<FILE-STREAM
                                                  for "file \"/home/chris/ucw/src/rerl/request-loop-error.lisp\""
                                                  {9237FA9}>:
The symbol "FRAME-LOCALS" is not external in the SWANK package.

; /home/chris/ucw/src/rerl/request-loop-error.fasl written
; compilation finished in 0:00:00
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {96E9D41}> on
   #<CL-SOURCE-FILE "request-loop-error" {96E9E21}>.

debugger invoked on a ASDF:COMPILE-FAILED in thread 7244:
  erred while invoking #<COMPILE-OP NIL {96E9D41}> on
  #<CL-SOURCE-FILE "request-loop-error" {96E9E21}>

You can type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY   ] Retry performing #<ASDF:COMPILE-OP NIL {96E9D41}> on
                #<ASDF:CL-SOURCE-FILE "request-loop-error" {96E9E21}>.
  1: [ACCEPT  ] Continue, treating #<ASDF:COMPILE-OP NIL {96E9D41}> on
                #<ASDF:CL-SOURCE-FILE "request-loop-error" {96E9E21}> as having
                been successful.
  2: [ABORT   ] Reduce debugger level (leaving debugger, returning to toplevel).
  3: [TOPLEVEL] Restart at toplevel READ/EVAL/PRINT loop.
((ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
 #<unavailable argument>
 #<unavailable argument>
 #<ASDF:COMPILE-OP NIL {96E9D41}>
 #<ASDF:CL-SOURCE-FILE "request-loop-error" {96E9E21}>)
------------------------------

Changing the line in question to use two colons fixed the problem. I was able to compile and get "Example Server Running".

I confirmed that UCW was listening for mod_lisp connections on 3001. When I tried to access the example URL, however, I got a connection but no response. It's still sitting there waiting. When I exit sbcl, it stops waiting, but no page. Does the example provide a default response, or is the example just an example of getting the connection to the client open?

Chris Capel

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20040411/70484e62/attachment.html>

From jan at rychter.com  Tue Apr 13 02:56:17 2004
From: jan at rychter.com (Jan Rychter)
Date: Mon, 12 Apr 2004 19:56:17 -0700
Subject: [Bese-devel] Re: more feedback
In-Reply-To: <07CC99BB-8562-11D8-926D-000393599076@bese.it> (Marco
	Baringer's message of "Sat, 3 Apr 2004 13:28:29 +0200")
References: <07CC99BB-8562-11D8-926D-000393599076@bese.it>
Message-ID: <m2hdvolh66.fsf@tnuctip.rychter.com>

Ok. Having played with UCW during some airplane trips, I now know where
it gets stuck. It was looping forever in (defmethod find-frame ((s
standard-session) (frame-id string)) ...). Possibly because of some
problem with ITERATE. I have rewritten the iterate using loop:

(defmethod find-frame ((s standard-session) (frame-id string))
  "Returns the frame whose id is STEP-ID and eliminates any
  frames in the stack in the session after the frame. If no frame
  with that id exists the session's stack is left untouched and
  an error of type inexistent-frame-id is signaled."
  (loop with stack = (session.stack s)
	while stack
	when (string= (frame.id (car stack)) frame-id)
	do (progn (setf (session.stack s) stack)
		  (return-from find-frame (car stack)))
	else do (pop stack)
	finally (return-from find-frame nil)))

... which seems to have fixed the looping problem. Doing this enable me
to proceed smoothly to the next problem:

  ; Compiling LAMBDA (IT.BESE.YACLML::*TAL-ENVIROMENT* #:G16196):
  ; Compiling Top-Level Form:
  
  ; In: LAMBDA (IT.BESE.YACLML::*TAL-ENVIROMENT* #:G16196)
  
  ;   (SETF (PACKAGE #) #:G16197)
  ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL C::%FUNCALL
  ; ==>
  ;   #'(SETF PACKAGE)
  ; Warning: Undefined function (SETF PACKAGE) as the argument to FUNCTION
  ;
  ;   (PACKAGE
  ;    (IT.BESE.YACLML::LOOKUP-TAL-VARIABLE 'IT.BESE.UCW::COMPONENT
  ;                                         IT.BESE.YACLML::*TAL-ENVIROMENT*))
  ; Warning: Undefined function PACKAGE
  ; ;
  
  ; Warning: These functions are undefined:
  ;   (SETF PACKAGE) PACKAGE
  ;
  
  ; Compilation unit finished.
  ;   3 warnings
  
      1: (IT.BESE.UCW::HANDLE-REQUEST-ERROR #<UNDEFINED-FUNCTION {5A39CE2D}>)
      1: IT.BESE.UCW::HANDLE-REQUEST-ERROR returned NIL
  
  Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER:  the function PACKAGE is undefined.
     [Condition of type UNDEFINED-FUNCTION]
  
  Restarts:
    0: [RETRY       ] Retry rendering ucw/admin/admin-repl.tal.
    1:                Retry rendering the component.
    2:                Retry rendering ucw/tabbed-pane.tal.
    3:                Retry rendering the component.
    4:                Retry rendering ucw/admin/server-admin-interface.tal.
    5:                Retry rendering the component.
    6:                Clearout the response and retry calling the action.
    7: [SERVER-ERROR] Send the client an internal server error page.
    8: [DESTROY     ] Destroy the process
     
  Debug  (type H for help)
     
  (KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER "<error finding name>"
                                          #.(SYSTEM:INT-SAP #x3FFFC228)
                                          #<Alien (* #) at #x3FFFBEB0>
                                          (14))
  Source:
  ; File: target:code/interr.lisp
  (ERROR 'UNDEFINED-FUNCTION :FUNCTION-NAME NAME :NAME ...)
  0] 


This probably looks obvious to the author.

As usually, I will post and now wait a couple of days, perhaps the
problem will "resolve itself", before I go into more serious debugging
:-) (ah, the joys of open source)

BTW, I am finding out that following the control flow in CLOS
applications can be a major pain. I think I need to get myself better
instrumentation for this, surely there must be a better way than adding
(format t "In yadda yadda..") statements everywhere.

--J.



From mb at bese.it  Tue Apr 13 09:54:17 2004
From: mb at bese.it (Marco Baringer)
Date: Tue, 13 Apr 2004 11:54:17 +0200
Subject: [Bese-devel] Getting up UCW
In-Reply-To: <AC4E9FFE068E2147A9E0568EB7A94D2C5CDF@ibt-server1.iBankTech.NET>
	(Chris Capel's message of "Sun, 11 Apr 2004 19:31:57 -0500")
References: <AC4E9FFE068E2147A9E0568EB7A94D2C5CDF@ibt-server1.iBankTech.NET>
Message-ID: <m265c4p5iu.fsf@bese.it>

"Chris Capel" <chris at iBankTech.NET> writes:

> Changing the line in question to use two colons fixed the problem. I
> was able to compile and get "Example Server Running".
>
> I confirmed that UCW was listening for mod_lisp connections on
> 3001. When I tried to access the example URL, however, I got a
> connection but no response. It's still sitting there waiting. When I
> exit sbcl, it stops waiting, but no page. Does the example provide a
> default response, or is the example just an example of getting the
> connection to the client open?
>
> Chris Capel

the example urls should each "something" (either an error backtrace,
or the counter app or just a hello world example). which example did
you try?

there seem to be some real issues with the mod_lisp backend
mysteriously hanging, i'm going to put in a boat load of logging
statements and put up a 0.2.1 release (with updated slime interface,
update yaclml and a few minor bug fixes).

real soon now.

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen




From mb at bese.it  Wed Apr 14 10:53:12 2004
From: mb at bese.it (Marco Baringer)
Date: Wed, 14 Apr 2004 12:53:12 +0200
Subject: [Bese-devel] ucw logging
Message-ID: <m2oepubzl3.fsf@bese.it>


i just commited a ucw patch (ucw--dev--0.2--patch-35) with a bunch of
new logging statements. hopefully these should help understand what is
(and isn't doing). I have a deep understanding of how ucw works so I
don't know what's confusing and what isn't. If anybody would point out
some places where logging statements should go i'd be happy to add
them.

NB: this patch depends on a minor refactoring of the logger code is
arnesi (arnesi--dev--1.1--patch-13), so you'll either need to
manually update arnesi or, if your directory structure is the same as
the distributed tarballs, run the ucw/bin/update-tree.sh script.

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen




From mb at bese.it  Wed Apr 14 13:13:31 2004
From: mb at bese.it (Marco Baringer)
Date: Wed, 14 Apr 2004 15:13:31 +0200
Subject: [Bese-devel] more ucw patches
Message-ID: <m2zn9e66tg.fsf@bese.it>


i finally got around to fixing a problem with the option-dialog
component (ucw--dev--0.2--patch-36) you'll need to update yaclml as
well (yaclml--dev--0.4--patch-13) as some of the tal enviroment stuff
has changed.

some of these changes were made to macro generating macros, so it may
be a good idea to clean out all the compilied files before re-trying
ucw.

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen




From jan at rychter.com  Thu Apr 15 01:19:36 2004
From: jan at rychter.com (Jan Rychter)
Date: Wed, 14 Apr 2004 18:19:36 -0700
Subject: [Bese-devel] more ucw patches
References: <mailman.117.1081948228.32574.bese-devel@common-lisp.net>
Message-ID: <m2n05evxzr.fsf@tnuctip.rychter.com>

Hi,

Nice -- I did get a little further with this version.

You might want to fix the little typo:

diff -u /home/jwr/lisp/ucw-arch/ucw/src/admin/admin.lisp.original /home/jwr/lisp/ucw-arch/ucw/src/admin/admin.lisp
--- /home/jwr/lisp/ucw-arch/ucw/src/admin/admin.lisp.original	2004-04-14 18:18:47.000000000 -0700
+++ /home/jwr/lisp/ucw-arch/ucw/src/admin/admin.lisp	2004-04-14 18:18:47.000000000 -0700
@@ -25,7 +25,7 @@
      (room t))))
 
 (defcomponent server-admin-interface (tabbed-pane)
-  ((tabbed-pane :initarg :tabbed-pane :accessor adimn-interface.tabbed-pane))
+  ((tabbed-pane :initarg :tabbed-pane :accessor admin-interface.tabbed-pane))
   (:template "ucw/admin/server-admin-interface.tal" 
 	     (lambda (admin)
                admin)))

But I still can't get to the admin interface:

[UCW.ADMIN 3290977030] Accepted admin login.
[UCW.COMPONENT.ACTION 3290977030] Calling 'IT.BESE.UCW::SERVER-ADMIN-INTERFACE from NIL.
[UCW.RERL.SESSION-FRAME 3290977031] #<SIMPLE-ERROR {59EA8A05}> signled while serving action (#<Closure Over Function "LAMBDA (IT.BESE.YACLML::*TAL-ENVIROMENT* #:G8027)"
                                                           {58D51711}>).


Error in function APPEND:
   #<Function "DEFCOMPONENT SERVER-ADMIN-INTERFACE" {582E4DE9}> is not a list.
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [RETRY       ] Retry rendering the component.
  1:                Clearout the response and retry calling the action.
  2: [SERVER-ERROR] Send the client an internal server error page.
  3: [DESTROY     ] Destroy the process

Debug  (type H for help)

(APPEND #<Function "DEFCOMPONENT SERVER-ADMIN-INTERFACE" {582E4DE9}> ((#)))
Source:
; File: target:code/list.lisp
(ERROR "~S is not a list." (CAR TOP))
0] backtrace

0: (APPEND #<Function "DEFCOMPONENT SERVER-ADMIN-INTERFACE" {582E4DE9}> ((#)))
1: (IT.BESE.YACLML:EXTEND-ENVIROMENT
    #<Function "DEFCOMPONENT SERVER-ADMIN-INTERFACE" {582E4DE9}>
    ((#)))
2: ((METHOD IT.BESE.UCW::RENDER-ON NIL
     (IT.BESE.UCW::RESPONSE IT.BESE.UCW::SERVER-ADMIN-INTERFACE))
    #<unused-arg> #<unused-arg> #<unused-arg>
    #<IT.BESE.UCW::SERVER-ADMIN-INTERFACE {59EA7DFD}>)
3: ((METHOD IT.BESE.UCW::RENDER-ON (:AROUND)
     (IT.BESE.UCW::RESPONSE IT.BESE.UCW::STANDARD-COMPONENT))
    (#() . #(# #))
    #S(PCL::FAST-METHOD-CALL
         :FUNCTION #<Function # {582E4B19}>
         :PV-CELL NIL
         :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                :FUNCTION #
                                :PV-CELL NIL
                                :NEXT-METHOD-CALL NIL
                                :ARG-INFO #)
         :ARG-INFO (2))
    #<IT.BESE.UCW::MOD-LISP-RESPONSE {58D6615D}>
    #<IT.BESE.UCW::SERVER-ADMIN-INTERFACE {59EA7DFD}>)
4: (IT.BESE.UCW::SERVICE-ACTION
    #<Closure Over Function "LAMBDA (IT.BESE.YACLML::*TAL-ENVIROMENT* #:G8027)"
      {58D51711}>)
5: ((METHOD IT.BESE.UCW::SERVICE NIL
     (IT.BESE.UCW::STANDARD-SESSION-FRAME IT.BESE.UCW::REQUEST-CONTEXT))
    (#(0 3) . #(# #)) #<unused-arg>
    #<IT.BESE.UCW::STANDARD-SESSION-FRAME {58B91375}>
    #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
6: ("LAMBDA (#:G5932 #:G5933 #:G5934)" #<unused-arg> #<unused-arg>
    #<IT.BESE.UCW::STANDARD-SESSION-FRAME {58B91375}>
    #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
7: ((METHOD IT.BESE.UCW::SERVICE-ACTION-REQUEST NIL
     (IT.BESE.UCW::STANDARD-SESSION IT.BESE.UCW::REQUEST-CONTEXT))
    (#(0) . #()) #<unused-arg>
    #<IT.BESE.UCW::STANDARD-SESSION
      3 #<IT.BESE.UCW::STANDARD-SESSION-FRAME {58D73065}> {58B8E1B5}>
    #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
8: ((METHOD IT.BESE.UCW::SERVICE NIL
     (IT.BESE.UCW::STANDARD-SESSION IT.BESE.UCW::REQUEST-CONTEXT))
    (#() . #(#)) #<unused-arg>
    #<IT.BESE.UCW::STANDARD-SESSION
      3 #<IT.BESE.UCW::STANDARD-SESSION-FRAME {58D73065}> {58B8E1B5}>
    #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
9: ("LAMBDA (#:G5941 #:G5942 #:G5943)" #<unused-arg> #<unused-arg>
    #<IT.BESE.UCW::STANDARD-SESSION
      3 #<IT.BESE.UCW::STANDARD-SESSION-FRAME {58D73065}> {58B8E1B5}>
    #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
10: ((METHOD IT.BESE.UCW::SERVICE NIL
      (IT.BESE.UCW::STANDARD-APPLICATION IT.BESE.UCW::REQUEST-CONTEXT))
     (#(5 0 3 3) . #(#)) #<unused-arg>
     #<IT.BESE.UCW::STANDARD-APPLICATION /ucw/admin/ 4>
     #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
11: ("LAMBDA (#:G5935 #:G5936 #:G5937)" #<unused-arg> #<unused-arg>
     #<IT.BESE.UCW::STANDARD-APPLICATION /ucw/admin/ 4>
     #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
12: ((METHOD IT.BESE.UCW::HANDLE-REQUEST NIL
      (IT.BESE.UCW::STANDARD-SERVER IT.BESE.UCW::REQUEST
       IT.BESE.UCW::RESPONSE))
     (#() . #(# # #)) #<unused-arg>
     #<IT.BESE.UCW::STANDARD-SERVER IT.BESE.UCW::MOD-LISP-BACKEND 2 {58045A9D}>
     #<IT.BESE.UCW::MOD-LISP-REQUEST
       :RAW-URL "/ucw/admin/ucw-action-call.ucw?s=vcyYfkCzivpelsRKYbzzDTKsCuKVWbDEzskjJACw&f=TMEVzXVmcokPnevhWmJh&a=ABLLkQFpLx&VJOgECdgIH=admin&nFDDqjrhuw=admin">
     ...)
13: ("DEFMETHOD STARTUP-BACKEND (MOD-LISP-BACKEND)")
14: (ACL-COMPAT.MP::APPLY-WITH-BINDINGS
     #<Closure Over Function "DEFMETHOD STARTUP-BACKEND (MOD-LISP-BACKEND)"
       {58D6E829}>
     NIL
     NIL)
15: ("DEFUN PROCESS-PRESET")
16: ("DEFUN RESTART-PROCESS")

--J.


From chris at iBankTech.NET  Thu Apr 15 02:06:31 2004
From: chris at iBankTech.NET (Chris Capel)
Date: Wed, 14 Apr 2004 21:06:31 -0500
Subject: [Bese-devel] Arch archives not archiving
Message-ID: <AC4E9FFE068E2147A9E0568EB7A94D2C5CE7@ibt-server1.iBankTech.NET>

I used ViewArch to browse though the Arch UCW archive, but the latest patch I saw was patch 4 from march 4th. Is there something wrong with ViewArch? Should I use tls to access the repository instead?

Chris Capel
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20040414/53d193ee/attachment.html>

From mb at bese.it  Thu Apr 15 09:25:12 2004
From: mb at bese.it (Marco Baringer)
Date: Thu, 15 Apr 2004 11:25:12 +0200
Subject: [Bese-devel] ucw admin app
Message-ID: <m2ekqpzj7r.fsf@bese.it>


1) there was an issue with the TAL:INCULDE tag and the new tal
environment api, 2) the defcomponent api changed and i forgot to
update the admin api's code. both of these issues have been fixed,
you'll need to replay both yaclml and ucw (or just use the
update-tree script)

hopefully things should "just work," if they don't i'd appreciate logs
and back traces.

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen




From mb at bese.it  Thu Apr 15 09:52:54 2004
From: mb at bese.it (Marco Baringer)
Date: Thu, 15 Apr 2004 11:52:54 +0200
Subject: [Bese-devel] Arch archives not archiving
In-Reply-To: <AC4E9FFE068E2147A9E0568EB7A94D2C5CE7@ibt-server1.iBankTech.NET>
	(Chris Capel's message of "Wed, 14 Apr 2004 21:06:31 -0500")
References: <AC4E9FFE068E2147A9E0568EB7A94D2C5CE7@ibt-server1.iBankTech.NET>
Message-ID: <m21xmpzhxl.fsf@bese.it>

"Chris Capel" <chris at iBankTech.NET> writes:

> I used ViewArch to browse though the Arch UCW archive, but the
> latest patch I saw was patch 4 from march 4th. Is there something
> wrong with ViewArch? Should I use tls to access the repository
> instead?

hmm, neither bese-2004 at common-lisp.net nor ucw-2004 at common-lisp.net
are in ViewARCH, i'll see about fixing that, in the mean time you
could just tla [ar]browse these:

name                       location
bese-2004 at common-lisp.net  http://common-lisp.net/project/bese/bese-2004 at common-lisp.net
ucw-2004 at common-lisp.net   http://common-lisp.net/project/ucw/ucw-2004 at common-lisp.net

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen




From mb at bese.it  Thu Apr 15 10:07:47 2004
From: mb at bese.it (Marco Baringer)
Date: Thu, 15 Apr 2004 12:07:47 +0200
Subject: [Bese-devel] ucw + apache + mod_lisp
Message-ID: <m2n05dpn9o.fsf@bese.it>


i just added a file ucw/src/backend/mod-lisp-httpd13.conf, it
contains the part of my httd.conf file relevant to ucw. hopefully
this will help setting up mod-lisp.

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen




From asf at boinkor.net  Thu Apr 15 10:30:15 2004
From: asf at boinkor.net (Andreas Fuchs)
Date: Thu, 15 Apr 2004 12:30:15 +0200
Subject: [Bese-devel] Re: more feedback
In-Reply-To: <m2hdvolh66.fsf@tnuctip.rychter.com>
References: <07CC99BB-8562-11D8-926D-000393599076@bese.it>
	<m2hdvolh66.fsf@tnuctip.rychter.com>
Message-ID: <86k70ho7ns.wl%asf@boinkor.net>

On 2004-04-13, Jan Rychter <jan at rychter.com> wrote:
> Ok. Having played with UCW during some airplane trips, I now know
> where it gets stuck. It was looping forever in (defmethod find-frame
> ((s standard-session) (frame-id string)) ...). Possibly because of
> some problem with ITERATE. I have rewritten the iterate using loop:
>
> (defmethod find-frame ((s standard-session) (frame-id string))
> "Returns the frame whose id is STEP-ID and eliminates any
> frames in the stack in the session after the frame. If no frame
> with that id exists the session's stack is left untouched and
> an error of type inexistent-frame-id is signaled."
> (loop with stack = (session.stack s)
> 	while stack
> 	when (string= (frame.id (car stack)) frame-id)
> 	do (progn (setf (session.stack s) stack)
> 		  (return-from find-frame (car stack)))
> 	else do (pop stack)
> 	finally (return-from find-frame nil)))

perhaps it would make sense to use a more iterate-y variant of the
code (which looks like a literal translation of the WHILE form (-:

let's see...

(iterate
    (for stack on (session.stack s))
    (finding stack such-that (string= (frame.id (car stack)) frame-id)
                   into found-session-stack)
    (finally (when found-session-stack
	       (setf (session.stack s) found-session-stack)
	       (return (car found-session-stack)))))

should look better (and work, too). I'm looking forward to your
comments.

Cheers,
-- 
Andreas Fuchs, <asf at boinkor.net>, asf at jabber.at, antifuchs



From mb at bese.it  Thu Apr 15 16:53:16 2004
From: mb at bese.it (Marco Baringer)
Date: Thu, 15 Apr 2004 18:53:16 +0200
Subject: [Bese-devel] undefined applications and entry points
Message-ID: <m2brltb2tf.fsf@bese.it>


the latest ucw patch (ucw--dev--0.2--patch-43) removes the "drop into
debugger" action when you request a url for an existent application or
an inexistant entry point. the variable *debug-on-error* is ignored
(ie we always show the error page and finish handling the request),
now that the core rerl code more or less "works" this is a much more
helpful way of dealing with these errors.

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen




From jan at rychter.com  Thu Apr 15 19:50:45 2004
From: jan at rychter.com (Jan Rychter)
Date: Thu, 15 Apr 2004 12:50:45 -0700
Subject: [Bese-devel] ucw admin app
References: <mailman.162.1082020910.32574.bese-devel@common-lisp.net>
Message-ID: <m2pta9rpey.fsf@tnuctip.rychter.com>

>>>>> "Marco" == Marco Baringer <mb at bese.it> writes:
 Marco> 1) there was an issue with the TAL:INCULDE tag and the new tal
 Marco> environment api, 2) the defcomponent api changed and i forgot to
 Marco> update the admin api's code. both of these issues have been
 Marco> fixed, you'll need to replay both yaclml and ucw (or just use
 Marco> the update-tree script)

 Marco> hopefully things should "just work," if they don't i'd
 Marco> appreciate logs and back traces.

For some reason, I cannot get a version of yaclml that would include the
push-bindings function/methods. This obviously results in:

[UCW.RERL.SESSION-FRAME 3291045979] #<SIMPLE-WARNING {59884145}> signled while serving action (#<Closure Over Function "LAMBDA (IT.BESE.YACLML::*TAL-ENVIROMENT* #:G6882)"
                                                             {58439241}>).

; In: LAMBDA (IT.BESE.YACLML::*TAL-ENVIROMENT* #:G6924)

;   (IT.BESE.YACLML:PUSH-BINDING (LIST # #) IT.BESE.YACLML::*TAL-ENVIROMENT*)
; Warning: Undefined function IT.BESE.YACLML:PUSH-BINDING
[UCW.RERL.SESSION-FRAME 3291045979] #<SIMPLE-WARNING {59887875}> signled while serving action (#<Closure Over Function "LAMBDA (IT.BESE.YACLML::*TAL-ENVIROMENT* #:G6882)"
                                                             {58439241}>).
; ;

; Warning: This function is undefined:
;   IT.BESE.YACLML:PUSH-BINDING
;

; Compilation unit finished.
;   2 warnings

[UCW.RERL.SESSION-FRAME 3291045979] #<UNDEFINED-FUNCTION {598EE7C5}> signled while serving action (#<Closure Over Function "LAMBDA (IT.BESE.YACLML::*TAL-ENVIROMENT* #:G6882)"
                                                                 {58439241}>).

Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER:  the function IT.BESE.YACLML:PUSH-BINDING is undefined.
   [Condition of type UNDEFINED-FUNCTION]

Restarts:
  0: [RETRY       ] Retry rendering ucw/admin/admin-repl.tal.
  1:                Retry rendering the component.
  2:                Retry rendering ucw/tabbed-pane.tal.
  3:                Retry rendering the component.
  4:                Retry rendering ucw/admin/server-admin-interface.tal.
  5:                Retry rendering the component.
  6:                Clearout the response and retry calling the action.
  7: [SERVER-ERROR] Send the client an internal server error page.
  8: [DESTROY     ] Destroy the process

Debug  (type H for help)

(KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER "<error finding name>"
                                        #.(SYSTEM:INT-SAP #x3FFFBC70)
                                        #<Alien (* #) at #x3FFFB8F8>
                                        (14))
Source:
; File: target:code/interr.lisp
(ERROR 'UNDEFINED-FUNCTION :FUNCTION-NAME NAME :NAME ...)
0] 

I use the yaclml--dev--0.4 branch, it is up to patch-15 now and claims
to be up to date.

--J.


From mb at bese.it  Fri Apr 16 07:41:21 2004
From: mb at bese.it (Marco Baringer)
Date: Fri, 16 Apr 2004 09:41:21 +0200
Subject: [Bese-devel] ucw admin app
In-Reply-To: <m2pta9rpey.fsf@tnuctip.rychter.com> (Jan Rychter's message of
	"Thu, 15 Apr 2004 12:50:45 -0700")
References: <mailman.162.1082020910.32574.bese-devel@common-lisp.net>
	<m2pta9rpey.fsf@tnuctip.rychter.com>
Message-ID: <m2zn9cxtcu.fsf@bese.it>

Jan Rychter <jan at rychter.com> writes:

> For some reason, I cannot get a version of yaclml that would include the
> push-bindings function/methods. This obviously results in:

patch-13 replaces the push-binding method with thi more aptly named
(and correct) extend-environment method.

> I use the yaclml--dev--0.4 branch, it is up to patch-15 now and claims
> to be up to date.

patch-15 should have removed all final traces of push-binding and
replaced them with extend-environment as such you should _not_ see
push-binding in the code. My only doubt is that madly (and strangely)
a reference to push-binding has remained in a compilied file even
though the source has changed, could you try wiping all the compiled
files (yaclml and ucw) and rebuilding?

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen




From mb at bese.it  Fri Apr 16 10:52:03 2004
From: mb at bese.it (Marco Baringer)
Date: Fri, 16 Apr 2004 12:52:03 +0200
Subject: [Bese-devel] status of ucw on various implementations
Message-ID: <m2llkw6vqk.fsf@bese.it>


Supposedly UCW runs on SBCL, OpenMCL and CMUCL. let's check:

OpenMCL - ok (this is after all the main development platform)
SBCL/ppc single thread - ok.
SBCL/x86 - ??
CMUCL - no.

:(

i'd like to know what platforms ucw is (and isn't) running on. Since i
don't have cmucl available i can't personally deal with that
implementation. Does anybody with some spare time and cmucl care to
get ucw running on that implementation?

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen




From matley at muppetslab.org  Mon Apr 19 03:13:35 2004
From: matley at muppetslab.org (Luigi Panzeri aka matley)
Date: Mon, 19 Apr 2004 05:13:35 +0200
Subject: [Bese-devel] Installazione UncommonWeb
Message-ID: <20040419031335.GE2180@vulcano.ghislieri.it>

Con il cmucl della Gentoo (18e), la compilazione fallisce perche' manca il supporto per i gray-stream.

Allora mi sono buttato su sbcl (0.8.7) ma mi dava un errore su swank (ho un installazione di slime un po' broken).

Ho disinstallato slime. Ho rilanciato il load, ed e' andato a buon fine. aserve ascoltava sulla porta ma...

debugger invoked on a UNDEFINED-FUNCTION in thread 9474:
  The function HANDLE-REQUEST-ERROR is undefined.

You can type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [LOOP    ] :LOOP
  1: [CONTINUE] Continue anyway (skipping to toplevel read/eval/print loop).
  2: [QUIT    ] Quit SBCL (calling #'QUIT, killing the process).
((HANDLE-REQUEST (STANDARD-SERVER REQUEST RESPONSE))
 #<unavailable argument>
 #<unavailable argument>
 #<STANDARD-SERVER ASERVE-BACKEND 2 {A7E5409}>
 #<ASERVE-REQUEST {92D9831}>
 #<ASERVE-RESPONSE {9326591}>)
0]

il backtrace mi da:

0: (SB-INT:EVAL-IN-LEXENV
    2
    TRACE
    #S(SB-KERNEL:LEXENV
       :FUNS NIL
       :VARS NIL
       :BLOCKS NIL
       :TAGS NIL
       :TYPE-RESTRICTIONS NIL
       :LAMBDA NIL
       :CLEANUP NIL
       ...))[:EXTERNAL]
1: (SB-DEBUG::DEBUG-EVAL-PRINT 1 TRACE)[:EXTERNAL]
2: (SB-DEBUG::DEBUG-LOOP-FUN 0)[:EXTERNAL]
3: (SB-DEBUG:INTERNAL-DEBUG 0)[:EXTERNAL]
4: ("#'(LAMBDA NIL (LET # # ...))")
5: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX 1 #<FUNCTION "CLOSURE" {93280B5}>)[:EXTERNAL]
6: (INVOKE-DEBUGGER 1 #<UNDEFINED-FUNCTION {93280A1}>)[:EXTERNAL]
7: (ERROR 3 UNDEFINED-FUNCTION)[:EXTERNAL]
8: (SB-KERNEL::UNDEFINED-FUN-ERROR-HANDLER
    4
    #<unavailable argument>
    #.(SB-SYS:INT-SAP #X40374910)
    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X403745A0 :TYPE (*
                                                            (SB-ALIEN:STRUCT
                                                             SB-VM::OS-CONTEXT-T-STRUCT))>
    (78))[:EXTERNAL]
9: (SB-KERNEL:INTERNAL-ERROR
    2
    #.(SB-SYS:INT-SAP #X403745A0)
    #<unavailable argument>)[:EXTERNAL]
10: ("foreign function call land: ra=#x8056211")
11: ("foreign function call land: ra=#x805609D")
12: ("foreign function call land: ra=#x8051392")
13: ("foreign function call land: ra=#x8055D7B")
14: ((HANDLE-REQUEST (STANDARD-SERVER REQUEST RESPONSE))
     #<unavailable argument>
     #<unavailable argument>
     #<STANDARD-SERVER ASERVE-BACKEND 2 {A7E5409}>
     #<ASERVE-REQUEST {92D9831}>
     #<ASERVE-RESPONSE {9326591}>)
15: ((NET.ASERVE:PROCESS-ENTITY
      (NET.ASERVE:HTTP-REQUEST NET.ASERVE:COMPUTED-ENTITY))
     #<unavailable argument>
     #<unavailable argument>
     #<NET.ASERVE:HTTP-REQUEST {9100F89}>
     #<NET.ASERVE:COMPUTED-ENTITY {A488D79}>)
16: ((NET.ASERVE:HANDLE-REQUEST (NET.ASERVE:HTTP-REQUEST))
     #<unavailable argument>
     #<unavailable argument>
     #<NET.ASERVE:HTTP-REQUEST {9100F89}>)
17: (NET.ASERVE::PROCESS-CONNECTION
     #<ACL-COMPAT.SOCKET::CHUNKED-STREAM {A5D1769}>)
18: (NET.ASERVE::START-SIMPLE-SERVER)
19: ("XEP for START-SIMPLE-SERVER" 0)[:EXTERNAL]
20: ("varargs entry for NET.ASERVE:START"
     :PORT
     3001
     :HOST
     NIL
     :LISTENERS
     0
     :CHUNKING
     T
     :KEEP-ALIVE
     T
     :SERVER
     NIL
     :DEBUG
21: (SB-INT:EVAL-IN-LEXENV
     2
     (STARTUP-SERVER *DEFAULT-SERVER*)
     #S(SB-KERNEL:LEXENV
        :FUNS NIL
        :VARS NIL
        :BLOCKS NIL
        :TAGS NIL
        :TYPE-RESTRICTIONS NIL
        :LAMBDA NIL
        :CLEANUP NIL
        ...))[:EXTERNAL]
22: (SB-FASL::LOAD-AS-SOURCE
     3
     #<FILE-STREAM
       for "file \"/home/matley/ucw_0.2.0/examples/run-examples-aserve.lisp\""
       {9013109}>
     NIL
     NIL)[:EXTERNAL]
23: ("hairy arg processor for top level local call SB!FASL::INTERNAL-LOAD"
     #P"run-examples-aserve.lisp"
     #P"/home/matley/ucw_0.2.0/examples/run-examples-aserve.lisp"
     :ERROR
     NIL
     NIL
     :SOURCE)
24: ("hairy arg processor for top level local call SB!FASL::INTERNAL-LOAD"
     #P"run-examples-aserve.lisp"
     #P"/home/matley/ucw_0.2.0/examples/run-examples-aserve.lisp"
     :ERROR
     NIL
     NIL
     NIL)
25: (LOAD 1 "run-examples-aserve.lisp")[:EXTERNAL]
26: (SB-INT:EVAL-IN-LEXENV
     2
     (LOAD "run-examples-aserve.lisp")
     #S(SB-KERNEL:LEXENV
        :FUNS NIL
        :VARS NIL
        :BLOCKS NIL
        :TAGS NIL
        :TYPE-RESTRICTIONS NIL
        :LAMBDA NIL
        :CLEANUP NIL
        ...))[:EXTERNAL]
27: (SB-IMPL::TOPLEVEL-INIT 0)[:EXTERNAL]
28: ("FLET SB!IMPL::RESTART-LISP")



From matley at muppetslab.org  Mon Apr 19 05:21:16 2004
From: matley at muppetslab.org (Luigi Panzeri aka matley)
Date: Mon, 19 Apr 2004 07:21:16 +0200
Subject: [Bese-devel] Re: Installazione UncommonWeb
Message-ID: <20040419052116.GF2180@vulcano.ghislieri.it>

Il pacchetto Cmucl della gentoo al momento non funziona (ho avuto conferma anche su #lisp).

Ho reinstallato sbcl con il supporto per i threads, ma ora ho in
compilazione lo stesso problema che avevo con il cmucl:

compilation aborted because of input error:
  READ failure in COMPILE-FILE:
    READER-ERROR at 819 (line 23, column 67) on #<FILE-STREAM
                                                  for "file \"/home/matley/ucw_0.2.0/src/rerl/request-loop-error.lisp\""
                                                  {9706CE9}>:
The symbol "FRAME-LOCALS" is not external in the SWANK package.

; /home/matley/ucw_0.2.0/src/rerl/request-loop-error.fasl written
; compilation finished in 0:00:00
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {92777F1}> on
   #<CL-SOURCE-FILE "request-loop-error" {9277591}>.

debugger invoked on a ASDF:COMPILE-FAILED in thread 25977:
  erred while invoking #<COMPILE-OP NIL {92777F1}> on
  #<CL-SOURCE-FILE "request-loop-error" {9277591}>

You can type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY   ] Retry performing #<ASDF:COMPILE-OP NIL {92777F1}> on
                #<ASDF:CL-SOURCE-FILE "request-loop-error" {9277591}>.
  1: [ACCEPT  ] Continue, treating #<ASDF:COMPILE-OP NIL {92777F1}> on
                #<ASDF:CL-SOURCE-FILE "request-loop-error" {9277591}> as having
                been successful.
  2: [CONTINUE] Continue anyway (skipping to toplevel read/eval/print loop).
  3: [QUIT    ] Quit SBCL (calling #'QUIT, killing the process).
((ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
 #<unavailable argument>
 #<unavailable argument>
 #<ASDF:COMPILE-OP NIL {92777F1}>
 #<ASDF:CL-SOURCE-FILE "request-loop-error" {9277591}>)
0]

in backtrace:

0: ((ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
    #<unavailable argument>
    #<unavailable argument>
    #<ASDF:COMPILE-OP NIL {92777F1}>
    #<ASDF:CL-SOURCE-FILE "request-loop-error" {9277591}>)
1: ("#'(LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. ...) (DECLARE #) ...)"
    #<unavailable argument>
    #<unavailable argument>
    #<ASDF:COMPILE-OP NIL {92777F1}>
    #<ASDF:CL-SOURCE-FILE "request-loop-error" {9277591}>)
2: ("#'(LAMBDA NIL (LOOP ASDF::FOR # ...))")
3: (SB-C::%WITH-COMPILATION-UNIT 1 #<FUNCTION "CLOSURE" {95452ED}>)[:EXTERNAL]
4: ("varargs entry for ASDF:OPERATE" ASDF:LOAD-OP :UCW)
5: (SB-INT:EVAL-IN-LEXENV
    2
    (ASDF:OOS 'ASDF:LOAD-OP :UCW)
    #S(SB-KERNEL:LEXENV
       :FUNS NIL
       :VARS NIL
       :BLOCKS NIL
       :TAGS NIL
       :TYPE-RESTRICTIONS NIL
       :LAMBDA NIL
       :CLEANUP NIL
       ...))[:EXTERNAL]
6: (SB-FASL::LOAD-AS-SOURCE
    3
    #<FILE-STREAM
      for "file \"/home/matley/ucw_0.2.0/examples/run-examples-aserve.lisp\""
      {9044E49}>
    NIL
    NIL)[:EXTERNAL]
7: ("hairy arg processor for top level local call SB!FASL::INTERNAL-LOAD"
    #P"run-examples-aserve.lisp"
    #P"/home/matley/ucw_0.2.0/examples/run-examples-aserve.lisp"
    :ERROR
    NIL
    NIL
    :SOURCE)
8: ("hairy arg processor for top level local call SB!FASL::INTERNAL-LOAD"
    #P"run-examples-aserve.lisp"
    #P"/home/matley/ucw_0.2.0/examples/run-examples-aserve.lisp"
    :ERROR
    NIL
    NIL
    NIL)
9: (LOAD 1 "run-examples-aserve.lisp")[:EXTERNAL]
10: (SB-INT:EVAL-IN-LEXENV
     2
     (LOAD "run-examples-aserve.lisp")
     #S(SB-KERNEL:LEXENV
        :FUNS NIL
        :VARS NIL
        :BLOCKS NIL
        :TAGS NIL
        :TYPE-RESTRICTIONS NIL
        :LAMBDA NIL
        :CLEANUP NIL
        ...))[:EXTERNAL]
11: (SB-IMPL::TOPLEVEL-INIT 0)[:EXTERNAL]
12: ("FLET SB!IMPL::RESTART-LISP")



Domani provero' con i sorgenti presi con arch.

P.S. Scusate se non ho fatto reply al messaggio precedente, ma l'ho
perso.



From mb at bese.it  Thu Apr 22 18:24:40 2004
From: mb at bese.it (Marco Baringer)
Date: Thu, 22 Apr 2004 20:24:40 +0200
Subject: [Bese-devel] ucw snapshots
Message-ID: <m2ekqf3m6v.fsf@bese.it>


as of now we have nightly tarballs of ucw (with arnesi, yaclml and
cl-icu) at:

ftp://ftp.common-lisp.net/pub/project/ucw/snapshots/

these are arch working copies, so once you have one you can get by
with just tla replay. they also contain the =RELEASE-ID file with the
listings of the exact versions in the tarball.

these do not contain mod_lisp, portableaserve, slime or iterate. if
someone feels i should be distributing these libs along with ucw (and
wants multi-megabyte tarballs) i'll change this.

in other words: you no longer have any excuse not to hack ucw.

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen




From mb at bese.it  Thu Apr 29 09:58:00 2004
From: mb at bese.it (Marco Baringer)
Date: Thu, 29 Apr 2004 11:58:00 +0200
Subject: [Bese-devel] ucw component api (design question)
Message-ID: <m2hdv33y3b.fsf@bese.it>


[thinking out loud]

ucw is currently being used for a relativly simple document management
system, and it's working out nicely. however there is one issue i've
run into and it's what seaside calls "component threads."  let's take
the example of a simple document editing component embeded in a larger
document system app.

here's the use case i'm dealing with:

we have a menu style widget which displays a tree of options and
associate each item onthe menu with a particular action (save changes,
change state, view diffs, email alert, etc.) and the save changes 
action is implemented as something like this:

(defaction save-changes ((d document))
  (aif (verify-state d)
       (when (call 'confirm-save d)
         (update-document d)
         (call 'category-manager (document.category d)))
      (call 'document-invalid :bad-slots it)))

simple enough right? the "problem" (i'm not really sure it's a problem
yet) is that the calls to confirm-save and 'document-invalid replace
the entire "page" and not just the part of the page which was
dedicated to the document. you can see this effect when you inspect
the result of something in the admin repl.

what would be nice, for this particular situation, is that the calls
to CALL changed not the current component of the latest session-frame,
but only the component contained in the tabbed-pane which contains
this document (and the menu), ie i'd like the rest of the page to
remain the same (the tabbed pane should remain, as should the menu
both in their current state) and have the rendering of CONFIRM-SAVE to
appear only in the position of the page which previously contained the
DOCUMENT component.

what changes would this require? basically every component would need
to know one where, in the tree (or graph?) of components making up the
app's UI it was located. in this case we could rather simply change
the CALL macro to affect not the current-component but only the
call'ing component's place in this tree. however, this does not mean
we will never need the current "replace the entire UI with this
component" operation (so we'd end up with CALL and CALL* operators
which differed only in the graphical placing of the call'd component).

there are some issues:

1) as far as rendering goes we now need to distinguish components
   which are "embeddable" (and therefore don't produce an entire valid
   html doucment), with "root" components (which produce the html,
   head and body tags. it's simple enough to turn an embeddable
   component into a root component, so maybe this isn't as big an
   issue as it looks.

2) is a simple container/contained component relationship enough or
   do we something more general? 

3) am i just confusing the rendering of components (the graphical
   presentaton of a ui) with the control flow of an app? if so, hat
   would be a "good" solution to this?

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen