From fungsin.lui at gmail.com  Sat Aug 19 00:33:15 2006
From: fungsin.lui at gmail.com (Lui Fungsin)
Date: Fri, 18 Aug 2006 17:33:15 -0700
Subject: [linedit-devel] Exception when using linedit:linedit on lispworks
	5.0 (linux 2.6)
In-Reply-To: <3990b5930608181724wc8ee1c6rc8d23d83788bd7e2@mail.gmail.com>
References: <3990b5930608181724wc8ee1c6rc8d23d83788bd7e2@mail.gmail.com>
Message-ID: <3990b5930608181733v4289f229tcc8dd510ebd46e97@mail.gmail.com>

Hi,

I'm using the 32-bit professional version and created a console image
for testing.

linedit and all the dependency packages seem to be compiled ok, but
when I want to try it out:

CL-USER 3 > (linedit:linedit :prompt "haha")
Linedit version 0.15.12 [dumb mode]

I got an error (attached below). I wanted to use lispworks because
sbcl doesn't support tree shaking and I need to deliver a compact
executable on a embedded platform.

I assume that linedit is not supported on lispworks as of now. I'm
willing to work on porting it but if anyone can give some hints /
directions I'd greatly appreciate.

I noticed that if I start linedit from sbcl it will detect the
terminal type and start in smart mode whereas in lispworks it defaults
to dumb mode.

TIA
fungsin

BUG: You seem to have found a bug in Linedit. Please reportthis
incident along with directions to reproduce and the following message
to linedit-devel at common-lisp.net:`Invariant (BACKEND-READY-P


                                    BACKEND) violated.'
  [Condition of type SIMPLE-ERROR]

Restarts:
 0: [ABORT] Return to level 0.
 1: [ABORT] Return to top-level loop.
 2: [ABORT] Return from multiprocessing.
 3: [ABORT] Quit process.

Backtrace:
 0: CONDITIONS::CONDITIONS-ERROR (:INVISIBLEP T "BUG: You seem to
have found a bug in Linedit. Please report~
                  this incident along with directions to reproduce and the ~
                  following message to linedit-devel at common-lisp.net:~
                  ~
                    `Invariant ~S violated.'" ((BACKEND-READY-P BACKEND)))
 1: (METHOD BACKEND-CLOSE (TERMINAL)) (#<DUMB-EDITOR 200FAA77>)
     Locals:
       BACKEND = #<DUMB-EDITOR 200FAA77>
       CLOS::.ISL. = :DONT-KNOW
       DBG::VALUE = NIL
       *PRINT-PRETTY* = NIL
 2: CLOS::CACHE-MISS-FUNCTION (:INVISIBLEP T &REST (#<DUMB-EDITOR 200FAA77>))
     Locals:
       CLOS::ARGS = (#<DUMB-EDITOR 200FAA77>)
       CLOS::.CACHE-SIZE. = 8
       CLOS::.CACHE. = #(NIL NIL NIL NIL NIL NIL #(1159 (READY-P
TRANSLATIONS START DIRTY-P REWIND-STORE REWIND-INDEX STRING POINT
COMMANDS COMPLETER ...) NIL #<STANDARD-CLASS DUMB-EDITOR 200E56D7>)
#<Function (METHOD BACKEND-CLOSE (TERMINAL)) 216928AA>)
       CLOS::.GF. = #<STANDARD-GENERIC-FUNCTION BACKEND-CLOSE 216929E2>
       CLOS::.CACHE-MASK. = 6
       CLOS::SPECIALIZED-POSITIONS = (0)
 3: (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 (METHOD
CLOS::UPDATE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION)))
(:INVISIBLEP T &REST (#<DUMB-EDITOR 200FAA77>))
     Locals:
       CLOS::ARGS = (#<DUMB-EDITOR 200FAA77>)
       CLOS::GF = #<STANDARD-GENERIC-FUNCTION BACKEND-CLOSE 216929E2>
       CLOS::OLD-DEFINITION = #<Closure ((METHOD
CLOS::UPDATE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION)) . 1)
216929FA>
 4: LINEDIT (&REST (:PROMPT "haha"))
     Locals:
       KEYWORD-ARGS = (:PROMPT "haha")
       EDITOR = #<DUMB-EDITOR 200FAA77>
       DBG::AN-ERROR = #<SIMPLE-ERROR 20102DA7>
 5: SYSTEM::%INVOKE NIL
     Locals:
 6: SYSTEM::%EVAL ((LINEDIT :PROMPT "haha"))
 7: EVAL ((LINEDIT :PROMPT "haha"))
 8: SYSTEM::DO-EVALUATION ((LINEDIT :PROMPT "haha") EVAL)
 9: SYSTEM::%TOP-LEVEL-INTERNAL (&KEY NIL #<Line Buffer Stream
{#<Synonym stream to SWANK::*CURRENT-STANDARD-INPUT*>} > #<Synonym
stream to SWANK::*CURRENT-STANDARD-OUTPUT*> SYSTEM::READ-A-COMMAND NIL
0 EVAL NIL NIL)
 10: SYSTEM::%TOP-LEVEL (&KEY NIL NIL "<(BUFFERED T)>" "<(READ-STREAM
*STANDARD-INPUT*)>" "<(PRINT-STREAM *STANDARD-OUTPUT*)>"
"<(READ-A-COMMAND (QUOTE READ-A-COMMAND))>" NIL NIL "<(EVAL-FUNCTION
(QUOTE EVAL))>" ...)
 11: MP::DEFAULT-LISTENER-FUNCTION NIL
 12: (HARLEQUIN-COMMON-LISP:SUBFUNCTION MP::PROCESS-SG-FUNCTION
MP::INITIALIZE-PROCESS-STACK) (:DONT-KNOW)
 13: SYSTEM::%%FIRST-CALL-TO-STACK NIL