;; the test example app from McCLIM
;;
(in-package :common-lisp-user)
(defpackage "APP"
(:use :clim :clim-lisp)
(:export "APP-MAIN"))
(in-package :app)
(define-application-frame superapp ()
()
(:panes
(int :interactor :height 400 :width 600))
(:layouts
(default int)))
(defun app-main ()
(run-frame-top-level (make-application-frame 'superapp)))
;; and when running (app-main):
The value
NIL
is not of type
(OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING PATHNAME
FILE-STREAM)
[Condition of type TYPE-ERROR]
Restarts:
0: [CHANGE-FONT-PATH] Retry with alternate truetype font path
1: [RETRY] Retry SLIME REPL evaluation request.
2: [*ABORT] Return to SLIME's top level.
3: [REMOVE-FD-HANDLER] Remove #<SB-IMPL::HANDLER INPUT on descriptor 7: #<CLOSURE (LABELS SWANK/SBCL::RUN :IN SWANK/BACKEND:ADD-FD-HANDLER) {1005CA16EB}>>
4: [ABORT] Exit debugger, returning to top level.
Backtrace:
0: (MERGE-PATHNAMES #P"/opt/X11/share/fonts/TTF/Vera.ttf" NIL 55569512) [tl,external]
1: ((FLET MCCLIM-TRUETYPE::F :IN CLIM-CLX::TEXT-STYLE-TO-X-FONT))
2: (MCCLIM-TRUETYPE::INVOKE-WITH-TRUETYPE-PATH-RESTART #<CLOSURE (FLET MCCLIM-TRUETYPE::F :IN CLIM-CLX::TEXT-STYLE-TO-X-FONT) {1007FEDAFB}>)
3: ((:METHOD CLIM-CLX::TEXT-STYLE-TO-X-FONT :AROUND (CLIM-CLX::CLX-PORT STANDARD-TEXT-STYLE)) #<CLIM-CLX::CLX-PORT :HOST "private/tmp/com.apple.launchd.qLhATu08W9/org.macosforge.xquartz" :DISPLAY-ID 0 {1..
4: ((:METHOD CLIM-CLX::MEDIUM-GCONTEXT (CLIM-CLX::CLX-MEDIUM COLOR)) #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> #<CLIM-INTERNALS::NAMED-COLOR "gray75">) [fast-method]
5: ((SB-PCL::EMF CLIM-CLX::MEDIUM-GCONTEXT) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> #<CLIM-INTERNALS::NAMED-COLOR "gray75">)
6: ((:METHOD CLIM-CLX::MEDIUM-DRAW-RECTANGLE-USING-INK* (CLIM-CLX::CLX-MEDIUM T T T T T T)) #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> #<unavailable argument> 2 2 15 15 T) [fast-method]
7: ((:METHOD MEDIUM-DRAW-RECTANGLE* :AROUND (CLIM-INTERNALS::TRANSFORM-COORDINATES-MIXIN T T T T T)) #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> 2 2 15 15 T) [fast-method]
8: ((:METHOD MEDIUM-DRAW-RECTANGLE* (SHEET T T T T T)) #<SCROLL-BAR-PANE "(Unnamed Pane)" {10095115F3}> 2 2 15 15 T) [fast-method]
9: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (MEDIUM T T)) #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> #<SCROLL-BAR-PANE "(Unnamed Pane)" {10095115F3}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS..
10: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS (SHEET T)) #<SCROLL-BAR-PANE "(Unnamed Pane)" {10095115F3}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN DRAW-RECTANGLE*) {69FDFCB}> :INK #<CLIM-I..
11: (DRAW-RECTANGLE* #<SCROLL-BAR-PANE "(Unnamed Pane)" {10095115F3}> 2 2 15 15 :INK #<CLIM-INTERNALS::NAMED-COLOR "gray75">)
12: ((FLET #:GCONTINUATION1825 :IN CLIM-INTERNALS::SCROLL-BAR/UPDATE-DISPLAY) #<unavailable argument>)
13: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (MEDIUM T T)) #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN INVO..
14: ((LABELS #:G428 :IN INVOKE-WITH-DRAWING-OPTIONS) #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}>)
15: ((:METHOD INVOKE-WITH-DRAWING-OPTIONS (SHEET T)) #<SCROLL-BAR-PANE "(Unnamed Pane)" {10095115F3}> #<CLOSURE (FLET #:GCONTINUATION1825 :IN CLIM-INTERNALS::SCROLL-BAR/UPDATE-DISPLAY) {69FE43B}> :TRANSFO..
16: (CLIM-INTERNALS::SCROLL-BAR/UPDATE-DISPLAY #<SCROLL-BAR-PANE "(Unnamed Pane)" {10095115F3}> 0)
17: ((:METHOD ALLOCATE-SPACE (SCROLLER-PANE T T)) #<SCROLLER-PANE "(Unnamed Pane)" {10095115A3}> 598 398) [fast-method]
18: ((:METHOD CLIM-INTERNALS::BOX-LAYOUT-MIXIN/VERTICALLY-ALLOCATE-SPACE (CLIM-INTERNALS::RACK-LAYOUT-MIXIN T T)) #<VRACK-PANE "(Unnamed Pane)" {100738BD93}> 600 404) [fast-method]
19: ((SB-PCL::EMF ALLOCATE-SPACE) #<unavailable argument> #<unavailable argument> #<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {1009DED873}> 600 404)
--more--
When clicking Vera.ttf I get an warning, when I use this font it may be possible to get possible an severe system error
My System:
OS X El Capitan (10.11.6)
iMac (27“, End 2009)
and SBCL 1.3.9
I think this could be solved, but I am not so versed in following all these messages.
Thank you!
Juergen Dabel
Fruehlingstr. 11A
86529 Schrobenhausen
Germany
j.dabel(a)t-online.de
