[mcclim-devel] Drei issues

[Willem Broekema]

Hi,
The following two issues in Drei came up in Allegro 8.1:

1. In Drei/syntax.lisp in update-lex there is a call to undefined
function low-mark.

2. In the listener, I try to show a picture from a file. Typing in the
accept box for the filename gives the following error (normally caught
in av-do-accept, but I disabled the catch-all handler):

Error: missing value for argument DREI::RELATIVE-CHUNK-END-OFFSET
  [condition type: SIMPLE-ERROR]

Restart actions (select using :continue):
 0: Return to application command loop
 1: Return to Top Level (an "abort" restart).
 2: Abort entirely from this (lisp) process.
[1] CLIM-USER(63): :zo
Evaluation stack:

   (ERROR SIMPLE-ERROR :FORMAT-CONTROL ...)
 ->(DREI::FETCH-CHUNK #<DREI:BUFFER-LINE @ #x117fa84a> 1)
   (DREI:BUFFER-VIEW-STROKE-PUMP #<DREI:TEXTUAL-DREI-SYNTAX-VIEW name:
*scratch* 1 @ #x1113c3b2>
                                 #S(DREI::DISPLAYED-STROKE
:START-OFFSET NIL ...) ...)
   ((METHOD DREI:STROKE-PUMP-WITH-SYNTAX
     (DREI:TEXTUAL-DREI-SYNTAX-VIEW
DREI-FUNDAMENTAL-SYNTAX:FUNDAMENTAL-SYNTAX T T))
      #<DREI:TEXTUAL-DREI-SYNTAX-VIEW name: *scratch* 1 @ #x1113c3b2>
      #<DREI-FUNDAMENTAL-SYNTAX:FUNDAMENTAL-SYNTAX @ #x1113c3c2> ...)
   [... DREI:STROKE-PUMP-WITH-SYNTAX ]
   ((METHOD DREI:STROKE-PUMP (DREI:DREI-SYNTAX-VIEW T T))
      #<DREI:TEXTUAL-DREI-SYNTAX-VIEW name: *scratch* 1 @ #x1113c3b2>
      #S(DREI::DISPLAYED-STROKE :START-OFFSET NIL ...) ...)
   ((METHOD DREI:STROKE-PUMP :AROUND (DREI:DREI-BUFFER-VIEW
DREI::DISPLAYED-STROKE T))
      #<DREI:TEXTUAL-DREI-SYNTAX-VIEW name: *scratch* 1 @ #x1113c3b2>
      #S(DREI::DISPLAYED-STROKE :START-OFFSET NIL ...) ...)
   ((:INTERNAL (:EFFECTIVE-METHOD 3 NIL NIL T T) 0)
      #<DREI:TEXTUAL-DREI-SYNTAX-VIEW name: *scratch* 1 @ #x1113c3b2>
      #S(DREI::DISPLAYED-STROKE :START-OFFSET NIL ...) ...)
   (DREI::PUT-STROKE #<DREI:TEXTUAL-DREI-SYNTAX-VIEW name: *scratch* 1
@ #x1113c3b2>
                     #S(DREI::DISPLAYED-LINE :START-OFFSET 0 ...) ...)
   (DREI::DRAW-LINE-STROKES
      #<CLIM-LISTENER::LISTENER-INTERACTOR-PANE
CLIM-LISTENER::INTERACTOR @ #x1109c912>
      #<DREI:TEXTUAL-DREI-SYNTAX-VIEW name: *scratch* 1 @ #x1113c3b2> ...)

... more older frames ...
[1] CLIM-USER(64):

That error is thrown in fetch-chunk, which does:
  (destructuring-bind (relative-chunk-end-offset . objectp)
      (aref (chunks line) chunk-index)
 and at that point, (chunks line) = #((2)) while chunk-index = 1.


Cheers,
- Willem