Skip to content

GitLab

  • Menu
Projects Groups Snippets
    • Loading...
  • Help
    • Help
    • Support
    • Community forum
    • Submit feedback
    • Contribute to GitLab
  • Sign in / Register
  • C clim-tos
  • Project information
    • Project information
    • Activity
    • Labels
    • Members
  • Repository
    • Repository
    • Files
    • Commits
    • Branches
    • Tags
    • Contributors
    • Graph
    • Compare
  • Issues 10
    • Issues 10
    • List
    • Boards
    • Service Desk
    • Milestones
  • Merge requests 0
    • Merge requests 0
  • CI/CD
    • CI/CD
    • Pipelines
    • Jobs
    • Schedules
  • Deployments
    • Deployments
    • Environments
    • Releases
  • Monitor
    • Monitor
    • Incidents
  • Packages & Registries
    • Packages & Registries
    • Container Registry
  • Analytics
    • Analytics
    • Value stream
    • CI/CD
    • Repository
  • Wiki
    • Wiki
  • Snippets
    • Snippets
  • Activity
  • Graph
  • Create a new issue
  • Jobs
  • Commits
  • Issue Boards
Collapse sidebar
  • mcclim
  • clim-tos
  • Issues
  • #12

Closed
Open
Created Jul 26, 2017 by Daniel Kochmański@dkochmanskiOwner

Cannot use clim-demo:start-demo twice

Steps to reproduce:

  1. Start clim demo
    (ql:quickload '(clim-tos clim-tos/clx-backend clim-tos/examples))
    (clim-demo:start-demo)
  1. Close demo (Alt-F4, or click [x] on the window bar.
There is no applicable method for the generic function
  #<STANDARD-GENERIC-FUNCTION CLIM:MEDIUM-MERGED-TEXT-STYLE (3)>
when called with arguments
  (NIL).
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [RETRY] Retry calling the generic function.
 1: [ABORT] Return to Demo Driver command level
 2: [NIL] Demo Driver top level
 3: [NIL] Exit Demo Driver
 4: [ABORT] abort thread (#<THREAD "Demo Driver" RUNNING {1003AB2383}>)

Backtrace:
  0: ((:METHOD NO-APPLICABLE-METHOD (T)) #<STANDARD-GENERIC-FUNCTION CLIM:MEDIUM-MERGED-TEXT-STYLE (3)> NIL) [fast-method]
  1: (SB-PCL::CALL-NO-APPLICABLE-METHOD #<STANDARD-GENERIC-FUNCTION CLIM:MEDIUM-MERGED-TEXT-STYLE (3)> (NIL))
  2: ((:METHOD CLIM:MEDIUM-MERGED-TEXT-STYLE (CLIM:STANDARD-SHEET-OUTPUT-MIXIN)) #<CLIM:APPLICATION-PANE {10077DE563}>) [fast-method]
  3: ((:METHOD CLIM-INTERNALS::DECODE-STREAM-FOR-WRITING (CLIM-INTERNALS::OUTPUT-PROTOCOL-MIXIN)) #<CLIM:APPLICATION-PANE {10077DE563}> NIL) [fast-method]
  4: ((:METHOD CLIM-INTERNALS::DECODE-STREAM-FOR-WRITING (CLIM:STANDARD-ENCAPSULATING-STREAM)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> NIL) [fast-method]
  5: ((:METHOD CLIM-INTERNALS::DO-INPUT-BUFFER-SCREEN-REAL-ESTATE (CLIM-INTERNALS::INPUT-EDITING-STREAM-MIXIN T)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> #<FUNCTION (FLET IGNORE :IN CLIM-INTERNA..
  6: ((:METHOD CLIM-INTERNALS::INPUT-BUFFER-INPUT-POSITION->CURSOR-POSITION (CLIM-INTERNALS::INPUT-EDITING-STREAM-MIXIN)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> 0) [fast-method]
  7: ((:METHOD CLIM:STREAM-READ-GESTURE (CLIM-INTERNALS::INPUT-EDITING-STREAM-MIXIN)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> :TIMEOUT NIL :PEEK-P NIL :INPUT-WAIT-TEST NIL :INPUT-WAIT-HANDLER #<..
  8: (CLIM:READ-TOKEN #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> :INPUT-WAIT-HANDLER NIL :POINTER-BUTTON-PRESS-HANDLER NIL :CLICK-ONLY T :TIMEOUT NIL)
  9: ((:METHOD CLIM:ACCEPT-METHOD (T T T T T CLIM:TEXTUAL-VIEW)) #<unused argument> #<unused argument> #<unused argument> #<unused argument> #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> #<unused argu..
 10: ((FLET CLIM-INTERNALS::BODY-CONTINUATION :IN CLIM:ACCEPT-1))
 11: (CLIM-INTERNALS::INVOKE-WITH-INPUT-CONTEXT (CLIM:COMMAND :COMMAND-TABLE CLIM-DEMO::DEMO-DRIVER) NIL #<CLOSURE (FLET CLIM-INTERNALS::BODY-CONTINUATION :IN CLIM:ACCEPT-1) {7FFFEBDAD58B}> #<CLOSURE (FLET..
 12: ((FLET CLIM-INTERNALS::WITH-INPUT-EDITING-BODY :IN CLIM:ACCEPT-1) #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}>)
 13: (CLIM-INTERNALS::INVOKE-WITH-INPUT-CONTEXT (CLIM-INTERNALS::INPUT-EDITOR :STREAM #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}>) NIL #<CLOSURE (FLET CLIM-INTERNALS::BODY-CONTINUATION :IN CLIM-INTE..
 14: ((FLET CLIM-INTERNALS::WITH-OUTPUT-RECORDING-OPTIONS-BODY :IN CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING))
 15: ((:METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS (CLIM-INTERNALS::OUTPUT-RECORDING-MIXIN T T T)) #<CLIM:APPLICATION-PANE {10077DE563}> #<CLOSURE (FLET CLIM-INTERNALS::WITH-OUTPUT-RECORDING-OPTIONS-..
 16: ((:METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS (CLIM:STANDARD-ENCAPSULATING-STREAM T T T)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> #<CLOSURE (FLET CLIM-INTERNALS::WITH-OUTPUT-RECORDING..
 17: (CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING #<CLIM:STANDARD-INPUT-EDITING-STREAM {100E3EB923}> #<CLOSURE (FLET CLIM-INTERNALS::WITH-INPUT-EDITING-BODY :IN CLIM:ACCEPT-1) {7FFFEBDADD7B}> CLIM:STANDARD-I..
 18: (CLIM:ACCEPT-1 #<CLIM:APPLICATION-PANE {10077DE563}> (CLIM:COMMAND :COMMAND-TABLE CLIM-DEMO::DEMO-DRIVER) :VIEW #<CLIM:TEXTUAL-VIEW {1003E3E943}> :DEFAULT NIL :DEFAULT-TYPE NIL :HISTORY NIL :INSERT-DE..
 19: (CLIM:ACCEPT (CLIM:COMMAND :COMMAND-TABLE CLIM-DEMO::DEMO-DRIVER) :STREAM #<CLIM:APPLICATION-PANE {10077DE563}> :PROMPT NIL) [more]
 20: (CLIM:READ-COMMAND CLIM-DEMO::DEMO-DRIVER :STREAM #<CLIM:APPLICATION-PANE {10077DE563}> :COMMAND-PARSER NIL :COMMAND-UNPARSER NIL :PARTIAL-COMMAND-PARSER NIL :USE-KEYSTROKES NIL)
 21: ((:METHOD CLIM:READ-FRAME-COMMAND :AROUND (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}> :STREAM #<CLIM:APPLICATION-PANE {10077DE563}>) [fast-method]
 22: ((:METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}> :COMMAND-PARSER NIL :COMMAND-UNPARSER NIL :PARTIAL-COMMAND-PARSER NIL :PROMPT "Command:..
 23: ((:METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [fast-method]
 24: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:STANDARD-APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [more]
 25: ((:METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [fast-method]
 26: ((LAMBDA NIL :IN BORDEAUX-THREADS::BINDING-DEFAULT-SPECIALS))
  1. After selecting any closing restart try again
    (clim-demo:start-demo)
Cannot enable a disowned frame #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [NIL] Demo Driver top level
 1: [NIL] Exit Demo Driver
 2: [ABORT] abort thread (#<THREAD "Demo Driver" RUNNING {1003AB56B3}>)

Backtrace:
  0: ((:METHOD CLIM:ENABLE-FRAME (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [fast-method]
  1: ((:METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}> :COMMAND-PARSER NIL :COMMAND-UNPARSER NIL :PARTIAL-COMMAND-PARSER NIL :PROMPT "Command:..
  2: ((:METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [fast-method]
  3: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:STANDARD-APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [more]
  4: ((:METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (CLIM:STANDARD-APPLICATION-FRAME)) #<CLIM-DEMO::DEMO-DRIVER {10040B4443}>) [fast-method]
  5: ((LAMBDA NIL :IN BORDEAUX-THREADS::BINDING-DEFAULT-SPECIALS))
  6: ((FLET #:WITHOUT-INTERRUPTS-BODY-1138 :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
  7: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
  8: ((FLET #:WITHOUT-INTERRUPTS-BODY-358 :IN SB-THREAD::CALL-WITH-MUTEX))
  9: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE) {7FFFF0A56D6B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THR..
Edited Jul 26, 2017 by Daniel Kochmański
Assignee
Assign to
Time tracking