Font-Error?

Juergen Dabel j.dabel at t-online.de
Wed Aug 31 15:30:31 UTC 2016


;; 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 at t-online.de




More information about the mcclim-devel mailing list