[Openmcl-devel] ?? Problem with (:v n frame-number)

[Gary Byers]

The :SET break-loop command has the same bug (passing the value of
(CCL::%CURRENT-TCR) to stack-walking functions that don't like that
anymore ...)  This is now fixed in CVS, with the enclosed patch to
ccl:level-1;l1-readloop-lds.lisp.


On Wed, 9 Jun 2004, Gary King wrote:

> Here is part of a transcript of an OpenMCL session. When I try to view
> a value, I get an error
>
> Welcome to OpenMCL Version (Beta: Darwin) 0.14.2-p1!
>
> <-- SNIP -->
>
> 1 > :b
> (F01359A0) : 0 "FIND-CLASS" 472
> (F01359B0) : 1 "SET-INVERSE-LINK-DEFINITION" 96
> (F01359C0) : 2 "MAP-DIRECT-LINK-SLOTS" 104
> (F01359D0) : 3 NIL NIL
>
> <-- SNIP -->
>
> 1 >
> (:f 2)
> (F01359C0) : 2 "MAP-DIRECT-LINK-SLOTS" 104
>    0 FN: #<CCL:COMPILED-LEXICAL-CLOSURE DO-A-LINK #x4B86DE> ("required")
>    1 CLASS: #<STANDARD-SPACE-INSTANCE-CLASS ROOT-SPACE-INSTANCE>
> ("required")
>    2 : (#(#1=#<STANDARD-GENERIC-FUNCTION SHARED-INITIALIZE #x609CBAE>
> (#4=#<STANDARD-METHOD SHARED-
>
> <-- SNIP -->
>
> 1 > (:v 1 2)
>  > Error in process listener(1): value 264100 is not of the expected
> type SIMPLE-VECTOR.
>  > While executing: CCL::LAST-FRAME-PTR
>  > Type :POP to abort.
> Type :? for other options.
> 2 > :b
> (F01358C0) : 0 "CCL::LAST-FRAME-PTR" 64
> (F01358C0) : 1 "CCL::NTH-RAW-FRAME" 60
> (F01358D0) : 2 "CCL::V" 60
>
> <-- SNIP -->
>
> I'm at a loss! Help!
> --
> Gary Warren King, Lab Manager
> EKSL East, University of Massachusetts * 413 577 0176
>
> "Armed conflict is always a tragic failure. Although in some extreme
> circumstances it takes force to move through to a new stage of
> cooperation and progress, the human and ecological price that is paid
> for modern warfare is colossal, and the debt it leaves behind takes
> years or decades to pay off.
>    -- The World Conservation Union
-------------- next part --------------
Index: level-1/l1-readloop-lds.lisp
===================================================================
RCS file: /usr/local/tmpcvs/ccl-0.14/ccl/level-1/l1-readloop-lds.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- level-1/l1-readloop-lds.lisp	3 May 2004 07:21:27 -0000	1.3
+++ level-1/l1-readloop-lds.lisp	9 Jun 2004 17:51:57 -0000	1.4
@@ -96,9 +96,9 @@
 
 ;;; From Marco Baringer 2003/03/18
 (define-toplevel-command :break set (n frame value) "Set <n>th item of frame <frame> to <value>"
-  (let* ((frame-sp (nth-raw-frame frame *break-frame* (%current-tcr))))
+  (let* ((frame-sp (nth-raw-frame frame *break-frame* nil)))
     (if frame-sp
-        (toplevel-print (list (set-nth-value-in-frame frame-sp n (%current-tcr) value)))
+        (toplevel-print (list (set-nth-value-in-frame frame-sp n nil value)))
         (format *debug-io* "No frame with number ~D~%" frame))))
 
 (define-toplevel-command :global ? () "help"
@@ -125,9 +125,9 @@
                        :detailed-p n))
 
 (define-toplevel-command :break v (n frame-number) "Return value <n> in frame <frame-number>"
-  (let* ((frame-sp (nth-raw-frame frame-number *break-frame* (%current-tcr))))
+  (let* ((frame-sp (nth-raw-frame frame-number *break-frame* nil)))
     (if frame-sp
-      (toplevel-print (list (nth-value-in-frame frame-sp n (%current-tcr)))))))
+      (toplevel-print (list (nth-value-in-frame frame-sp n nil))))))
 
 (defun %use-toplevel-commands (group-name)
   ;; Push the whole group