Skip to content

Instantly share code, notes, and snippets.

@lokedhs
Created October 29, 2019 15:53
Show Gist options
  • Save lokedhs/525469926d398c327eabbcd5e1cdb05b to your computer and use it in GitHub Desktop.
Save lokedhs/525469926d398c327eabbcd5e1cdb05b to your computer and use it in GitHub Desktop.
There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION CLIM-INTERNALS::%INVALIDATE-CACHED-DEVICE-REGIONS (1)>
when called with arguments
(#<CLIM-INTERNALS::MIRRORED-PIXMAP {100AA776C3}>).
[Condition of type SB-PCL::NO-APPLICABLE-METHOD-ERROR]
See also:
Common Lisp Hyperspec, 7.6.6 [:section]
Restarts:
0: [RETRY] Retry calling the generic function.
1: [ABORT] Return to application command loop.
2: [RETRY] Retry SLIME REPL evaluation request.
3: [*ABORT] Return to SLIME's top level.
4: [ABORT] abort thread (#<THREAD "repl-thread" RUNNING {1002151BC3}>)
Backtrace:
0: ((:METHOD NO-APPLICABLE-METHOD (T)) #<STANDARD-GENERIC-FUNCTION CLIM-INTERNALS::%INVALIDATE-CACHED-DEVICE-REGIONS (1)> #<CLIM-INTERNALS::MIRRORED-PIXMAP {100AA776C3}>) [fast-method]
1: (SB-PCL::CALL-NO-APPLICABLE-METHOD #<STANDARD-GENERIC-FUNCTION CLIM-INTERNALS::%INVALIDATE-CACHED-DEVICE-REGIONS (1)> (#<CLIM-INTERNALS::MIRRORED-PIXMAP {100AA776C3}>))
2: ((:METHOD (SETF CLIM:MEDIUM-CLIPPING-REGION) :AFTER (T CLIM:MEDIUM)) #<unused argument> #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100ABCB283}>) [fast-method]
Locals:
CLIM:MEDIUM = #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100ABCB283}>
CLIM:SHEET = #<CLIM-INTERNALS::MIRRORED-PIXMAP {100AA776C3}>
3: ((SB-PCL::EMF (SETF CLIM:MEDIUM-CLIPPING-REGION)) #<unused argument> #<unused argument> #<CLIM:STANDARD-BOUNDING-RECTANGLE X 0:9 Y 0:20.0> #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100ABCB283}>)
4: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T)) #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100ABCB283}> #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100ABCB283}> #<CLOSURE (FLET CLI..
5: ((SB-PCL::EMF CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL) #<unused argument> #<unused argument> #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100ABCB283}> #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100ABCB2..
6: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS (CLIM-INTERNALS::PIXMAP T)) #<CLIM-INTERNALS::MIRRORED-PIXMAP {100AA776C3}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN CLIM:DRAW-TEXT*) {7F2341E..
7: (CLIM:DRAW-TEXT* #<CLIM-INTERNALS::MIRRORED-PIXMAP {100AA776C3}> "T" 0 16.0 :TEXT-STYLE #<CLIM:STANDARD-TEXT-STYLE :FIX :ROMAN 20> :INK #<CLIM-INTERNALS::NAMED-COLOR "white"> :CLIPPING-REGION #<CLIM:S..
8: (CLIM-EDIT::RECOMPUTE-AND-REPAINT-CONTENT #<CLIM-CLX::CLX-852-EDITOR-PANE CLIM-EDIT::EDITOR-PANE {100881FC03}> :FORCE-REPAINT T :REGION #<CLIM:STANDARD-BOUNDING-RECTANGLE X 0:900 Y 0:548.0>)
9: ((:METHOD CLIM:HANDLE-REPAINT (CLIM-EDIT::EDITOR-PANE T)) #<CLIM-CLX::CLX-852-EDITOR-PANE CLIM-EDIT::EDITOR-PANE {100881FC03}> #<CLIM:STANDARD-BOUNDING-RECTANGLE X 0:900 Y 0:548.0>) [fast-method]
10: ((FLET CALL-NEXT-METHOD :IN "/home/elias/prog/McCLIM/Core/clim-basic/repaint.lisp"))
11: ((FLET "GCONTINUATION26" :IN CLIM:HANDLE-REPAINT) #<unused argument>)
12: ((FLET CLIM-INTERNALS::GRAPHICS-OP :IN CLIM:INVOKE-WITH-DRAWING-OPTIONS) #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100976F913}>)
13: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T)) #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100976F913}> #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100976F913}> #<CLOSURE (FLET CLI..
14: ((SB-PCL::EMF CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL) #<unused argument> #<unused argument> #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100976F913}> #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100976F9..
15: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS (CLIM:MEDIUM T)) #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100976F913}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN CLIM:INVOKE-WITH-DRAWING-OPTIONS)..
16: ((:METHOD CLIM:INVOKE-WITH-DRAWING-OPTIONS (CLIM:MEDIUM T)) #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100976F913}> #<CLOSURE (FLET "GCONTINUATION26" :IN CLIM:HANDLE-REPAINT) {7F2341E7C72B}> :CLIPPING-REGI..
17: ((SB-PCL::EMF CLIM:INVOKE-WITH-DRAWING-OPTIONS) #<unused argument> #<unused argument> #<CLIM-FREETYPE::CLX-FREETYPE-MEDIUM {100976F913}> #<CLOSURE (FLET "GCONTINUATION26" :IN CLIM:HANDLE-REPAINT) {7F2..
18: ((:METHOD CLIM:HANDLE-REPAINT :AROUND (CLIM:SHEET-WITH-MEDIUM-MIXIN T)) #<CLIM-CLX::CLX-852-EDITOR-PANE CLIM-EDIT::EDITOR-PANE {100881FC03}> #<CLIM:STANDARD-BOUNDING-RECTANGLE X 0:900 Y 0:548.0>) [fas..
19: ((:METHOD CLIM:REPAINT-SHEET (CLIM:BASIC-SHEET T)) #<CLIM-CLX::CLX-852-EDITOR-PANE CLIM-EDIT::EDITOR-PANE {100881FC03}> #<CLIM:STANDARD-BOUNDING-RECTANGLE X 0:900 Y 0:548>) [fast-method]
20: ((SB-PCL::EMF CLIM:REPAINT-SHEET) #<unused argument> #<unused argument> #<CLIM-CLX::CLX-852-EDITOR-PANE CLIM-EDIT::EDITOR-PANE {100881FC03}> #<CLIM:STANDARD-BOUNDING-RECTANGLE X 0:900 Y 0:548>)
21: ((FLET CALL-NEXT-METHOD :IN "/home/elias/prog/McCLIM/Core/clim-basic/repaint.lisp"))
22: ((:METHOD CLIM:REPAINT-SHEET :AROUND (CLIM:BASIC-SHEET T)) #<CLIM-CLX::CLX-852-EDITOR-PANE CLIM-EDIT::EDITOR-PANE {100881FC03}> #<CLIM:STANDARD-BOUNDING-RECTANGLE X 0:900 Y 0:548>) [fast-method]
23: ((:METHOD CLIM:HANDLE-EVENT (CLIM:STANDARD-REPAINTING-MIXIN CLIM:WINDOW-REPAINT-EVENT)) #<CLIM-CLX::CLX-852-EDITOR-PANE CLIM-EDIT::EDITOR-PANE {100881FC03}> #<CLIM:WINDOW-REPAINT-EVENT {100A78FF03}>) ..
24: (CLIM-EXTENSIONS:SIMPLE-EVENT-LOOP #<CLIM-EDIT::CLIM-EDIT-FRAME {1006D254A3}>)
25: ((:METHOD CLIM:READ-FRAME-COMMAND (CLIM:APPLICATION-FRAME)) #<CLIM-EDIT::CLIM-EDIT-FRAME {1006D254A3}> :STREAM NIL) [fast-method]
26: ((FLET CALL-NEXT-METHOD :IN "/home/elias/prog/McCLIM/Core/clim-core/frames.lisp"))
27: ((:METHOD CLIM:READ-FRAME-COMMAND :AROUND (CLIM:APPLICATION-FRAME)) #<CLIM-EDIT::CLIM-EDIT-FRAME {1006D254A3}> :STREAM NIL) [fast-method]
28: ((FLET CLIM-INTERNALS::EXECUTE-COMMAND :IN CLIM:DEFAULT-FRAME-TOP-LEVEL))
29: ((:METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<CLIM-EDIT::CLIM-EDIT-FRAME {1006D254A3}> :COMMAND-PARSER CLIM:COMMAND-LINE-COMMAND-PARSER :COMMAND-UNPARSER CLIM:COMMAND-LINE-COMMAND..
30: ((SB-PCL::EMF CLIM:DEFAULT-FRAME-TOP-LEVEL) #<unused argument> #<unused argument> #<CLIM-EDIT::CLIM-EDIT-FRAME {1006D254A3}>)
31: ((LAMBDA (#:FRAME-ARG0) :IN "/home/elias/prog/clim-edit/src/edit.lisp") #<CLIM-EDIT::CLIM-EDIT-FRAME {1006D254A3}>)
32: ((:METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<CLIM-EDIT::CLIM-EDIT-FRAME {1006D254A3}>) [fast-method]
33: ((FLET CALL-NEXT-METHOD :IN "/home/elias/prog/McCLIM/Core/clim-core/frames.lisp"))
34: ((FLET "FORM-FUN-57" :IN CLIM:RUN-FRAME-TOP-LEVEL))
35: ((:METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (CLIM:APPLICATION-FRAME)) #<CLIM-EDIT::CLIM-EDIT-FRAME {1006D254A3}>) [fast-method]
36: (CLIM-EDIT:CLIM-EDIT)
37: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CLIM-EDIT:CLIM-EDIT) #<NULL-LEXENV>)
38: (EVAL (CLIM-EDIT:CLIM-EDIT))
39: (SWANK::EVAL-REGION "(clim-edit:clim-edit) ..)
40: ((LAMBDA NIL :IN SWANK-REPL::REPL-EVAL))
41: (SWANK-REPL::TRACK-PACKAGE #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {1006D247EB}>)
42: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {1006D2478B}>)
43: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {1006D2476B}>)
44: (SWANK-REPL::REPL-EVAL "(clim-edit:clim-edit) ..)
45: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK-REPL:LISTENER-EVAL "(clim-edit:clim-edit) ..)
46: (EVAL (SWANK-REPL:LISTENER-EVAL "(clim-edit:clim-edit) ..)
47: (SWANK:EVAL-FOR-EMACS (SWANK-REPL:LISTENER-EVAL "(clim-edit:clim-edit) ..)
48: (SWANK::PROCESS-REQUESTS NIL)
49: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS))
50: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS))
51: (SWANK/SBCL::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK {52D1516B}> #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {10021580FB}>)
52: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/elias/src/slime/swank/sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK {52D1516B}> #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {10021580FB..
53: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-INPUT* . #<SWANK/GRAY::SLIME-INPUT-STREAM {1002050CB3}>)) #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {100215811B}>)
54: (SWANK::HANDLE-REQUESTS #<SWANK::MULTITHREADED-CONNECTION {10048AF153}> NIL)
55: ((FLET SB-UNIX::BODY :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE))
56: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE))
57: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE))
58: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-THREAD::CALL-WITH-MUTEX))
59: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE) {7F2341E7ED7B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THREAD "rep..
--more--
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment