🚀 go-pugleaf

$@K-EDCf1{8&5f=j$N9SLZ$G$9!%(J
fj.lang.lisp,fj.sys.next $@$N%/%m%9%]%9%H$G!$(JFollowup-To: fj.lang.lisp 
$@$K$7$F$"$j$^$9!%(J

Allegro CL 3.1.20 [NeXT] ($@0J(J$@8e!$C1$K(J ACL $@$H8F$V(J) $@$GF|K\8l(J(EUC)$@$N%7%s%\(J
$@%k$r(J($@=DK@$J$7$G(J)$@;H$($k$h$&$K!$(Jreadtable $@$r$$$8$C$?!$$H$$$&(J$@5-;v$G$9!%(J

ACL $@$O(J char-code-limit $@$,(J 256 $@$K$J$C$F$$$^$9$N$G!$(J
----------
<cl> '|$@$"(J|

$@$"(J
<cl>
----------
$@$H$$$&$h$&$KN>B&$r=DK@$G3g$C$F$d$l$P!$%7%s%\%k$K$bF|K\8l$,;H$($k$N$G$9(J
$@$,!$3g$C$F$d$i$J$$$H!$(J
----------
<cl> '$@$"(J
Error: Undefined read-macro character #\%$
[1] <cl> 
----------
$@$H$J$C$F$7$^$$$^$9!%(J

$@$=$3$G!$%*!<%=%I%C%/%9$JJ}K!$H;W$o$l$k!$(J
(set-syntax-from-char (char "$@$"(J" 0) #\a)
$@$d(J
(multiple-value-call #'set-macro-character
                     (char "$@$"(J" 0)
                     (get-macro-character #\a))
$@$r;n$_$^$7$?$,!$(J
----------
Error: Index(s) to array function is/are out of the range of the array.
----------
$@$H5q@d$5$l$^$7$?!%(J

$@$7$+$7(J inspect $@$G(J readtable $@$N9=@.MWAG$rD4$Y$k$H!$(J256$@MWAG$N(J 
macro-table $@$*$h$S(J attribute-table $@$,$"$j!$(Jmacro-table $@$N3FMWAG$O(J 
get-macro-character $@$NBh(J1$@HVL\$N7k(J$@2L$HBP1~$,$H$l$F$$$^$7$?$N$G!$(J($@Cm(J $@;2>H(J)
$@D>@\(J macro-table $@$H(J attribute-table $@$r$$$8$C$F!$(J(int-char #xA0) $@$+$i(J 
(int-char #xFE) $@$^$G$NJ8;z$r!$DL>o$NJ8;z$HF1$807$$$K$J$k$h$&$KJQ99$7$^(J
$@$7$?!%$=$N7k2L!$(J
----------
<cl> '$@$"(J

$@$"(J 
<cl> 
----------
$@$H$$$&$3$H$,$G$-$k$h$&$K$J$j$^$7$?!%(J

$@6qBNE*$K$O0J2<$N<0$rI>2A$7(J$@$F2<$5$$!%(J

(let ((macros   (excl::readtable-macro-table     *readtable*))
      (attr     (excl::readtable-attribute-table *readtable*))
      (indexOfA (char-int #\a)))
  (do ((i #xA0 (1+ i)))
      ((>= i #xFE))
    (setf (aref macros i) (aref macros indexOfA))
    (setf (aref attr   i) (aref attr   indexOfA))))

$@$J$*!$8=:_$NLdBj$O!$$3$l$r=i4|@_Dj%U%!%$%k(J .clinit.cl $@$KF~$l$F$*$$$F$b!$(J
$@$&$^$/@_Dj$,JQ(J$@$o$i$J$$$H$$$&$3$H$G$9!%(JACL $@$N%W%m%s%W%H$,=P$F$-$F$+$i(J 
load $@$9$kJ,$K$O!$$&$^$/$$$/$N$G$9$,!%(J


$@Cm(J:
$@87(J$@L)$K$O!$%?%V(J(9), $@%i%$%s%U%#!<%I(J(10), $@%U%)!<%`%U%#!<%I(J(12), $@%j%?!<%s(J(13),
$@%9%Z!<%9(J(32)$@!$%P%C%/%9%i%C%7(J$@%e(J(92) $@$G$O!$0lCW$7$F$$$^$;$s$G$7$?!%(J
--
$@9SLZ1_Gn(J foison@ips.tytlabs.co.jp ($@K-EDCf1{8&5f=j(J 0561-62-6111 ext.3843)