$B!!(JPB2400$B1Q8lHG$r9XF~!#1Q8l(JOS$B$J$N$G!"F|K\8l$KJQ99$9$k!#(JCD$B$,G'<1$5$l$J$$!#(JOS$B$N(JCD-ROM$B$rF~$l%j%V!<%H$9$k$HG'<1$5$l$k$3$H$rH/8+!#$J$ $B!!(JMCL4$B$r%$%s%9%H!<%k!#(JCommon Lisp$B$NCf$G$O0lHVNI$$$H;W$C$F$$$k!#(JHD$B$,>/$J$$$N$G;H$o$J$$$b$N$r:o=|!#$=$3$=$3$N%9%T!<%I$GF0$/!#(J
$B!!(JFreeBSD$B$N(JCMU-CL, GCL$B$HHf3S$7$F$_$k!#(JGCL < CMU-CL < MCL $B$N=gHV$KB.$/$J$k!#B.EYHf$O%H!<%?%k$G#17e0J>e!#$=$l$>$lF@0U$J$b$N$,$"$k$_$?$$!#$G$b(JMCL$B$r;H$&$3$H$K7h$a$F$$$k$N$G$3$l0J>e$OHf3S$7$J$$!#(J
$B!!(JGCL$B$H(JCMU-CL$B$G$O(JCMU-CL$B$,9bB.!"(JCLtL2$BBP1~$HL%NOE*$@$,(JGCL$B$NJ}$,4h>f!#$G$b(JGCL$B$O(JCLtL1$B$J$N$,$A$g$C$H
Part 3.
$B!!B>?M$H$NJ8=q8r49$N$?$a$K(JMS-Office98$B$rF3F~!#(JWord$B$G$O1Q8lHG(JClarisWork$B$NJ8=q$,FI$a$J$$$3$H$,H=L@!#;EJ}$,$J$$$N$GN>J}$N%"%W%j%1!<%7%g%s$rN)$A>e$2$F%+%C%H!u%Z!<%9%H$G(J100$B%Z!<%8DxEY$r0\$9!#Hh$l$?!#$^$"!"$3$l$+$i$O(JMS-Word$B$@$1$r;H$&$+$i$$$$$+!#(J
$B!!(JTeX$B$rF3F~!#(JFreeBSD$B$G$b(JTeX$B$J$N$GJXMx$@!#%(%G%#%?$O(JNitemacs$B!#(J
$B!!(JPB2400 $BMQ$N(J PPC750L $B%"%/%;%i%l!<%?$,$G$F$$$k$i$7$$!#%"%_%e%l%C%H$GJ9$$$F$_$k$H%P%C%/%*!<%@$,(J300$B7oF~$C$F$$$k$H$N;v!#$?$^$?$^%$%1%7%g%C%W$K:_8K$,$"$C$?$N$G$3$3$G9XF~!#(JHD$B$b(J6GB$B$KA}6/!#9b$+$C$?$1$IK~B-!#(J
$B!!$*Ck$O%Y%s%,%k$N%-!<%^!#$3$3$N%+%l!<$G$O0lHV$*$$$7$$!#(J
$B!!A4It$r%$%s%9%H!<%k$7$J$*$7!#$D$$$G$K(JOS$B$b(J8.5$B$K$9$k!#$*Cc$O1XA0$NCcE9$G%@%V%k%(%/%9%W%l%9!#(J
$B!!(JWeb$B$G(JDB$B$r;H$&$?$a$N%W%m%0%i%`$r:n$C$F$_$k!#5!G=$H$+2hLL$H$+!"%b%8%e!<%k9=@.$H$+9M$($J$$$H$$$1$J$$$3$H$,$$$C$Q$$$"$k!#$^$:(JWood
$B$H(J CL-HTTP $B$N%I%-%e%a%s%H$rFI$`!#(JTCP/IP$B$N%9%?%s%I%"%m%s$G$N;H$$J}$,=q$$$F$"$C$?!#IaCJ$O(J
PPP $B$J$N$G(JTCP/IP$B$r;H$&%W%m%0%i%`$N3NG'$,$G$-$J$$$+$H;W$C$F$?!#%"%C%W%k%H!<%/7PM3$N(JTCP/IP$B$K@_Dj$7$F!"%"%I%l%9$r
;;; -*- Mode: Lisp; Language: Lisp -*-
(egc t)
(setf *listener-window-position* #@(6 450))
(setf *fred-default-font-spec* '("Osaka$B!]EyI}(J" 12 :PLAIN))
(load "ccl:Examples;thermometer")
(gc-thermometer)
(file-thermometer)
(load "ccl:Examples;fred-word-completion")
(load "ccl:Examples;query-replace")
(load "ccl:Examples;assorted-fred-commands")
(load "ccl:Library;help-manager")
(load "ccl:Library;new-file-dialogs")(load "MacintoshHD;Lisp;User Contributed Code;Fred (editor) utilities;cgay's Fred Enhancements;symbol-complete")
; CL-HTTP $B$O$A$g$C$H%A%e!<%K%s%0$,I,MW$+$b!#0l1~F0$$$F$k!#(J
; $BFC$K(J http $B$K(J MacintoshHD;Lisp;User Contributed Code;WWW;cl-http-67-22-pre
; $B$r3d$jEv$F$kI,MW$,$"$k!#(J
(load "MacintoshHD;Lisp;User Contributed Code;WWW;cl-http-67-22-pre;mcl;start-server.lisp")
$B!!%W%m%0%i%`$NK\BN$r9M$($F$_$k!#$^$:!"%[!<%`%Z!<%8$K$OI=;f$r=P$9$3$H$K$9$k!#EvA32hA|$rI=<($9$k$3$H$K$9$k$,!"J8;z$bI=<($9$k!#2hA|$O(JWeb$B%Z!<%8$NFbMF$K$"$C$?$b$N$r;H$&!#J8;z$O%?%$%H%k$H$+%3%T!<%i%$%H$K;H$&$3$H$K$7$h$&!#Cf?H$O%j%s%/@h$G=hM}$9$k!#(J
--> Home Page --> ...
$B!!(JHTML$B$r(JLisp$B$G=q$+$J$$$H$$$1$J$$$N$G!"$=$N$?$a$N4X?t$r:n$k!#(JCL-HTTP$B$K$b$=$N$?$a$N4X?t$,$"$k$1$I=,:n$H$$$&$3$H$G!#$H$j$"$($:$O$3$s$J$H$3$m!#4JC1$J$b$N$J$i$3$l$GBg>fIW$G$7$g$&!#(J
;;; ------------------------------------------------------------------
;;; HTML Generation
;;;
;;; Export control
;;; o with-open-html-file ofile(IJ(J &rest body
;;; $B%U%!%$%k$K(J body $B$GDj5A$9$k(J html $B$r=q9~$`!%(J
;;;
;;; o html(IJJ(J format-string &rest vars
;;; html $B$KJ8;zNs$r=q9~$`!%JQ?t$rE83+$9$k$3$H$,$G$-$k!%(J
;;; $BJQ?tE83+;~$OJ8;zNs$r(J #'format $B$KEO$9$N$G!$(J#'format
;;; $B$GDj5A$5$l$F$$$k=PNO7A<0$,;XDj$G$-$k!%(J
;;;
;;; o hp(IJJ(J tag(IJ(J &rest body
;;; $B3+;O!?=*N;%?%0$r#12U=j$GDj5A$7!$JD$8K:$l$J$$$h$&$K(J
;;; $B$7$F$$$k!%$b$7$b3+;O%?%0$GJQ?t$rE83+$7$?$$;~$K$O!$(J
;;; $B$3$l$N$+$o$j$K(J #'html $B$r;H$&$3$H!%(J
$B;H$$J}$O!"$3$s$J46$8$K$J$k$O$:!#(J
(with-open-html-file "MacintoshHD:Foo:Bar:Baz.html"
(hp "HTML"
(hp "HEAD"
(html "$B!{!{$N%[!<%`%Z!<%8(J"))
(hp "BODY"
...)))
$B!!%?%0$K$O%*%W%7%g%s$,;H$($k$h$&$K$9$k!#(J
$B!!5W$7$V$j$K(JCL-HTTP$B$N%[!<%`%Z!<%8$r8+$k$H%P!<%8%g%s$,$:$$$V$s>e$,$C$F$$$k!#%@%&%s%m!<%I$7$F@_Dj%U%!%$%k$rJQ99$9$k!#(J
$B!!(JPowerYu$B$N%-!<%\!<%I$K49$($k!#$D$$$G$K(JEGBridge$B$K$7$F%-!<%P%$%s%G%#%s%0$r%+%9%?%^%$%:!#$+$J$jD4;R$h$/$J$C$?!#(JHappyHackingKeyboard$B$,5$$KF~$C$F$$$k$N$G(Jreturn$B$N$9$0>e$K(Jdelete$B%-!<$,$"$k$H$$$$$N$K$H;W$&!#(J
$B$=$&$$$($P!"%-!<%H%C%W$,A4ItF)L@$G%-!<$r2!$9$?$S$K$=$N%-!<$N(JLED$B$,@D$/8w$k$C$F$N$O$I$&!)(J
$B%[!<%`%Z!<%8$r99?7$7$F$J$$!#(JInlineTSM++$B$rF~$l$F(JMCL$B$N(JFRED$B$GF|K\8l$rD>@\F~NO$G$-$k$h$&$K$7$?!#%[!<%`%Z!<%8$r:n$kItJ,$r=q$$$F$_$?!#$A$g$C$H2~NI$7$?$[$&$,NI$$$+$bCN$l$J$$$,!"%U%!!<%9%H%9%F%C%W$O$3$s$J$b$N!)!!%U%!%$%k%7%9%F%`$NItJ,$O!"$I$A$i$+$KE}0l$7$?$[$&$,$$$$$+$J!#(J
$B6a$/$N%9!<%Q!<$K(JWente$B$N%o%$%s$,F~$C$F$$$?$N$G#2K\9XF~!#(J
Adobe PageMill $B$r;H$C$F$_$k!#%T%j%*%I$N8e$K%9%Z!<%9$,#1$D$7$+F~$i$J$$!#(JMS-Word$B$O$A$c$s$H#2$DF~$k$N$K!#(J
$B$=$&$$$($P(JTeX$B$r:o=|$7$?!#6u$-$,L5$/$J$C$F$-$?$+$i!#$A$g$C$H ShrinkWrap$B$r;H$C$F$_$k!#2wE,!#%U%!%$%k$N%U%i%0%a%s%H$,5$$K$J$i$J$/$J$k!#IaDL$K;H$&$K$O $B%"%9%+$N%i%s%A$O$J$+$J$+!#$*$d$B$,4hD%$C$F$$$k!#%=!<%9N`$,=(0o$G!"%O%s%P!<%0!"%+%l!<$J$I$,B>$G$O$G$-$J$$L#IU$1$K$J$C$F$$$k!#%W%j%s%9%[%F%k$N%Q%s$H9g$o$;$k$H$H$F$b$*$$$7$$!#(J
$B$3$N9`B3$/(J