Lisp HUG Maillist Archive

non-broken lesstif versions

Does anyone have a list of which ones work?

I was using 0.92.32-1 (which I think is what comes on the LW 4.2
CDs).  For really bad reasons (the CDs are in a box with a lot of
plants on top of it and I'm lazy), I fetched the current versions,
which are 0.93.36-1, and it fails horribly (typescript attached).  So
it looks like I need to dig out the CDs with 0.92 on...

This is all on RH 7.1 (which is old, I know).

--tim

--cut for typescript--
Script started on Wed Nov  6 12:30:48 2002
$ lw-dev
LispWorks(R): The Common Lisp Programming Environment
Copyright (C) 1987-2002 Xanalys LLC.  All rights reserved.
Version 4.2.7
LispWorks ORB: Corba programming from Common Lisp
Copyright (C) 1997-2001 Xanalys LLC.  All rights reserved.
Version 4.2.7
Saved by tfb as lispworks-42-current-development, at 30 Oct 2002 12:00
User tfb on penzance.cley.com
; Loading text file /local/packages/lispworks/lispworks-4.2/lib/4-2-0-0/config/siteinit.lisp
; Loading text file /home/tfb/.lispworks
Warning: (Xt Warning) Representation size 1 must match superclass's to override resizePolicy
Warning: 
Error of type xt-internals:xt-error in xt-error callback routine xt-library::default-xt-error-handler.
"Xt Error: "Cannot perform calloc"."
#<package COMMON-LISP-USER>


Call to X-UTILITIES:MAYBE-INVOKE-DEBUGGER
  CONDITION                   : #<XT-INTERNALS:XT-ERROR 2182E78C>
  X-UTILITIES:PRINT-BACKTRACE : T
  RESTART                     : X-UTILITIES::IGNORE-HANDLER-ERROR
  X-UTILITIES::HANDLE-ERROR   : T
  X-UTILITIES::BREAK-OF-MP    : NIL

Binding frame:
  CONDITIONS::*IN-SIGNAL-CATCH* : T

Call to SIGNAL
  CONDITIONS::DATUM     : #<XT-INTERNALS:XT-ERROR 2182E78C>
  CONDITIONS::ARGUMENTS : NIL

Binding frame:
  CONDITIONS::*IN-SIGNAL-CATCH* : NIL

Catch frame: CONDITIONS::SIGNAL-CATCH

Binding frame:
  CONDITIONS::*BROKEN-ON-SIGNALS* : NIL

Catch frame: (NIL)

Call to X-UTILITIES::INVOKE-HANDLER-ENVIRONMENT
  X-UTILITIES::HANDLER-NAME : XT-LIBRARY::DEFAULT-XT-ERROR-HANDLER
  X-UTILITIES::HANDLER-TYPE : :XT-ERROR
  X-UTILITIES::CONTINUATION : #<closure (SUBFUNCTION X-UTILITIES::BODY (SUBFUNCTION XT-LIBRARY::|%FOREIGN-CALLABLE/default_xt_error_handler| (FLI:DEFINE-FOREIGN-CALLABLE "default_xt_error_handler"))) 215FBA72>

Call to (SUBFUNCTION XT-LIBRARY::|%FOREIGN-CALLABLE/default_xt_error_handler| (FLI:DEFINE-FOREIGN-CALLABLE "default_xt_error_handler"))
  FLI::%FOREIGN-CALL-STACK% : #<Raw value #xBFFFEC40 (3221220416)>

Call to SYSTEM::%FUNCALL1-ON-LISP-STACK

Call to FLI::FOREIGN-CALLABLE-ENTRY-POINT-AUX

Catch frame: #<unbound>

Binding frame:
  FLI::*FOREIGN-OBJECT-SCOPE-STACK-DETAILS* : #(16 #1=(134598032 . 4096) (#<Pointer to type XT-LIBRARY:ARG = #x0805CD90> #1#))

Call to XT-LIBRARY::%XT-CREATE-MANAGED-WIDGET
  XT-LIBRARY::NAME        : "menu-button-for-Works"
  XT-LIBRARY:WIDGET-CLASS : #<XT-LIBRARY:WIDGET-CLASS XM-LIBRARY:CASCADE-BUTTON-GADGET 20F6260C>
  XT-LIBRARY::PARENT      : #<XT-LIBRARY:WIDGET "menu-bar" {XM-LIBRARY:ROW-COLUMN} (#x0809DCD0) 2182D034>
  XT-LIBRARY::ARGS        : #<Pointer to type XT-LIBRARY:ARG = #x0805CD90>
  XT-LIBRARY::NUM-ARGS    : 2

Binding frame:
  XT-LIBRARY::*XT-VALUES-SIDE-EFFECTS* : #<unbound>

Catch frame: #<unbound>

Binding frame:
  XT-LIBRARY::*FREE-XT-ARG-VAL-LIST* : #<unbound>

Catch frame: #<unbound>

Binding frame:
  FLI::*FOREIGN-OBJECT-SCOPE-STACK-DETAILS* : #(0 NIL NIL)

Binding frame:
  XT-LIBRARY::*XT-VALUES-ACCESS* : #<unbound>

Binding frame:
  XT-LIBRARY::*XT-VALUES-DISPLAY* : #<unbound>

Binding frame:
  XT-LIBRARY::*XT-VALUES-PARENT* : #<unbound>

Binding frame:
  XT-LIBRARY::*XT-VALUES-WIDGET* : #<unbound>

Binding frame:
  XT-LIBRARY::*XT-VALUES-ENVIRONMENT* : #<unbound>

Call to XT-LIBRARY:XT-CREATE-MANAGED-WIDGET
  XT-INTERNALS:WIDGET-NAME  : "menu-button-for-Works"
  XT-LIBRARY:WIDGET-CLASS   : XM-LIBRARY:CASCADE-BUTTON-GADGET
  XT-LIBRARY::PARENT-WIDGET : #<XT-LIBRARY:WIDGET "menu-bar" {XM-LIBRARY:ROW-COLUMN} (#x0809DCD0) 2182D034>
  XT-LIBRARY::RESOURCES     : (:SUB-MENU-ID #<XT-LIBRARY:WIDGET "menu-Works" {XM-LIBRARY:ROW-COLUMN} (#x0808AE20) 2182D9C4> :LABEL-STRING (:SIMPLE "Works" "menu-cascade-button"))

Call to CAPI-MOTIF-LIBRARY::CASCADE-BUTTON-CREATE-WIDGET
  CAPI-MOTIF-LIBRARY::MENU-REPRESENTATION : #<CAPI-MOTIF-LIBRARY::MENU-REPRESENTATION #1="Works" 2182D084>
  CAPI-MOTIF-LIBRARY::PARENT-WIDGET       : #<XT-LIBRARY:WIDGET "menu-bar" {XM-LIBRARY:ROW-COLUMN} (#x0809DCD0) 2182D034>
  CAPI-MOTIF-LIBRARY::ENABLED             : T

Call to CAPI-MOTIF-LIBRARY::CREATE-CASCADE-MENU
  CAPI-MOTIF-LIBRARY::MENU    : #<CAPI:MENU :WORKS-MENU #1="Works" 21824EEC>
  CAPI-MOTIF-LIBRARY::ENABLED : T

Call to CAPI-MOTIF-LIBRARY::MENU-CREATE
  CAPI-MOTIF-LIBRARY::MENU           : #<CAPI:MENU :WORKS-MENU #1="Works" 21824EEC>
  FILL                               : NIL
  CAPI-MOTIF-LIBRARY::PARENT-ENABLED : T

Call to CAPI-MOTIF-LIBRARY::MENU-BAR-CREATE
  CAPI-MOTIF-LIBRARY::INTERFACE-REPRESENTATION : #<CAPI-MOTIF-LIBRARY::TOP-LEVEL-INTERFACE-REPRESENTATION Representing [#1=#<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #2="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>] 2182A89C>
  CAPI-MOTIF-LIBRARY::CAPI-MENUS               : (#<CAPI:MENU :WORKS-MENU #3="Works" 21824EEC> #<CAPI:MENU :FILE-MENU #4="File" 218247AC> #<CAPI:MENU #2="Tools" 2182228C> #<CAPI:MENU #1="Windows" 218232E4> #<CAPI:MENU :HELP-MENU #5="Help" 21823404>)

Catch frame: (NIL)

Call to CAPI-MOTIF-LIBRARY::INVOKE-MENU-HANDLER-ENVIRONMENT
  CAPI-MOTIF-LIBRARY::HANDLER-NAME   : CAPI-LIBRARY:UPDATE-MENU-BAR
  CAPI-MOTIF-LIBRARY::REPRESENTATION : #<CAPI-MOTIF-LIBRARY::TOP-LEVEL-INTERFACE-REPRESENTATION Representing [#1=#<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #2="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>] 2182A89C>
  CAPI-MOTIF-LIBRARY::CONTINUATION   : #<closure (SUBFUNCTION 2 (METHOD CAPI-LIBRARY:UPDATE-MENU-BAR (CAPI:INTERFACE CAPI-MOTIF-LIBRARY::TOP-LEVEL-INTERFACE-REPRESENTATION T T T))) 2182D022>

Call to CAPI::CREATE-MENU-BAR
  CAPI::SELF : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>

Call to (METHOD CAPI::CREATE (CAPI:INTERFACE))
  CAPI::SELF : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>

Binding frame:
  CLOS::*NEXT-METHODS* : NIL

Call to Anonymous compiled function #<function 20800222>

Binding frame:
  CLOS::*NEXT-METHODS* : (#<closure 2181FA22>)

Call to CLOS::NEXT-METHOD-CALL-1
  CONS               : (METHOD CAPI::CREATE :AROUND (CAPI::LIBRARY-ELEMENT))
  CLOS::NEXT-METHODS : (#<closure 2181FA22>)
  DBG::G1            : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>

Call to (METHOD CAPI::CREATE :AROUND (CAPI::LIBRARY-ELEMENT))
  CAPI::SELF : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>

Binding frame:
  CLOS::*NEXT-METHODS* : (#<function (METHOD CAPI::CREATE :AROUND (CAPI::LIBRARY-ELEMENT)) 20DB4C5A> #<closure 2181FA22>)

Call to CLOS::NEXT-METHOD-CALL-1
  CONS               : (METHOD CAPI::CREATE :AROUND (CAPI:INTERFACE))
  CLOS::NEXT-METHODS : (#<function (METHOD CAPI::CREATE :AROUND (CAPI::LIBRARY-ELEMENT)) 20DB4C5A> #<closure 2181FA22>)
  DBG::G1            : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>

Catch frame: (NIL)

Call to (METHOD CAPI::CREATE :AROUND (CAPI:INTERFACE))
  CAPI::SELF : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>

Binding frame:
  CLOS::*NEXT-METHODS* : NIL

Call to Anonymous compiled function #<function 207FF08A>

Binding frame:
  CAPI::*POST-CREATE-ACTIONS* : NIL

Catch frame: #<unbound>

Call to (METHOD CAPI::DO-DISPLAY-AUX (T T T))
  CAPI::SELF            : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>
  CAPI::FINISHED-NOTIFY : #<closure (SUBFUNCTION CAPI::FINISHED-NOTIFY CAPI::RUN-IN-PROCESS) 217894CA>
  CAPI::ARGS            : :DONT-KNOW

Call to (SUBFUNCTION CAPI::DEFAULT-TOP-LEVEL CAPI::INITIALIZE-AND-PROCESS-EVENTS)



(SUBFUNCTION CAPI::DEFAULT-TOP-LEVEL CAPI::INITIALIZE-AND-PROCESS-EVENTS)
<- CAPI::INITIALIZE-AND-PROCESS-EVENTS
<- (METHOD CAPI-LIBRARY:INTERFACE-PROCESS-WRAPPER (CAPI-MOTIF-LIBRARY::SCREEN-REPRESENTATION T T))
<- (SUBFUNCTION 1 MP::INITIALIZE-PROCESS-STACK)
<- SYSTEM::%%FIRST-CALL-TO-STACK
Warning: 
Error of type simple-error in menu handler routine capi-library:update-menu-bar.
"Signal : segmentation violation(11)"
#<package COMMON-LISP-USER>


Call to X-UTILITIES:MAYBE-INVOKE-DEBUGGER
  CONDITION                   : #<SIMPLE-ERROR 206585D4>
  X-UTILITIES:PRINT-BACKTRACE : T
  RESTART                     : CAPI-MOTIF-LIBRARY::IGNORE-ERROR
  X-UTILITIES::HANDLE-ERROR   : T
  X-UTILITIES::BREAK-OF-MP    : NIL

Binding frame:
  CONDITIONS::*IN-SIGNAL-CATCH* : T

Call to SIGNAL
  CONDITIONS::DATUM     : #<SIMPLE-ERROR 206585D4>
  CONDITIONS::ARGUMENTS : NIL

Binding frame:
  CONDITIONS::*IN-SIGNAL-CATCH* : NIL

Catch frame: CONDITIONS::SIGNAL-CATCH

Binding frame:
  CONDITIONS::*BROKEN-ON-SIGNALS* : NIL

Call to (SUBFUNCTION SYSTEM::|%FOREIGN-CALLABLE/lisp_signal_error_on_c_stack| (FLI:DEFINE-FOREIGN-CALLABLE "lisp_signal_error_on_c_stack"))
  FLI::%FOREIGN-CALL-STACK% : :DONT-KNOW

Call to SYSTEM::%FUNCALL1-ON-LISP-STACK

Call to FLI::FOREIGN-CALLABLE-ENTRY-POINT-AUX

Catch frame: #<unbound>

Binding frame:
  FLI::*FOREIGN-OBJECT-SCOPE-STACK-DETAILS* : #(16 #1=(134598032 . 4096) (#<Pointer to type XT-LIBRARY:ARG = #x0805CD90> #1#))

Call to XT-LIBRARY::%XT-CREATE-MANAGED-WIDGET
  XT-LIBRARY::NAME        : "menu-button-for-Works"
  XT-LIBRARY:WIDGET-CLASS : #<XT-LIBRARY:WIDGET-CLASS XM-LIBRARY:CASCADE-BUTTON-GADGET 20F6260C>
  XT-LIBRARY::PARENT      : #<XT-LIBRARY:WIDGET "menu-bar" {XM-LIBRARY:ROW-COLUMN} (#x0809DCD0) 21781374>
  XT-LIBRARY::ARGS        : #<Pointer to type XT-LIBRARY:ARG = #x0805CD90>
  XT-LIBRARY::NUM-ARGS    : 2

Binding frame:
  XT-LIBRARY::*XT-VALUES-SIDE-EFFECTS* : #<unbound>

Catch frame: #<unbound>

Binding frame:
  XT-LIBRARY::*FREE-XT-ARG-VAL-LIST* : #<unbound>

Catch frame: #<unbound>

Binding frame:
  FLI::*FOREIGN-OBJECT-SCOPE-STACK-DETAILS* : #(0 NIL NIL)

Binding frame:
  XT-LIBRARY::*XT-VALUES-ACCESS* : #<unbound>

Binding frame:
  XT-LIBRARY::*XT-VALUES-DISPLAY* : #<unbound>

Binding frame:
  XT-LIBRARY::*XT-VALUES-PARENT* : #<unbound>

Binding frame:
  XT-LIBRARY::*XT-VALUES-WIDGET* : #<unbound>

Binding frame:
  XT-LIBRARY::*XT-VALUES-ENVIRONMENT* : #<unbound>

Call to XT-LIBRARY:XT-CREATE-MANAGED-WIDGET
  XT-INTERNALS:WIDGET-NAME  : "menu-button-for-Works"
  XT-LIBRARY:WIDGET-CLASS   : XM-LIBRARY:CASCADE-BUTTON-GADGET
  XT-LIBRARY::PARENT-WIDGET : #<XT-LIBRARY:WIDGET "menu-bar" {XM-LIBRARY:ROW-COLUMN} (#x0809DCD0) 21781374>
  XT-LIBRARY::RESOURCES     : (:SUB-MENU-ID #<XT-LIBRARY:WIDGET "menu-Works" {XM-LIBRARY:ROW-COLUMN} (#x0808AE20) 21780C34> :LABEL-STRING (:SIMPLE "Works" "menu-cascade-button"))

Call to CAPI-MOTIF-LIBRARY::CASCADE-BUTTON-CREATE-WIDGET
  CAPI-MOTIF-LIBRARY::MENU-REPRESENTATION : #<CAPI-MOTIF-LIBRARY::MENU-REPRESENTATION #1="Works" 2178132C>
  CAPI-MOTIF-LIBRARY::PARENT-WIDGET       : #<XT-LIBRARY:WIDGET "menu-bar" {XM-LIBRARY:ROW-COLUMN} (#x0809DCD0) 21781374>
  CAPI-MOTIF-LIBRARY::ENABLED             : T

Call to CAPI-MOTIF-LIBRARY::CREATE-CASCADE-MENU
  CAPI-MOTIF-LIBRARY::MENU    : #<CAPI:MENU :WORKS-MENU #1="Works" 2178593C>
  CAPI-MOTIF-LIBRARY::ENABLED : T

Call to CAPI-MOTIF-LIBRARY::MENU-CREATE
  CAPI-MOTIF-LIBRARY::MENU           : #<CAPI:MENU :WORKS-MENU #1="Works" 2178593C>
  FILL                               : NIL
  CAPI-MOTIF-LIBRARY::PARENT-ENABLED : T

Call to CAPI-MOTIF-LIBRARY::MENU-BAR-CREATE
  CAPI-MOTIF-LIBRARY::INTERFACE-REPRESENTATION : #<CAPI-MOTIF-LIBRARY::TOP-LEVEL-INTERFACE-REPRESENTATION Representing [#1=#<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #2="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>] 217821EC>
  CAPI-MOTIF-LIBRARY::CAPI-MENUS               : (#<CAPI:MENU :WORKS-MENU #3="Works" 2178593C> #<CAPI:MENU :FILE-MENU #4="File" 21785C84> #<CAPI:MENU #2="Tools" 21786DFC> #<CAPI:MENU #1="Windows" 217868A4> #<CAPI:MENU :HELP-MENU #5="Help" 2178681C>)

Catch frame: (NIL)

Call to CAPI-MOTIF-LIBRARY::INVOKE-MENU-HANDLER-ENVIRONMENT
  CAPI-MOTIF-LIBRARY::HANDLER-NAME   : CAPI-LIBRARY:UPDATE-MENU-BAR
  CAPI-MOTIF-LIBRARY::REPRESENTATION : #<CAPI-MOTIF-LIBRARY::TOP-LEVEL-INTERFACE-REPRESENTATION Representing [#1=#<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #2="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>] 217821EC>
  CAPI-MOTIF-LIBRARY::CONTINUATION   : #<closure (SUBFUNCTION 2 (METHOD CAPI-LIBRARY:UPDATE-MENU-BAR (CAPI:INTERFACE CAPI-MOTIF-LIBRARY::TOP-LEVEL-INTERFACE-REPRESENTATION T T T))) 217813AA>

Call to CAPI::CREATE-MENU-BAR
  CAPI::SELF : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>

Call to (METHOD CAPI::CREATE (CAPI:INTERFACE))
  CAPI::SELF : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>

Binding frame:
  CLOS::*NEXT-METHODS* : NIL

Call to #<function 20800222>

Binding frame:
  CLOS::*NEXT-METHODS* : (#<closure 21788DFA>)

Call to CLOS::NEXT-METHOD-CALL-1
  CONS               : (METHOD CAPI::CREATE :AROUND (CAPI::LIBRARY-ELEMENT))
  CLOS::NEXT-METHODS : (#<closure 21788DFA>)
  DBG::G1            : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>

Call to (METHOD CAPI::CREATE :AROUND (CAPI::LIBRARY-ELEMENT))
  CAPI::SELF : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>

Binding frame:
  CLOS::*NEXT-METHODS* : (#<function (METHOD CAPI::CREATE :AROUND (CAPI::LIBRARY-ELEMENT)) 20DB4C5A> #<closure 21788DFA>)

Call to CLOS::NEXT-METHOD-CALL-1
  CONS               : (METHOD CAPI::CREATE :AROUND (CAPI:INTERFACE))
  CLOS::NEXT-METHODS : (#<function (METHOD CAPI::CREATE :AROUND (CAPI::LIBRARY-ELEMENT)) 20DB4C5A> #<closure 21788DFA>)
  DBG::G1            : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>

Catch frame: (NIL)

Call to (METHOD CAPI::CREATE :AROUND (CAPI:INTERFACE))
  CAPI::SELF : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>

Binding frame:
  CLOS::*NEXT-METHODS* : NIL

Call to #<function 207FF08A>

Binding frame:
  CAPI::*POST-CREATE-ACTIONS* : NIL

Catch frame: #<unbound>

Call to (METHOD CAPI::DO-DISPLAY-AUX (T T T))
  CAPI::SELF            : #<LISPWORKS-TOOLS:LISPWORKS-ECHO-PODIUM #1="LispWorks 4.2.7 on penzance.cley.com" 2176FE94>
  CAPI::FINISHED-NOTIFY : #<closure (SUBFUNCTION CAPI::FINISHED-NOTIFY CAPI::RUN-IN-PROCESS) 217894CA>
  CAPI::ARGS            : :DONT-KNOW

Call to (SUBFUNCTION CAPI::DEFAULT-TOP-LEVEL CAPI::INITIALIZE-AND-PROCESS-EVENTS)



(SUBFUNCTION CAPI::DEFAULT-TOP-LEVEL CAPI::INITIALIZE-AND-PROCESS-EVENTS)
<- CAPI::INITIALIZE-AND-PROCESS-EVENTS
<- (METHOD CAPI-LIBRARY:INTERFACE-PROCESS-WRAPPER (CAPI-MOTIF-LIBRARY::SCREEN-REPRESENTATION T T))
<- (SUBFUNCTION 1 MP::INITIALIZE-PROCESS-STACK)
<- SYSTEM::%%FIRST-CALL-TO-STACK

Error: Signal : segmentation violation(11)
   1 Destroy element #<capi:list-panel lispworks-tools::restarts [25 items] 2065B064>.
   2 (continue) Ignore the error.
   3 (abort) Destroy interface nil and its representation.
   4 Destroy element #<capi:list-panel lispworks-tools::restarts [22 items] 21880784>.
   5 Ignore the error.
   6 Destroy interface nil and its representation.
   7 Destroy element #<capi:list-panel lispworks-tools::restarts [19 items] 2186284C>.
   8 Ignore the error.
   9 Destroy interface nil and its representation.
  10 Destroy element #<capi:list-panel lispworks-tools::restarts [16 items] 21841F94>.
  11 Ignore the error.
  12 Destroy interface nil and its representation.
  13 Destroy element #<capi:list-panel lispworks-tools::restarts [13 items] 218502C4>.
  14 Ignore the error.
  15 Destroy interface nil and its representation.
  16 Destroy element #<capi:list-panel lispworks-tools::restarts [10 items] 2181363C>.
  17 Ignore the error.
  18 Destroy interface nil and its representation.
  19 Destroy element #<capi:list-panel lispworks-tools::restarts [7 items] 2181A5D4>.
  20 Ignore the error.
  21 Destroy interface nil and its representation.
  22 Destroy element #<capi:list-panel lispworks-tools::restarts [4 items] 217F1814>.
  23 Ignore the error.
  24 Destroy interface nil and its representation.
  25 Return a value to use.
  26 Supply a new second argument.
  27 Ignore the error.
  28 Destroy interface "LispWorks 4.2.7 on penzance.cley.com" and its representation.

Type :b for backtrace, :c <option number> to proceed,  or :? for other options

CL-USER 1 : 9 > (quit)

Error: Signal : segmentation violation(11)
  1 (abort) Destroy interface "LispWorks 4.2.7 on penzance.cley.com" and its representation.

Type :b for backtrace, :c <option number> to proceed,  or :? for other options

CL-USER 2 : 1 > (quit)
$
Script done on Wed Nov  6 12:31:08 2002

generating a bug form in an handler-case

Does anyone know how to generate a bug-form in an handler-case ?

I want to catch errors on my servers and e-mail them to me automatically .

Marc

Re: generating a bug form in an handler-case

Unable to parse email body. Email id is 668

Re: non-broken lesstif versions

Tim Bradshaw <tfb@cley.com> writes:

> Does anyone have a list of which ones work?
> 
> I was using 0.92.32-1 (which I think is what comes on the LW 4.2
> CDs).  For really bad reasons (the CDs are in a box with a lot of
> plants on top of it and I'm lazy), I fetched the current versions,
> which are 0.93.36-1, and it fails horribly (typescript attached).  So
> it looks like I need to dig out the CDs with 0.92 on...
> 
> This is all on RH 7.1 (which is old, I know).
I'm using openmotif for it and do not have any problems. 
It is this version:
libmotif_2.1.30-5_i386.deb

I once had lesstif running but it the contect menues were messed up
with it. I do not have any such problems with openmotif.

Regards
Friedrich

Uncommen Region?

Well there is Comment Region but how to Uncomment a region.
C-u Comment Region does not work the prefix just inserts as many
comments as requested. 

Regards
Friedrich

Re: Uncommen Region?

"Friedrich Dominicus" <frido@q-software-solutions.com> wrote:

| Well there is Comment Region but how to Uncomment a region.
| C-u Comment Region does not work the prefix just inserts as many
| comments as requested.

Here is the version suggested by Dave (altered a bit):

(defcommand "Delete Comment Prefix in Region" (p)
     "Delete all sequences of ; at start of each line in region"
     "Delete comment prefixes"
  (declare (ignore p))
  (let ((buffer (editor:current-buffer)))
    (editor:with-point
       ((start (editor:buffer-point buffer))
        (end (editor:buffer-mark buffer)))
      (when (editor:point> start end)
        (rotatef start end)) ; so point<= start end
      (editor:collect-undo buffer
        (loop while (editor:point< start end)
              do
              (unless (editor:start-line-p start)               ; ensure at
start of line
                (editor:line-start start))
              (editor:with-point ((end1 start))
                ;; move a point to end of command prefix
                (loop while (eq (editor:character-at end1 0) #\;)
                      do (editor:character-offset end1 1))
                (unless (point= end1 start)
                  (when (eq (editor:character-at end1 0) #\Space) ; remove
separating space
                    (editor:character-offset end1 1)))          ; if any
                (editor:delete-between-points start end1))      ; delete the
comment prefix

              (editor:line-offset start 1))))))                 ; move to next
line

---
Sincerely,
Dmitri Ivanov
www.aha.ru/~divanov

Re: Uncommen Region?

"Dmitri Ivanov" <divanov2@postman.ru> writes:

> "Friedrich Dominicus" <frido@q-software-solutions.com> wrote:
> 
> | Well there is Comment Region but how to Uncomment a region.
> | C-u Comment Region does not work the prefix just inserts as many
> | comments as requested.
> 
> Here is the version suggested by Dave (altered a bit):
Thanks I guess I will rename it ;-)

Regards
Friedrich

Editor Background Color

xprop tells me that the class for this is
WM_CLASS(STRING) = "editor", "Lispworks"

If I try to set the background color in the Lispworks Resource file
Lispworks*editor.background: #my-wished-color

nothing happens it has worked fine elsewhere so what it the correct
way setting the editor background color?

Regards
Friedrich

Re: Editor Background Color

Unable to parse email body. Email id is 676

Re: Editor Background Color

davef@xanalys.com writes:

>    xprop tells me that the class for this is
>    WM_CLASS(STRING) = "editor", "Lispworks"
> 
>    If I try to set the background color in the Lispworks Resource file
>    Lispworks*editor.background: #my-wished-color
> 
>    nothing happens it has worked fine elsewhere so what it the correct
>    way setting the editor background color?
> 
> Lispworks*editor-pane.background:	 #my-wished-color

Ok, my answer did not get through. I have adopted this line too:

Lispworks*editor-pane.background:			#fdf8f3

which definitly is not white. But the backround is still white.

Regards
Friedrich

Re: Editor Background Color

Unable to parse email body. Email id is 678

Re: Editor Background Color

davef@xanalys.com writes:

>  > 
>    >    If I try to set the background color in the Lispworks Resource file
>    >    Lispworks*editor.background: #my-wished-color
>    > 
>    >    nothing happens it has worked fine elsewhere so what it the correct
>    >    way setting the editor background color?
>    > 
>    > Lispworks*editor-pane.background:	 #my-wished-color
> 
>    Ok, my answer did not get through. 
> 
> [This was because you posted a graphic which made your message larger
> than the list limit of 40000 bytes.]
> 
> 
>    I have adopted this line too:
> 
>    Lispworks*editor-pane.background:			#fdf8f3
Thanks, for your help. The color number was wrong. Stupid me. 

Regards
Friedrich

Re: generating a bug form in an handler-case

* Nick Levine wrote:
> There was some email recently suggesting use of
> mp:map-process-backtrace and the macro dbg:with-debugger-stack. I
> didn't keep a copy and - being in the throws of an office move - today
> isn't my day for experimentation.

Our backtrace-generating macro looks like:

    ;;;; Doing something with a backtrace on error.
    ;;;

    (defun call/backtrace (fn &optional (backtrace
					 #+com.cley.weld/debug t
					 #-com.cley.weld/debug nil))
      (declare (dynamic-extent fn)
	       (type function fn))
      (if backtrace
	  (handler-bind
	      ((error #'(lambda (e)
			  (let ((bt '()))                      
			    (mp:map-process-backtrace 
			     mp:*current-process*
			     #'(lambda (o)
				 (push o bt)))
			    (with-standard-io-syntax
			      (let ((*print-readably* nil))
				(format *debug-io* 
					"~&Error: ~A~%Backtrace:~{~% ~S~}~%"
					e (nreverse bt))))))))
	    (funcall fn))
	(funcall fn)))

    (defmacro with-backtrace ((&optional (backtrace
					  #+com.cley.weld/debug t
					  #-com.cley.weld/debug nil))
			      &body forms)
      `(let ((.fn. #'(lambda ()
		       ,@forms)))
	 (declare (dynamic-extent .fn.))
	 (call/backtrace .fn. ,backtrace)))


Obviously, you can pump stuff into some other stream (for instance,
one open to an SMTP server...)

--tim
Updated at: 2020-12-10 09:01 UTC