From: ·············@gmail.com
Subject: Debugging in Slime
Date: Sun, 22 Jun 2008 19:42:19 +0000
Message-ID: <121dc457-a3c8-4c24-852c-418ad87f2a40@25g2000hsx.googlegroups.com> Hi I am using Slime and Clisp . while I was playing with some
downloaded lisp files, I run into an error raising undefined function
error and face with an debugging page. Do you know how to find the
corresponding *.lisp file raising this error? I will be much
appreciated to your help, thanks a lot.
the regarding error page is:
EVAL: undefined function (SETF OBJECT-NAME)
[Condition of type SYSTEM::SIMPLE-UNDEFINED-FUNCTION]
Restarts:
0: [CONTINUE] Retry
1: [STORE-VALUE] You may input a new value for (FDEFINITION '(SETF
OBJECT-NAME)).
2: [USE-VALUE] You may input a value to be used instead of
(FDEFINITION '(SETF OBJECT-NAME)).
3: [ABORT] Abort handling SLIME request.
Backtrace:
0: frame binding variables (~ = dynamically):
| ~ SYSTEM::*FASOUTPUT-STREAM* <--> NIL
1: EVAL frame for form ((SETF OBJECT-NAME) I #:G2253)
2: EVAL frame for form (LET* ((#1=#:G2253 BODY)) ((SETF OBJECT-NAME)
I #1#))
3: EVAL frame for form (WHEN (AND BODY (NULL (OBJECT-NAME BODY)))
(LET* ((#1=#:G2253 BODY)) ((SETF OBJECT-NAME) I #1#)))
4: EVAL frame for form (LET ((I (+ 1 (POSITION AGENT (ENVIRONMENT-
AGENTS ENV)))) (BODY (AGENT-BODY AGENT))) (LET* ((#1=#:G2250 AGENT)
(#2=#:G2251 I)) (SYSTEM::%STRUCTURE-STORE 'AGENT #1# 6 #2#)) (WHEN
(AND BODY (NULL (OBJECT-NAME BODY))) (LET* ((#3=#:G2253 BODY)) ((SETF
OBJECT-NAME) I #3#))))
5: EVAL frame for form (WHEN (NULL (AGENT-NAME AGENT)) (LET ((I (+ 1
(POSITION AGENT (ENVIRONMENT-AGENTS ENV)))) (BODY (AGENT-BODY AGENT)))
(LET* ((#1=#:G2250 AGENT) (#2=#:G2251 I)) (SYSTEM::%STRUCTURE-STORE
'AGENT #1# 6 #2#)) (WHEN (AND BODY (NULL (OBJECT-NAME BODY))) (LET*
((#3=#:G2253 BODY)) ((SETF OBJECT-NAME) I #3#)))))
6: EVAL frame for form (TAGBODY #1=#:G2248 (IF (ENDP #2=#:G2247) (GO
#3=#:G2249)) (SETQ AGENT (CAR #2#)) (WHEN (NULL (AGENT-NAME AGENT))
(LET ((I (+ 1 (POSITION AGENT (ENVIRONMENT-AGENTS ENV)))) (BODY (AGENT-
BODY AGENT))) (LET* ((#4=#:G2250 AGENT) (#5=#:G2251 I)) (SYSTEM::
%STRUCTURE-STORE 'AGENT #4# 6 #5#)) (WHEN (AND BODY (NULL (OBJECT-NAME
BODY))) (LET* ((#6=#:G2253 BODY)) ((SETF OBJECT-NAME) I #6#))))) (SETQ
#2# (CDR #2#)) (GO #1#) #3# (RETURN-FROM NIL NIL))
7: EVAL frame for form (LET* ((#1=#:G2247 (ENVIRONMENT-AGENTS ENV))
(AGENT NIL)) (DECLARE (LIST #1#)) (TAGBODY #2=#:G2248 (IF (ENDP #1#)
(GO #3=#:G2249)) (SETQ AGENT (CAR #1#)) (WHEN (NULL (AGENT-NAME
AGENT)) (LET ((I (+ 1 (POSITION AGENT (ENVIRONMENT-AGENTS ENV))))
(BODY (AGENT-BODY AGENT))) (LET* ((#4=#:G2250 AGENT) (#5=#:G2251 I))
(SYSTEM::%STRUCTURE-STORE 'AGENT #4# 6 #5#)) (WHEN (AND BODY (NULL
(OBJECT-NAME BODY))) (LET* ((#6=#:G2253 BODY)) ((SETF OBJECT-NAME) I
#6#))))) (SETQ #1# (CDR #1#)) (GO #2#) #3# (RETURN-FROM NIL NIL)))
8: EVAL frame for form (BLOCK NIL (LET* ((#1=#:G2247 (ENVIRONMENT-
AGENTS ENV)) (AGENT NIL)) (DECLARE (LIST #1#)) (TAGBODY #2=#:G2248 (IF
(ENDP #1#) (GO #3=#:G2249)) (SETQ AGENT (CAR #1#)) (WHEN (NULL (AGENT-
NAME AGENT)) (LET ((I (+ 1 (POSITION AGENT (ENVIRONMENT-AGENTS ENV))))
(BODY (AGENT-BODY AGENT))) (LET* ((#4=#:G2250 AGENT) (#5=#:G2251 I))
(SYSTEM::%STRUCTURE-STORE 'AGENT #4# 6 #5#)) (WHEN (AND BODY (NULL
(OBJECT-NAME BODY))) (LET* ((#6=#:G2253 BODY)) ((SETF OBJECT-NAME) I
#6#))))) (SETQ #1# (CDR #1#)) (GO #2#) #3# (RETURN-FROM NIL NIL))))
9: APPLY frame for call (INITIALIZE-AGENT-NAMES '#<VACUUM-WORLD;
Step: 0, Agents: [1 = 0]>)
10: EVAL frame for form (INITIALIZE-AGENT-NAMES ENV)
11: EVAL frame for form (PROGN (INITIALIZE-AGENT-NAMES ENV) (LET*
((#1=#:G2445 ENV) (#2=#:G2446 T)) (SYSTEM::%STRUCTURE-STORE
'ENVIRONMENT #1# 5 #2#)) ENV)
12: APPLY frame for call (:LAMBDA '#<VACUUM-WORLD; Step: 0, Agents:
[1 = 0]>)
13: EVAL frame for form ((LAMBDA #1=(ENV) (DECLARE (SYSTEM::SOURCE
(#1# #2=(DECLARE (IGNORABLE ENV)) (BLOCK INITIALIZE #3=(INITIALIZE-
AGENT-NAMES ENV) (SETF (ENVIRONMENT-INITIALIZED ENV) T) . #4=(ENV)))))
#2# (PROGN #3# (LET* ((#5=#:G2445 ENV) (#6=#:G2446 T)) (SYSTEM::
%STRUCTURE-STORE 'ENVIRONMENT #5# 5 #6#)) . #4#)) #:G2444)
14: EVAL frame for form (SYSTEM::FUNCTION-MACRO-LET ((CALL-NEXT-
METHOD (#1=(&REST CLOS::NEW-ARGS) (DECLARE (SYSTEM::SOURCE (#1# .
#2=((IF CLOS::NEW-ARGS (IF (EVAL-WHEN (EVAL) T) (CLOS::%CALL-NEXT-
METHOD #3=#:G2442 #4=#:G2443 (LIST . #5=(#6=#:G2444)) CLOS::NEW-ARGS)
(IF #4# (APPLY #4# CLOS::NEW-ARGS) (APPLY #'CLOS::%NO-NEXT-METHOD #3#
CLOS::NEW-ARGS))) (IF #4# (FUNCALL #4# . #5#) (CLOS::%NO-NEXT-METHOD
#3# . #5#))))))) . #2#) (#7=(&REST CLOS::NEW-ARG-EXPRS) (DECLARE
(SYSTEM::SOURCE (#7# . #8=((IF CLOS::NEW-ARG-EXPRS (LIST 'IF '(EVAL-
WHEN (EVAL) T) (LIST 'CLOS::%CALL-NEXT-METHOD '#3# '#4# (LIST 'LIST
'#6#) (CONS 'LIST CLOS::NEW-ARG-EXPRS)) (LIST 'IF '#4# (LIST* 'FUNCALL
'#4# CLOS::NEW-ARG-EXPRS) (LIST* 'CLOS::%NO-NEXT-METHOD '#3# CLOS::NEW-
ARG-EXPRS))) (LIST 'IF '#4# (LIST 'FUNCALL '#4# '#6#) (LIST 'CLOS::%NO-
NEXT-METHOD '#3# '#6#))))))) . #8#)) (NEXT-METHOD-P (NIL (DECLARE
(SYSTEM::SOURCE (NIL . #9=(#4#)))) . #9#) (NIL (DECLARE
(SYSTEM::SOURCE (NIL . #10=('#4#)))) . #10#))) ((LAMBDA #11=(ENV)
(DECLARE (SYSTEM::SOURCE (#11# #12=(DECLARE (IGNORABLE ENV)) (BLOCK
INITIALIZE #13=(INITIALIZE-AGENT-NAMES ENV) (SETF (ENVIRONMENT-
INITIALIZED ENV) T) . #14=(ENV))))) #12# (PROGN #13# (LET*
((#15=#:G2445 ENV) (#16=#:G2446 T)) (SYSTEM::%STRUCTURE-STORE
'ENVIRONMENT #15# 5 #16#)) . #14#)) . #5#))
15: APPLY frame for call (:LAMBDA 'NIL '#<VACUUM-WORLD; Step: 0,
Agents: [1 = 0]>)
16: EVAL frame for form (FUNCALL #:G2505 #:G2506)
17: EVAL frame for form (IF #1=#:G2505 (FUNCALL #1# . #2=(#:G2506))
(CLOS::%NO-NEXT-METHOD #:G2504 . #2#))
18: EVAL frame for form (IF CLOS::NEW-ARGS (IF (EVAL-WHEN (EVAL) T)
(CLOS::%CALL-NEXT-METHOD #1=#:G2504 #2=#:G2505 (LIST . #3=(#:G2506))
CLOS::NEW-ARGS) (IF #2# (APPLY #2# CLOS::NEW-ARGS) (APPLY #'CLOS::%NO-
NEXT-METHOD #1# CLOS::NEW-ARGS))) (IF #2# (FUNCALL #2# . #3#) (CLOS::
%NO-NEXT-METHOD #1# . #3#)))
19: APPLY frame for call (CALL-NEXT-METHOD)
20: EVAL frame for form (CALL-NEXT-METHOD)
21: EVAL frame for form (UNLESS (ENVIRONMENT-INITIALIZED ENV) (LET*
((#1=#:G2507 ENV) (#2=#:G2508 (MAKE-ARRAY (GRID-ENVIRONMENT-SIZE
ENV) :INITIAL-ELEMENT 'NIL))) (SYSTEM::%STRUCTURE-STORE 'GRID-
ENVIRONMENT #1# 8 #2#)) (PARSE-SPECS ENV (GRID-ENVIRONMENT-ASPEC ENV))
(PARSE-SPECS ENV (GRID-ENVIRONMENT-BSPEC ENV)) (PARSE-SPECS ENV (GRID-
ENVIRONMENT-CSPEC ENV)) (CALL-NEXT-METHOD))
22: APPLY frame for call (:LAMBDA '#<VACUUM-WORLD; Step: 0, Agents:
[1 = 0]>)
23: EVAL frame for form ((LAMBDA #1=(ENV) (DECLARE (SYSTEM::SOURCE
(#1# #2=(DECLARE (IGNORABLE ENV)) (BLOCK INITIALIZE (UNLESS
#3=(ENVIRONMENT-INITIALIZED ENV) (SETF (GRID-ENVIRONMENT-GRID ENV)
#4=(MAKE-ARRAY (GRID-ENVIRONMENT-SIZE ENV) :INITIAL-ELEMENT 'NIL)) .
#5=((PARSE-SPECS ENV (GRID-ENVIRONMENT-ASPEC ENV)) (PARSE-SPECS ENV
(GRID-ENVIRONMENT-BSPEC ENV)) (PARSE-SPECS ENV (GRID-ENVIRONMENT-CSPEC
ENV)) (CALL-NEXT-METHOD))))))) #2# (UNLESS #3# (LET* ((#6=#:G2507 ENV)
(#7=#:G2508 #4#)) (SYSTEM::%STRUCTURE-STORE 'GRID-ENVIRONMENT #6# 8
#7#)) . #5#)) #:G2506)
24: EVAL frame for form (SYSTEM::FUNCTION-MACRO-LET ((CALL-NEXT-
METHOD (#1=(&REST CLOS::NEW-ARGS) (DECLARE (SYSTEM::SOURCE (#1# .
#2=((IF CLOS::NEW-ARGS (IF (EVAL-WHEN (EVAL) T) (CLOS::%CALL-NEXT-
METHOD #3=#:G2504 #4=#:G2505 (LIST . #5=(#6=#:G2506)) CLOS::NEW-ARGS)
(IF #4# (APPLY #4# CLOS::NEW-ARGS) (APPLY #'CLOS::%NO-NEXT-METHOD #3#
CLOS::NEW-ARGS))) (IF #4# (FUNCALL #4# . #5#) (CLOS::%NO-NEXT-METHOD
#3# . #5#))))))) . #2#) (#7=(&REST CLOS::NEW-ARG-EXPRS) (DECLARE
(SYSTEM::SOURCE (#7# . #8=((IF CLOS::NEW-ARG-EXPRS (LIST 'IF '(EVAL-
WHEN (EVAL) T) (LIST 'CLOS::%CALL-NEXT-METHOD '#3# '#4# (LIST 'LIST
'#6#) (CONS 'LIST CLOS::NEW-ARG-EXPRS)) (LIST 'IF '#4# (LIST* 'FUNCALL
'#4# CLOS::NEW-ARG-EXPRS) (LIST* 'CLOS::%NO-NEXT-METHOD '#3# CLOS::NEW-
ARG-EXPRS))) (LIST 'IF '#4# (LIST 'FUNCALL '#4# '#6#) (LIST 'CLOS::%NO-
NEXT-METHOD '#3# '#6#))))))) . #8#)) (NEXT-METHOD-P (NIL (DECLARE
(SYSTEM::SOURCE (NIL . #9=(#4#)))) . #9#) (NIL (DECLARE
(SYSTEM::SOURCE (NIL . #10=('#4#)))) . #10#))) ((LAMBDA #11=(ENV)
(DECLARE (SYSTEM::SOURCE (#11# #12=(DECLARE (IGNORABLE ENV)) (BLOCK
INITIALIZE (UNLESS #13=(ENVIRONMENT-INITIALIZED ENV) (SETF (GRID-
ENVIRONMENT-GRID ENV) #14=(MAKE-ARRAY (GRID-ENVIRONMENT-SIZE
ENV) :INITIAL-ELEMENT 'NIL)) . #15=((PARSE-SPECS ENV (GRID-ENVIRONMENT-
ASPEC ENV)) (PARSE-SPECS ENV (GRID-ENVIRONMENT-BSPEC ENV)) (PARSE-
SPECS ENV (GRID-ENVIRONMENT-CSPEC ENV)) (CALL-NEXT-METHOD))))))) #12#
(UNLESS #13# (LET* ((#16=#:G2507 ENV) (#17=#:G2508 #14#)) (SYSTEM::
%STRUCTURE-STORE 'GRID-ENVIRONMENT #16# 8 #17#)) . #15#)) . #5#))
25: APPLY frame for call (:LAMBDA '#<COMPILED-CLOSURE #:COMPILED-
FORM-171-1-1> '#<VACUUM-WORLD; Step: 0, Agents: [1 = 0]>)
26: EVAL frame for form (INITIALIZE ENV)
27: EVAL frame for form (PROGN (INITIALIZE ENV) (DISPLAY-ENVIRONMENT
ENV) (BLOCK NIL (LET ((I 0) (#1=#:G2411 (ENVIRONMENT-MAX-STEPS ENV)))
(TAGBODY #2=#:G2412 (IF (>= I #1#) (GO #3=#:G2413)) (LET* ((#4=#:G2414
ENV) (#5=#:G2415 (+ (ENVIRONMENT-STEP #4#) 1))) (SYSTEM::%STRUCTURE-
STORE 'ENVIRONMENT #4# 2 #5#)) (BLOCK NIL (LET* ((#6=#:G2416
(ENVIRONMENT-AGENTS ENV)) (AGENT NIL)) (DECLARE (LIST #6#)) (TAGBODY
#7=#:G2417 (IF (ENDP #6#) (GO #8=#:G2418)) (SETQ AGENT (CAR #6#))
(LET* ((#9=#:G2419 AGENT) (#10=#:G2420 (GET-PERCEPT ENV AGENT)))
(SYSTEM::%STRUCTURE-STORE 'AGENT #9# 4 #10#)) (LET* ((#11=#:G2421
AGENT) (#12=#:G2422 (FUNCALL (AGENT-PROGRAM AGENT) (AGENT-PERCEPT
AGENT)))) (SYSTEM::%STRUCTURE-STORE 'AGENT #11# 5 #12#)) (SETQ #6#
(CDR #6#)) (GO #7#) #8# (RETURN-FROM NIL NIL)))) (UPDATE-FN ENV)
(BLOCK NIL (LET* ((#13=#:G2423 (ENVIRONMENT-AGENTS ENV)) (AGENT NIL))
(DECLARE (LIST #13#)) (TAGBODY #14=#:G2424 (IF (ENDP #13#) (GO
#15=#:G2425)) (SETQ AGENT (CAR #13#)) (LET* ((#16=#:G2426 AGENT)
(#17=#:G2427 (PERFORMANCE-MEASURE ENV AGENT))) (SYSTEM::%STRUCTURE-
STORE 'AGENT #16# 3 #17#)) (SETQ #13# (CDR #13#)) (GO #14#) #15#
(RETURN-FROM NIL NIL)))) (DISPLAY-ENVIRONMENT ENV) (WHEN (TERMINATION?
ENV) (RETURN-FROM NIL NIL)) (PSETQ I (1+ I)) (GO #2#) #3# (RETURN-FROM
NIL NIL)))) ENV) From: Rainer Joswig
Subject: Re: Debugging in Slime
Date: Sun, 22 Jun 2008 19:50:55 +0000
Message-ID: <joswig-74ECF0.21505522062008@news-europe.giganews.com> In article
<····································@25g2000hsx.googlegroups.com>,
·············@gmail.com wrote:
> Hi I am using Slime and Clisp . while I was playing with some
> downloaded lisp files, I run into an error raising undefined function
> error and face with an debugging page. Do you know how to find the
> corresponding *.lisp file raising this error? I will be much
> appreciated to your help, thanks a lot.
>
Well, I would look for the source of INITIALIZE-AGENT-NAMES .
Say, (ed 'INITIALIZE-AGENT-NAMES) or
m-. on the symbol.
Something like that.
> the regarding error page is:
>
> EVAL: undefined function (SETF OBJECT-NAME)
> [Condition of type SYSTEM::SIMPLE-UNDEFINED-FUNCTION]
>
> Restarts:
> 0: [CONTINUE] Retry
> 1: [STORE-VALUE] You may input a new value for (FDEFINITION '(SETF
> OBJECT-NAME)).
> 2: [USE-VALUE] You may input a value to be used instead of
> (FDEFINITION '(SETF OBJECT-NAME)).
> 3: [ABORT] Abort handling SLIME request.
>
> Backtrace:
> 0: frame binding variables (~ = dynamically):
> | ~ SYSTEM::*FASOUTPUT-STREAM* <--> NIL
> 1: EVAL frame for form ((SETF OBJECT-NAME) I #:G2253)
> 2: EVAL frame for form (LET* ((#1=#:G2253 BODY)) ((SETF OBJECT-NAME)
> I #1#))
> 3: EVAL frame for form (WHEN (AND BODY (NULL (OBJECT-NAME BODY)))
> (LET* ((#1=#:G2253 BODY)) ((SETF OBJECT-NAME) I #1#)))
> 4: EVAL frame for form (LET ((I (+ 1 (POSITION AGENT (ENVIRONMENT-
> AGENTS ENV)))) (BODY (AGENT-BODY AGENT))) (LET* ((#1=#:G2250 AGENT)
> (#2=#:G2251 I)) (SYSTEM::%STRUCTURE-STORE 'AGENT #1# 6 #2#)) (WHEN
> (AND BODY (NULL (OBJECT-NAME BODY))) (LET* ((#3=#:G2253 BODY)) ((SETF
> OBJECT-NAME) I #3#))))
> 5: EVAL frame for form (WHEN (NULL (AGENT-NAME AGENT)) (LET ((I (+ 1
> (POSITION AGENT (ENVIRONMENT-AGENTS ENV)))) (BODY (AGENT-BODY AGENT)))
> (LET* ((#1=#:G2250 AGENT) (#2=#:G2251 I)) (SYSTEM::%STRUCTURE-STORE
> 'AGENT #1# 6 #2#)) (WHEN (AND BODY (NULL (OBJECT-NAME BODY))) (LET*
> ((#3=#:G2253 BODY)) ((SETF OBJECT-NAME) I #3#)))))
> 6: EVAL frame for form (TAGBODY #1=#:G2248 (IF (ENDP #2=#:G2247) (GO
> #3=#:G2249)) (SETQ AGENT (CAR #2#)) (WHEN (NULL (AGENT-NAME AGENT))
> (LET ((I (+ 1 (POSITION AGENT (ENVIRONMENT-AGENTS ENV)))) (BODY (AGENT-
> BODY AGENT))) (LET* ((#4=#:G2250 AGENT) (#5=#:G2251 I)) (SYSTEM::
> %STRUCTURE-STORE 'AGENT #4# 6 #5#)) (WHEN (AND BODY (NULL (OBJECT-NAME
> BODY))) (LET* ((#6=#:G2253 BODY)) ((SETF OBJECT-NAME) I #6#))))) (SETQ
> #2# (CDR #2#)) (GO #1#) #3# (RETURN-FROM NIL NIL))
> 7: EVAL frame for form (LET* ((#1=#:G2247 (ENVIRONMENT-AGENTS ENV))
> (AGENT NIL)) (DECLARE (LIST #1#)) (TAGBODY #2=#:G2248 (IF (ENDP #1#)
> (GO #3=#:G2249)) (SETQ AGENT (CAR #1#)) (WHEN (NULL (AGENT-NAME
> AGENT)) (LET ((I (+ 1 (POSITION AGENT (ENVIRONMENT-AGENTS ENV))))
> (BODY (AGENT-BODY AGENT))) (LET* ((#4=#:G2250 AGENT) (#5=#:G2251 I))
> (SYSTEM::%STRUCTURE-STORE 'AGENT #4# 6 #5#)) (WHEN (AND BODY (NULL
> (OBJECT-NAME BODY))) (LET* ((#6=#:G2253 BODY)) ((SETF OBJECT-NAME) I
> #6#))))) (SETQ #1# (CDR #1#)) (GO #2#) #3# (RETURN-FROM NIL NIL)))
> 8: EVAL frame for form (BLOCK NIL (LET* ((#1=#:G2247 (ENVIRONMENT-
> AGENTS ENV)) (AGENT NIL)) (DECLARE (LIST #1#)) (TAGBODY #2=#:G2248 (IF
> (ENDP #1#) (GO #3=#:G2249)) (SETQ AGENT (CAR #1#)) (WHEN (NULL (AGENT-
> NAME AGENT)) (LET ((I (+ 1 (POSITION AGENT (ENVIRONMENT-AGENTS ENV))))
> (BODY (AGENT-BODY AGENT))) (LET* ((#4=#:G2250 AGENT) (#5=#:G2251 I))
> (SYSTEM::%STRUCTURE-STORE 'AGENT #4# 6 #5#)) (WHEN (AND BODY (NULL
> (OBJECT-NAME BODY))) (LET* ((#6=#:G2253 BODY)) ((SETF OBJECT-NAME) I
> #6#))))) (SETQ #1# (CDR #1#)) (GO #2#) #3# (RETURN-FROM NIL NIL))))
> 9: APPLY frame for call (INITIALIZE-AGENT-NAMES '#<VACUUM-WORLD;
> Step: 0, Agents: [1 = 0]>)
> 10: EVAL frame for form (INITIALIZE-AGENT-NAMES ENV)
> 11: EVAL frame for form (PROGN (INITIALIZE-AGENT-NAMES ENV) (LET*
> ((#1=#:G2445 ENV) (#2=#:G2446 T)) (SYSTEM::%STRUCTURE-STORE
> 'ENVIRONMENT #1# 5 #2#)) ENV)
> 12: APPLY frame for call (:LAMBDA '#<VACUUM-WORLD; Step: 0, Agents:
> [1 = 0]>)
> 13: EVAL frame for form ((LAMBDA #1=(ENV) (DECLARE (SYSTEM::SOURCE
> (#1# #2=(DECLARE (IGNORABLE ENV)) (BLOCK INITIALIZE #3=(INITIALIZE-
> AGENT-NAMES ENV) (SETF (ENVIRONMENT-INITIALIZED ENV) T) . #4=(ENV)))))
> #2# (PROGN #3# (LET* ((#5=#:G2445 ENV) (#6=#:G2446 T)) (SYSTEM::
> %STRUCTURE-STORE 'ENVIRONMENT #5# 5 #6#)) . #4#)) #:G2444)
> 14: EVAL frame for form (SYSTEM::FUNCTION-MACRO-LET ((CALL-NEXT-
> METHOD (#1=(&REST CLOS::NEW-ARGS) (DECLARE (SYSTEM::SOURCE (#1# .
> #2=((IF CLOS::NEW-ARGS (IF (EVAL-WHEN (EVAL) T) (CLOS::%CALL-NEXT-
> METHOD #3=#:G2442 #4=#:G2443 (LIST . #5=(#6=#:G2444)) CLOS::NEW-ARGS)
> (IF #4# (APPLY #4# CLOS::NEW-ARGS) (APPLY #'CLOS::%NO-NEXT-METHOD #3#
> CLOS::NEW-ARGS))) (IF #4# (FUNCALL #4# . #5#) (CLOS::%NO-NEXT-METHOD
> #3# . #5#))))))) . #2#) (#7=(&REST CLOS::NEW-ARG-EXPRS) (DECLARE
> (SYSTEM::SOURCE (#7# . #8=((IF CLOS::NEW-ARG-EXPRS (LIST 'IF '(EVAL-
> WHEN (EVAL) T) (LIST 'CLOS::%CALL-NEXT-METHOD '#3# '#4# (LIST 'LIST
> '#6#) (CONS 'LIST CLOS::NEW-ARG-EXPRS)) (LIST 'IF '#4# (LIST* 'FUNCALL
> '#4# CLOS::NEW-ARG-EXPRS) (LIST* 'CLOS::%NO-NEXT-METHOD '#3# CLOS::NEW-
> ARG-EXPRS))) (LIST 'IF '#4# (LIST 'FUNCALL '#4# '#6#) (LIST 'CLOS::%NO-
> NEXT-METHOD '#3# '#6#))))))) . #8#)) (NEXT-METHOD-P (NIL (DECLARE
> (SYSTEM::SOURCE (NIL . #9=(#4#)))) . #9#) (NIL (DECLARE
> (SYSTEM::SOURCE (NIL . #10=('#4#)))) . #10#))) ((LAMBDA #11=(ENV)
> (DECLARE (SYSTEM::SOURCE (#11# #12=(DECLARE (IGNORABLE ENV)) (BLOCK
> INITIALIZE #13=(INITIALIZE-AGENT-NAMES ENV) (SETF (ENVIRONMENT-
> INITIALIZED ENV) T) . #14=(ENV))))) #12# (PROGN #13# (LET*
> ((#15=#:G2445 ENV) (#16=#:G2446 T)) (SYSTEM::%STRUCTURE-STORE
> 'ENVIRONMENT #15# 5 #16#)) . #14#)) . #5#))
> 15: APPLY frame for call (:LAMBDA 'NIL '#<VACUUM-WORLD; Step: 0,
> Agents: [1 = 0]>)
> 16: EVAL frame for form (FUNCALL #:G2505 #:G2506)
> 17: EVAL frame for form (IF #1=#:G2505 (FUNCALL #1# . #2=(#:G2506))
> (CLOS::%NO-NEXT-METHOD #:G2504 . #2#))
> 18: EVAL frame for form (IF CLOS::NEW-ARGS (IF (EVAL-WHEN (EVAL) T)
> (CLOS::%CALL-NEXT-METHOD #1=#:G2504 #2=#:G2505 (LIST . #3=(#:G2506))
> CLOS::NEW-ARGS) (IF #2# (APPLY #2# CLOS::NEW-ARGS) (APPLY #'CLOS::%NO-
> NEXT-METHOD #1# CLOS::NEW-ARGS))) (IF #2# (FUNCALL #2# . #3#) (CLOS::
> %NO-NEXT-METHOD #1# . #3#)))
> 19: APPLY frame for call (CALL-NEXT-METHOD)
> 20: EVAL frame for form (CALL-NEXT-METHOD)
> 21: EVAL frame for form (UNLESS (ENVIRONMENT-INITIALIZED ENV) (LET*
> ((#1=#:G2507 ENV) (#2=#:G2508 (MAKE-ARRAY (GRID-ENVIRONMENT-SIZE
> ENV) :INITIAL-ELEMENT 'NIL))) (SYSTEM::%STRUCTURE-STORE 'GRID-
> ENVIRONMENT #1# 8 #2#)) (PARSE-SPECS ENV (GRID-ENVIRONMENT-ASPEC ENV))
> (PARSE-SPECS ENV (GRID-ENVIRONMENT-BSPEC ENV)) (PARSE-SPECS ENV (GRID-
> ENVIRONMENT-CSPEC ENV)) (CALL-NEXT-METHOD))
> 22: APPLY frame for call (:LAMBDA '#<VACUUM-WORLD; Step: 0, Agents:
> [1 = 0]>)
> 23: EVAL frame for form ((LAMBDA #1=(ENV) (DECLARE (SYSTEM::SOURCE
> (#1# #2=(DECLARE (IGNORABLE ENV)) (BLOCK INITIALIZE (UNLESS
> #3=(ENVIRONMENT-INITIALIZED ENV) (SETF (GRID-ENVIRONMENT-GRID ENV)
> #4=(MAKE-ARRAY (GRID-ENVIRONMENT-SIZE ENV) :INITIAL-ELEMENT 'NIL)) .
> #5=((PARSE-SPECS ENV (GRID-ENVIRONMENT-ASPEC ENV)) (PARSE-SPECS ENV
> (GRID-ENVIRONMENT-BSPEC ENV)) (PARSE-SPECS ENV (GRID-ENVIRONMENT-CSPEC
> ENV)) (CALL-NEXT-METHOD))))))) #2# (UNLESS #3# (LET* ((#6=#:G2507 ENV)
> (#7=#:G2508 #4#)) (SYSTEM::%STRUCTURE-STORE 'GRID-ENVIRONMENT #6# 8
> #7#)) . #5#)) #:G2506)
> 24: EVAL frame for form (SYSTEM::FUNCTION-MACRO-LET ((CALL-NEXT-
> METHOD (#1=(&REST CLOS::NEW-ARGS) (DECLARE (SYSTEM::SOURCE (#1# .
> #2=((IF CLOS::NEW-ARGS (IF (EVAL-WHEN (EVAL) T) (CLOS::%CALL-NEXT-
> METHOD #3=#:G2504 #4=#:G2505 (LIST . #5=(#6=#:G2506)) CLOS::NEW-ARGS)
> (IF #4# (APPLY #4# CLOS::NEW-ARGS) (APPLY #'CLOS::%NO-NEXT-METHOD #3#
> CLOS::NEW-ARGS))) (IF #4# (FUNCALL #4# . #5#) (CLOS::%NO-NEXT-METHOD
> #3# . #5#))))))) . #2#) (#7=(&REST CLOS::NEW-ARG-EXPRS) (DECLARE
> (SYSTEM::SOURCE (#7# . #8=((IF CLOS::NEW-ARG-EXPRS (LIST 'IF '(EVAL-
> WHEN (EVAL) T) (LIST 'CLOS::%CALL-NEXT-METHOD '#3# '#4# (LIST 'LIST
> '#6#) (CONS 'LIST CLOS::NEW-ARG-EXPRS)) (LIST 'IF '#4# (LIST* 'FUNCALL
> '#4# CLOS::NEW-ARG-EXPRS) (LIST* 'CLOS::%NO-NEXT-METHOD '#3# CLOS::NEW-
> ARG-EXPRS))) (LIST 'IF '#4# (LIST 'FUNCALL '#4# '#6#) (LIST 'CLOS::%NO-
> NEXT-METHOD '#3# '#6#))))))) . #8#)) (NEXT-METHOD-P (NIL (DECLARE
> (SYSTEM::SOURCE (NIL . #9=(#4#)))) . #9#) (NIL (DECLARE
> (SYSTEM::SOURCE (NIL . #10=('#4#)))) . #10#))) ((LAMBDA #11=(ENV)
> (DECLARE (SYSTEM::SOURCE (#11# #12=(DECLARE (IGNORABLE ENV)) (BLOCK
> INITIALIZE (UNLESS #13=(ENVIRONMENT-INITIALIZED ENV) (SETF (GRID-
> ENVIRONMENT-GRID ENV) #14=(MAKE-ARRAY (GRID-ENVIRONMENT-SIZE
> ENV) :INITIAL-ELEMENT 'NIL)) . #15=((PARSE-SPECS ENV (GRID-ENVIRONMENT-
> ASPEC ENV)) (PARSE-SPECS ENV (GRID-ENVIRONMENT-BSPEC ENV)) (PARSE-
> SPECS ENV (GRID-ENVIRONMENT-CSPEC ENV)) (CALL-NEXT-METHOD))))))) #12#
> (UNLESS #13# (LET* ((#16=#:G2507 ENV) (#17=#:G2508 #14#)) (SYSTEM::
> %STRUCTURE-STORE 'GRID-ENVIRONMENT #16# 8 #17#)) . #15#)) . #5#))
> 25: APPLY frame for call (:LAMBDA '#<COMPILED-CLOSURE #:COMPILED-
> FORM-171-1-1> '#<VACUUM-WORLD; Step: 0, Agents: [1 = 0]>)
> 26: EVAL frame for form (INITIALIZE ENV)
> 27: EVAL frame for form (PROGN (INITIALIZE ENV) (DISPLAY-ENVIRONMENT
> ENV) (BLOCK NIL (LET ((I 0) (#1=#:G2411 (ENVIRONMENT-MAX-STEPS ENV)))
> (TAGBODY #2=#:G2412 (IF (>= I #1#) (GO #3=#:G2413)) (LET* ((#4=#:G2414
> ENV) (#5=#:G2415 (+ (ENVIRONMENT-STEP #4#) 1))) (SYSTEM::%STRUCTURE-
> STORE 'ENVIRONMENT #4# 2 #5#)) (BLOCK NIL (LET* ((#6=#:G2416
> (ENVIRONMENT-AGENTS ENV)) (AGENT NIL)) (DECLARE (LIST #6#)) (TAGBODY
> #7=#:G2417 (IF (ENDP #6#) (GO #8=#:G2418)) (SETQ AGENT (CAR #6#))
> (LET* ((#9=#:G2419 AGENT) (#10=#:G2420 (GET-PERCEPT ENV AGENT)))
> (SYSTEM::%STRUCTURE-STORE 'AGENT #9# 4 #10#)) (LET* ((#11=#:G2421
> AGENT) (#12=#:G2422 (FUNCALL (AGENT-PROGRAM AGENT) (AGENT-PERCEPT
> AGENT)))) (SYSTEM::%STRUCTURE-STORE 'AGENT #11# 5 #12#)) (SETQ #6#
> (CDR #6#)) (GO #7#) #8# (RETURN-FROM NIL NIL)))) (UPDATE-FN ENV)
> (BLOCK NIL (LET* ((#13=#:G2423 (ENVIRONMENT-AGENTS ENV)) (AGENT NIL))
> (DECLARE (LIST #13#)) (TAGBODY #14=#:G2424 (IF (ENDP #13#) (GO
> #15=#:G2425)) (SETQ AGENT (CAR #13#)) (LET* ((#16=#:G2426 AGENT)
> (#17=#:G2427 (PERFORMANCE-MEASURE ENV AGENT))) (SYSTEM::%STRUCTURE-
> STORE 'AGENT #16# 3 #17#)) (SETQ #13# (CDR #13#)) (GO #14#) #15#
> (RETURN-FROM NIL NIL)))) (DISPLAY-ENVIRONMENT ENV) (WHEN (TERMINATION?
> ENV) (RETURN-FROM NIL NIL)) (PSETQ I (1+ I)) (GO #2#) #3# (RETURN-FROM
> NIL NIL)))) ENV)
--
http://lispm.dyndns.org/ From: ·············@gmail.com
Subject: Re: Debugging in Slime
Date: Sun, 22 Jun 2008 20:11:35 +0000
Message-ID: <800a8dbf-6b0e-4210-a937-78597b330da9@34g2000hsh.googlegroups.com> On Jun 22, 10:50 pm, Rainer Joswig <······@lisp.de> wrote:
> In article
> <····································@25g2000hsx.googlegroups.com>,
>
> ·············@gmail.com wrote:
> > Hi I am using Slime and Clisp . while I was playing with some
> > downloaded lisp files, I run into an error raising undefined function
> > error and face with an debugging page. Do you know how to find the
> > corresponding *.lisp file raising this error? I will be much
> > appreciated to your help, thanks a lot.
>
> Well, I would look for the source of INITIALIZE-AGENT-NAMES .
>
> Say, (ed 'INITIALIZE-AGENT-NAMES) or
> m-. on the symbol.
>
> Something like that.
>
> > the regarding error page is:
>
> > EVAL: undefined function (SETF OBJECT-NAME)
> > [Condition of type SYSTEM::SIMPLE-UNDEFINED-FUNCTION]
>
> > Restarts:
> > 0: [CONTINUE] Retry
> > 1: [STORE-VALUE] You may input a new value for (FDEFINITION '(SETF
> > OBJECT-NAME)).
> > 2: [USE-VALUE] You may input a value to be used instead of
> > (FDEFINITION '(SETF OBJECT-NAME)).
> > 3: [ABORT] Abort handling SLIME request.
>
> > Backtrace:
> > 0: frame binding variables (~ = dynamically):
> > | ~ SYSTEM::*FASOUTPUT-STREAM* <--> NIL
> > 1: EVAL frame for form ((SETF OBJECT-NAME) I #:G2253)
> > 2: EVAL frame for form (LET* ((#1=#:G2253 BODY)) ((SETF OBJECT-NAME)
> > I #1#))
> > 3: EVAL frame for form (WHEN (AND BODY (NULL (OBJECT-NAME BODY)))
> > (LET* ((#1=#:G2253 BODY)) ((SETF OBJECT-NAME) I #1#)))
> > 4: EVAL frame for form (LET ((I (+ 1 (POSITION AGENT (ENVIRONMENT-
> > AGENTS ENV)))) (BODY (AGENT-BODY AGENT))) (LET* ((#1=#:G2250 AGENT)
> > (#2=#:G2251 I)) (SYSTEM::%STRUCTURE-STORE 'AGENT #1# 6 #2#)) (WHEN
> > (AND BODY (NULL (OBJECT-NAME BODY))) (LET* ((#3=#:G2253 BODY)) ((SETF
> > OBJECT-NAME) I #3#))))
> > 5: EVAL frame for form (WHEN (NULL (AGENT-NAME AGENT)) (LET ((I (+ 1
> > (POSITION AGENT (ENVIRONMENT-AGENTS ENV)))) (BODY (AGENT-BODY AGENT)))
> > (LET* ((#1=#:G2250 AGENT) (#2=#:G2251 I)) (SYSTEM::%STRUCTURE-STORE
> > 'AGENT #1# 6 #2#)) (WHEN (AND BODY (NULL (OBJECT-NAME BODY))) (LET*
> > ((#3=#:G2253 BODY)) ((SETF OBJECT-NAME) I #3#)))))
> > 6: EVAL frame for form (TAGBODY #1=#:G2248 (IF (ENDP #2=#:G2247) (GO
> > #3=#:G2249)) (SETQ AGENT (CAR #2#)) (WHEN (NULL (AGENT-NAME AGENT))
> > (LET ((I (+ 1 (POSITION AGENT (ENVIRONMENT-AGENTS ENV)))) (BODY (AGENT-
> > BODY AGENT))) (LET* ((#4=#:G2250 AGENT) (#5=#:G2251 I)) (SYSTEM::
> > %STRUCTURE-STORE 'AGENT #4# 6 #5#)) (WHEN (AND BODY (NULL (OBJECT-NAME
> > BODY))) (LET* ((#6=#:G2253 BODY)) ((SETF OBJECT-NAME) I #6#))))) (SETQ
> > #2# (CDR #2#)) (GO #1#) #3# (RETURN-FROM NIL NIL))
> > 7: EVAL frame for form (LET* ((#1=#:G2247 (ENVIRONMENT-AGENTS ENV))
> > (AGENT NIL)) (DECLARE (LIST #1#)) (TAGBODY #2=#:G2248 (IF (ENDP #1#)
> > (GO #3=#:G2249)) (SETQ AGENT (CAR #1#)) (WHEN (NULL (AGENT-NAME
> > AGENT)) (LET ((I (+ 1 (POSITION AGENT (ENVIRONMENT-AGENTS ENV))))
> > (BODY (AGENT-BODY AGENT))) (LET* ((#4=#:G2250 AGENT) (#5=#:G2251 I))
> > (SYSTEM::%STRUCTURE-STORE 'AGENT #4# 6 #5#)) (WHEN (AND BODY (NULL
> > (OBJECT-NAME BODY))) (LET* ((#6=#:G2253 BODY)) ((SETF OBJECT-NAME) I
> > #6#))))) (SETQ #1# (CDR #1#)) (GO #2#) #3# (RETURN-FROM NIL NIL)))
> > 8: EVAL frame for form (BLOCK NIL (LET* ((#1=#:G2247 (ENVIRONMENT-
> > AGENTS ENV)) (AGENT NIL)) (DECLARE (LIST #1#)) (TAGBODY #2=#:G2248 (IF
> > (ENDP #1#) (GO #3=#:G2249)) (SETQ AGENT (CAR #1#)) (WHEN (NULL (AGENT-
> > NAME AGENT)) (LET ((I (+ 1 (POSITION AGENT (ENVIRONMENT-AGENTS ENV))))
> > (BODY (AGENT-BODY AGENT))) (LET* ((#4=#:G2250 AGENT) (#5=#:G2251 I))
> > (SYSTEM::%STRUCTURE-STORE 'AGENT #4# 6 #5#)) (WHEN (AND BODY (NULL
> > (OBJECT-NAME BODY))) (LET* ((#6=#:G2253 BODY)) ((SETF OBJECT-NAME) I
> > #6#))))) (SETQ #1# (CDR #1#)) (GO #2#) #3# (RETURN-FROM NIL NIL))))
> > 9: APPLY frame for call (INITIALIZE-AGENT-NAMES '#<VACUUM-WORLD;
> > Step: 0, Agents: [1 = 0]>)
> > 10: EVAL frame for form (INITIALIZE-AGENT-NAMES ENV)
> > 11: EVAL frame for form (PROGN (INITIALIZE-AGENT-NAMES ENV) (LET*
> > ((#1=#:G2445 ENV) (#2=#:G2446 T)) (SYSTEM::%STRUCTURE-STORE
> > 'ENVIRONMENT #1# 5 #2#)) ENV)
> > 12: APPLY frame for call (:LAMBDA '#<VACUUM-WORLD; Step: 0, Agents:
> > [1 = 0]>)
> > 13: EVAL frame for form ((LAMBDA #1=(ENV) (DECLARE (SYSTEM::SOURCE
> > (#1# #2=(DECLARE (IGNORABLE ENV)) (BLOCK INITIALIZE #3=(INITIALIZE-
> > AGENT-NAMES ENV) (SETF (ENVIRONMENT-INITIALIZED ENV) T) . #4=(ENV)))))
> > #2# (PROGN #3# (LET* ((#5=#:G2445 ENV) (#6=#:G2446 T)) (SYSTEM::
> > %STRUCTURE-STORE 'ENVIRONMENT #5# 5 #6#)) . #4#)) #:G2444)
> > 14: EVAL frame for form (SYSTEM::FUNCTION-MACRO-LET ((CALL-NEXT-
> > METHOD (#1=(&REST CLOS::NEW-ARGS) (DECLARE (SYSTEM::SOURCE (#1# .
> > #2=((IF CLOS::NEW-ARGS (IF (EVAL-WHEN (EVAL) T) (CLOS::%CALL-NEXT-
> > METHOD #3=#:G2442 #4=#:G2443 (LIST . #5=(#6=#:G2444)) CLOS::NEW-ARGS)
> > (IF #4# (APPLY #4# CLOS::NEW-ARGS) (APPLY #'CLOS::%NO-NEXT-METHOD #3#
> > CLOS::NEW-ARGS))) (IF #4# (FUNCALL #4# . #5#) (CLOS::%NO-NEXT-METHOD
> > #3# . #5#))))))) . #2#) (#7=(&REST CLOS::NEW-ARG-EXPRS) (DECLARE
> > (SYSTEM::SOURCE (#7# . #8=((IF CLOS::NEW-ARG-EXPRS (LIST 'IF '(EVAL-
> > WHEN (EVAL) T) (LIST 'CLOS::%CALL-NEXT-METHOD '#3# '#4# (LIST 'LIST
> > '#6#) (CONS 'LIST CLOS::NEW-ARG-EXPRS)) (LIST 'IF '#4# (LIST* 'FUNCALL
> > '#4# CLOS::NEW-ARG-EXPRS) (LIST* 'CLOS::%NO-NEXT-METHOD '#3# CLOS::NEW-
> > ARG-EXPRS))) (LIST 'IF '#4# (LIST 'FUNCALL '#4# '#6#) (LIST 'CLOS::%NO-
> > NEXT-METHOD '#3# '#6#))))))) . #8#)) (NEXT-METHOD-P (NIL (DECLARE
> > (SYSTEM::SOURCE (NIL . #9=(#4#)))) . #9#) (NIL (DECLARE
> > (SYSTEM::SOURCE (NIL . #10=('#4#)))) . #10#))) ((LAMBDA #11=(ENV)
> > (DECLARE (SYSTEM::SOURCE (#11# #12=(DECLARE (IGNORABLE ENV)) (BLOCK
> > INITIALIZE #13=(INITIALIZE-AGENT-NAMES ENV) (SETF (ENVIRONMENT-
> > INITIALIZED ENV) T) . #14=(ENV))))) #12# (PROGN #13# (LET*
> > ((#15=#:G2445 ENV) (#16=#:G2446 T)) (SYSTEM::%STRUCTURE-STORE
> > 'ENVIRONMENT #15# 5 #16#)) . #14#)) . #5#))
> > 15: APPLY frame for call (:LAMBDA 'NIL '#<VACUUM-WORLD; Step: 0,
> > Agents: [1 = 0]>)
> > 16: EVAL frame for form (FUNCALL #:G2505 #:G2506)
> > 17: EVAL frame for form (IF #1=#:G2505 (FUNCALL #1# . #2=(#:G2506))
> > (CLOS::%NO-NEXT-METHOD #:G2504 . #2#))
> > 18: EVAL frame for form (IF CLOS::NEW-ARGS (IF (EVAL-WHEN (EVAL) T)
> > (CLOS::%CALL-NEXT-METHOD #1=#:G2504 #2=#:G2505 (LIST . #3=(#:G2506))
> > CLOS::NEW-ARGS) (IF #2# (APPLY #2# CLOS::NEW-ARGS) (APPLY #'CLOS::%NO-
> > NEXT-METHOD #1# CLOS::NEW-ARGS))) (IF #2# (FUNCALL #2# . #3#) (CLOS::
> > %NO-NEXT-METHOD #1# . #3#)))
> > 19: APPLY frame for call (CALL-NEXT-METHOD)
> > 20: EVAL frame for form (CALL-NEXT-METHOD)
> > 21: EVAL frame for form (UNLESS (ENVIRONMENT-INITIALIZED ENV) (LET*
> > ((#1=#:G2507 ENV) (#2=#:G2508 (MAKE-ARRAY (GRID-ENVIRONMENT-SIZE
> > ENV) :INITIAL-ELEMENT 'NIL))) (SYSTEM::%STRUCTURE-STORE 'GRID-
> > ENVIRONMENT #1# 8 #2#)) (PARSE-SPECS ENV (GRID-ENVIRONMENT-ASPEC ENV))
> > (PARSE-SPECS ENV (GRID-ENVIRONMENT-BSPEC ENV)) (PARSE-SPECS ENV (GRID-
> > ENVIRONMENT-CSPEC ENV)) (CALL-NEXT-METHOD))
> > 22: APPLY frame for call (:LAMBDA '#<VACUUM-WORLD; Step: 0, Agents:
> > [1 = 0]>)
> > 23: EVAL frame for form ((LAMBDA #1=(ENV) (DECLARE (SYSTEM::SOURCE
> > (#1# #2=(DECLARE (IGNORABLE ENV)) (BLOCK INITIALIZE (UNLESS
> > #3=(ENVIRONMENT-INITIALIZED ENV) (SETF (GRID-ENVIRONMENT-GRID ENV)
> > #4=(MAKE-ARRAY (GRID-ENVIRONMENT-SIZE ENV) :INITIAL-ELEMENT 'NIL)) .
> > #5=((PARSE-SPECS ENV (GRID-ENVIRONMENT-ASPEC ENV)) (PARSE-SPECS ENV
> > (GRID-ENVIRONMENT-BSPEC ENV)) (PARSE-SPECS ENV (GRID-ENVIRONMENT-CSPEC
> > ENV)) (CALL-NEXT-METHOD))))))) #2# (UNLESS #3# (LET* ((#6=#:G2507 ENV)
> > (#7=#:G2508 #4#)) (SYSTEM::%STRUCTURE-STORE 'GRID-ENVIRONMENT #6# 8
> > #7#)) . #5#)) #:G2506)
> > 24: EVAL frame for form (SYSTEM::FUNCTION-MACRO-LET ((CALL-NEXT-
> > METHOD (#1=(&REST CLOS::NEW-ARGS) (DECLARE (SYSTEM::SOURCE (#1# .
> > #2=((IF CLOS::NEW-ARGS (IF (EVAL-WHEN (EVAL) T) (CLOS::%CALL-NEXT-
> > METHOD #3=#:G2504 #4=#:G2505 (LIST . #5=(#6=#:G2506)) CLOS::NEW-ARGS)
> > (IF #4# (APPLY #4# CLOS::NEW-ARGS) (APPLY #'CLOS::%NO-NEXT-METHOD #3#
> > CLOS::NEW-ARGS))) (IF #4# (FUNCALL #4# . #5#) (CLOS::%NO-NEXT-METHOD
> > #3# . #5#))))))) . #2#) (#7=(&REST CLOS::NEW-ARG-EXPRS) (DECLARE
> > (SYSTEM::SOURCE (#7# . #8=((IF CLOS::NEW-ARG-EXPRS (LIST 'IF '(EVAL-
> > WHEN (EVAL) T) (LIST 'CLOS::%CALL-NEXT-METHOD '#3# '#4# (LIST 'LIST
> > '#6#) (CONS 'LIST CLOS::NEW-ARG-EXPRS)) (LIST 'IF '#4# (LIST* 'FUNCALL
> > '#4# CLOS::NEW-ARG-EXPRS) (LIST* 'CLOS::%NO-NEXT-METHOD '#3# CLOS::NEW-
> > ARG-EXPRS))) (LIST 'IF '#4# (LIST 'FUNCALL '#4# '#6#) (LIST 'CLOS::%NO-
> > NEXT-METHOD '#3# '#6#))))))) . #8#)) (NEXT-METHOD-P (NIL (DECLARE
> > (SYSTEM::SOURCE (NIL . #9=(#4#)))) . #9#) (NIL (DECLARE
> > (SYSTEM::SOURCE (NIL . #10=('#4#)))) . #10#))) ((LAMBDA #11=(ENV)
> > (DECLARE (SYSTEM::SOURCE (#11# #12=(DECLARE (IGNORABLE ENV)) (BLOCK
> > INITIALIZE (UNLESS #13=(ENVIRONMENT-INITIALIZED ENV) (SETF (GRID-
> > ENVIRONMENT-GRID ENV) #14=(MAKE-ARRAY (GRID-ENVIRONMENT-SIZE
> > ENV) :INITIAL-ELEMENT 'NIL)) . #15=((PARSE-SPECS ENV (GRID-ENVIRONMENT-
> > ASPEC ENV)) (PARSE-SPECS ENV (GRID-ENVIRONMENT-BSPEC ENV)) (PARSE-
> > SPECS ENV (GRID-ENVIRONMENT-CSPEC ENV)) (CALL-NEXT-METHOD))))))) #12#
> > (UNLESS #13# (LET* ((#16=#:G2507 ENV) (#17=#:G2508 #14#)) (SYSTEM::
> > %STRUCTURE-STORE 'GRID-ENVIRONMENT #16# 8 #17#)) . #15#)) . #5#))
> > 25: APPLY frame for call (:LAMBDA '#<COMPILED-CLOSURE #:COMPILED-
> > FORM-171-1-1> '#<VACUUM-WORLD; Step: 0, Agents: [1 = 0]>)
> > 26: EVAL frame for form (INITIALIZE ENV)
> > 27: EVAL frame for form (PROGN (INITIALIZE ENV) (DISPLAY-ENVIRONMENT
> > ENV) (BLOCK NIL (LET ((I 0) (#1=#:G2411 (ENVIRONMENT-MAX-STEPS ENV)))
> > (TAGBODY #2=#:G2412 (IF (>= I #1#) (GO #3=#:G2413)) (LET* ((#4=#:G2414
> > ENV) (#5=#:G2415 (+ (ENVIRONMENT-STEP #4#) 1))) (SYSTEM::%STRUCTURE-
> > STORE 'ENVIRONMENT #4# 2 #5#)) (BLOCK NIL (LET* ((#6=#:G2416
> > (ENVIRONMENT-AGENTS ENV)) (AGENT NIL)) (DECLARE (LIST #6#)) (TAGBODY
> > #7=#:G2417 (IF (ENDP #6#) (GO #8=#:G2418)) (SETQ AGENT (CAR #6#))
> > (LET* ((#9=#:G2419 AGENT) (#10=#:G2420 (GET-PERCEPT ENV AGENT)))
> > (SYSTEM::%STRUCTURE-STORE 'AGENT #9# 4 #10#)) (LET* ((#11=#:G2421
> > AGENT) (#12=#:G2422 (FUNCALL (AGENT-PROGRAM AGENT) (AGENT-PERCEPT
> > AGENT)))) (SYSTEM::%STRUCTURE-STORE 'AGENT #11# 5 #12#)) (SETQ #6#
> > (CDR #6#))
>
> ...
>
> read more »
thanks for the reply, but isn't there any shortkey to use in debugging
window to reach the corresponding file? t From: Rainer Joswig
Subject: Re: Debugging in Slime
Date: Sun, 22 Jun 2008 20:25:36 +0000
Message-ID: <joswig-7D15E9.22253622062008@news-europe.giganews.com> In article
<····································@34g2000hsh.googlegroups.com>,
·············@gmail.com wrote:
> >
> > read more �
>
> thanks for the reply, but isn't there any shortkey to use in debugging
> window to reach the corresponding file? t
Do you know c-h m ?
When you want to see the information about the modes of a
buffer press c-h m. c-h invokes the help system. c-h ? shows
the help commands. c-h m invokes describe-mode. It is
quite useful, since it gives an overview over all
buffer commands.
As you can see 'v' on a frame would be useful.
sldb[1] mode:
Superior lisp debugger mode. In addition to ordinary SLIME commands,
the following are available:
Commands to examine the selected frame:
t - toggle details (local bindings, CATCH tags)
v - view source for the frame
e - eval in frame
d - eval in frame, pretty-print result
D - disassemble
i - inspect
Commands to invoke restarts:
q - quit
a - abort
c - continue
0-9 - restart shortcuts
Commands to navigate frames:
n - down
p - up
M-n - down, with details
M-p - up, with details
Miscellaneous commands:
r - restart frame
R - return from frame
s - step
B - switch to default debugger
: - eval
Full list of commands:
key binding
--- -------
C-c Prefix Command
RET sldb-default-action
C-x Prefix Command
ESC Prefix Command
0 sldb-invoke-restart-0
1 sldb-invoke-restart-1
2 sldb-invoke-restart-2
3 sldb-invoke-restart-3
4 sldb-invoke-restart-4
5 sldb-invoke-restart-5
6 sldb-invoke-restart-6
7 sldb-invoke-restart-7
8 sldb-invoke-restart-8
9 sldb-invoke-restart-9
: slime-interactive-eval
< sldb-beginning-of-backtrace
> sldb-end-of-backtrace
B sldb-break-with-default-debugger
C sldb-inspect-condition
D sldb-disassemble
P sldb-print-condition
R sldb-return-from-frame
a sldb-abort
b sldb-break-on-return
c sldb-continue
d sldb-pprint-eval-in-frame
e sldb-eval-in-frame
h describe-mode
i sldb-inspect-in-frame
n sldb-down
o sldb-out
p sldb-up
q sldb-quit
r sldb-restart-frame
s sldb-step
t sldb-toggle-details
v sldb-show-source
x sldb-next
<follow-link> mouse-face
<mouse-2> sldb-default-action/mouse
<return> sldb-default-action
C-x 4 Prefix Command
C-x 5 Prefix Command
C-c C-b slime-interrupt
C-c C-d Prefix Command
C-c C-e slime-interactive-eval
C-c C-f slime-describe-function
C-c C-t slime-toggle-trace-fdefinition
C-c C-v Prefix Command
C-c C-x Prefix Command
C-c C-z slime-switch-to-output-buffer
C-c ESC Prefix Command
C-c C-] slime-close-all-parens-in-sexp
C-c : slime-interactive-eval
C-c < slime-list-callers
C-c > slime-list-callees
C-c E slime-edit-value
C-c I slime-inspect
M-, slime-pop-find-definition-stack
M-. slime-edit-definition
M-n sldb-details-down
(that binding is currently shadowed by another mode)
M-p sldb-details-up
C-x 5 . slime-edit-definition-other-frame
C-x 4 . slime-edit-definition-other-window
C-c C-v C-d slime-describe-presentation-at-point
C-c C-v TAB slime-inspect-presentation-at-point
C-c C-v C-n slime-next-presentation
C-c C-v C-p slime-previous-presentation
C-c C-v C-r slime-copy-presentation-at-point-to-repl
C-c C-v C-w slime-copy-presentation-at-point-to-kill-ring
C-c C-v ESC Prefix Command
C-c C-v SPC slime-mark-presentation
C-c C-v d slime-describe-presentation-at-point
C-c C-v i slime-inspect-presentation-at-point
C-c C-v n slime-next-presentation
C-c C-v p slime-previous-presentation
C-c C-v r slime-copy-presentation-at-point-to-repl
C-c C-v w slime-copy-presentation-at-point-to-kill-ring
C-c C-v C-SPC slime-mark-presentation
C-c C-x c slime-list-connections
C-c C-x t slime-list-threads
C-c M-d slime-disassemble-symbol
C-c M-g slime-quit
C-c C-d C-a slime-apropos
C-c C-d C-d slime-describe-symbol
C-c C-d C-f slime-describe-function
C-c C-d C-p slime-apropos-package
C-c C-d C-z slime-apropos-all
C-c C-d a slime-apropos
C-c C-d d slime-describe-symbol
C-c C-d f slime-describe-function
C-c C-d h slime-hyperspec-lookup
C-c C-d p slime-apropos-package
C-c C-d z slime-apropos-all
C-c C-d ~ common-lisp-hyperspec-format
C-c C-d C-~ common-lisp-hyperspec-format
C-c C-v M-o slime-clear-presentations
...
--
http://lispm.dyndns.org/ From: ·············@gmail.com
Subject: Re: Debugging in Slime
Date: Sun, 22 Jun 2008 20:18:52 +0000
Message-ID: <97b0aa59-9ce1-4dc2-9d7a-4e20c54af81a@27g2000hsf.googlegroups.com> wow my previous message is totally quoted, so i am just pasting it:
"thanks for the reply, but isn't there any shortkey to use in
debugging
window to reach the corresponding file? thanks again. " From: Sohail Somani
Subject: Re: Debugging in Slime
Date: Sun, 22 Jun 2008 20:22:08 +0000
Message-ID: <485EB46F.1080401@taggedtype.net> Press "V" on the frame you are interested in. This sometimes works if
you're lucky.
·············@gmail.com wrote:
>
> wow my previous message is totally quoted, so i am just pasting it:
>
> "thanks for the reply, but isn't there any shortkey to use in
> debugging
> window to reach the corresponding file? thanks again. "