🚀 go-pugleaf

$@$3$s$K$A$O!#$I$J$?$+65$($F2<$5$$(J$@!#(J

SunCommonLisp$@$N(JLispView$@$G!"4A;z%U%)%s%H$,;H$($J$/$F:$$C$F$$$^$9!#(J
X11R5$@$N%G%#%9%H%j%S%e!<%7%g%s$K(J$@F~$C$F$$$?!"(Jjiskan16,jiskan24$@$r!"(J
convertfont$@%3%^%s%I$G(J *.fb$@$N7A<0$KJQ49$7$F!"(Jkterm$@$J$I$G$O!";H$($k$h(J
$@$&$K$J$j$^$7$?!#$=$3$G!"(JLispView$@$G$b!"$?$H$($P(Jjiskan16$@$,;HMQ$G$-$k(J
$@$+$I$&$+8+$h$&$H;W$C$F!"(Javailable-fonts $@$H$$$&4X?t$r8F$V$H!"(J


> (lv:available-fonts :foundry "jis" :family "fixed" :pixel-size 16)
((:CHARSET-ENCODING "0" :CHARSET-REGISTRY "jisx0208.1983" :AVERAGE-WIDTH
 160 :SPACING :CHARACTER-CELL :RESOLUTION-Y 75 :RESOLUTION-X 75 
:POINT-SIZE 15.0 :PIXEL-SIZE 16 :SETWIDTH "normal" :SLANT :ROMAN 
:WEIGHT :MEDIUM :FAMILY "fixed" :FOUNDRY "jis"))


$@$H$$$&$U$&$K!"$A$c$s$H%U%)%s%H>pJs$,JV$C$F$/$k$N$G(J$@$9$,!"(Jfont$@$N%$%s(J
$@%9%?%s%9$r:n$m$&$H$9$k$H!"(J


> (make-instance 'lv:font :foundry "jis" :family "fixed" :pixel-size 16)
XView warning: Cannot load font '*-jis-fixed-*-*-*-*-16-*-*-*-*-*-*-*' 
(Font package)
>>Error: Can't find a font that matches (CLOS::INITARGS-VALIDATED T 
:FOUNDRY "jis" :FAMILY "fixed" :PIXEL-SIZE 16 
:DISPLAY #<Display #X1C81A26> ...) 
using name *-jis-fixed-*-*-*-*-16-*-*-*-*-*-*-*

LISPVIEW::XVIEW-LOAD-QUERY-FONT:
   Required arg 0 (FONT): #<Font #X1B520A6>
   Required arg 1 (NAME): NIL
   Required arg 2 (ARGS): (CLOS::INITARGS-VALIDATED T :FOUNDRY "jis" 
:FAMILY "fixed" :PIXEL-SIZE 16 :DISPLAY #<Display #X1C81A26> ...)
:A  0: Abort to Lisp Top Level

-> 


$@$H!"%(%i!<$K$J$C$F$7(J$@$^$$$^$9!#(J

$@>r7o$O!"(J

$@%^%7%s!'(JSparcStation1,IPC
$@#O#S!'(J Sun OS 4.1.1
$@%&%#%s%I!<%7%9%F%`!'(JOpenWindows version2
Lisp: Sun Common Lisp version 4.0.2

$@$G$9!#$h$m$7$/$*4j$$$7$^$9!#(J

$@:d0f(J $@?.Je(J
--
   Shinsuke Sakai               sakai@goldilocks.lcs.mit.edu
   Visiting Scientist,                   phone: 617-253-0278
   Spoken Language Systems Group,          fax: 617-258-8642
   MIT Laboratory for Computer Science.  Also with NEC Corp.