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