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