[Bese-devel] Compilation under LW
ng at stamov.ch
ng at stamov.ch
Thu Apr 1 17:52:15 UTC 2004
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
More information about the bese-devel
mailing list