🚀 go-pugleaf

$@9SLZ!wK-EDCf1{8&5f=j$G$9!%(J

In article <SHIN.92Oct29183703@sgtp.sgtp.apple.juice.or.jp> shin@sgtp.apple.juice.or.jp (Sugou Shinichirou) writes:

 |$@?{@8$G$9!#(J

 |$@;H$$;O$a$?$i!"$<$R$3$NJU$N$3$H$r3N$+$a$F65$($F2<$5$$!#$"$H!"%9%H%j%s%0$KF|(J
 |$@K\8l$,;H$($k$+$I$&$+$H!"<B9T%9%T!<%I$,$I$&$+!"$3$NJU$bCN$j$?$$$H$3$m$G$9!#(J

$@F|K\8l$N07$$$N7o$@$1$N%U%)(J$@%m!<$G$9$,!$(JAllegro CL 3.1.20 [NeXT] $@$OF|K\(J
$@8l(J($@$H$$$&$h$j(J2$@%P%$%H(JEUC)$@$r4^$`J8;zNs$r;H$&$3$H$,$G$-$^$9!%(J$@$?$@!$(J
  (char "$@$"(J" 0)
$@$H$d$C$?>l9g$KJV$C$F$/$k$N$O!$!V$"!W$N(J1$@%P%$%HL\$N%3!<%I$r(J character $@$K(J
$@JQ49$7$?(J$@$b$N$G$7$F!$(J
  #\$@$"(J 
$@$,JV$C$F$/$k$o$1$G$O$"$j$^$;$s!%(J

$@$=$l$+$i!$%7%s%\%k$K$D$$$F$O!$$=$N$^$^$G$O$@$a(J$@$G$9$,!$0J2<$N<0$r(J 
~/.clinit.cl $@$KF~$l$l$P!$J8;zNs$HF1MM!$F|K\8l$r4^$^$;$k$3$H$,$G$-$^$9!%(J

(tpl:setq-default *readtable* (copy-readtable))
(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))))

;; $@$3$NJU$N%N%&%O%&$K$D$$$F$O!$0JA0!$Bg7'!w#A#T#R$5$s$K%"%I(J$@%P%$%9$r$$(J
;; $@$?$@$-$^$7$?!%46<U$$$?$7$^$9!%(J

$@$J$*!$$=$N$^$^$G$O!$(J
----------
<cl> '$@$"(J
Error: Undefined read-macro character #\%$
[1] <cl> 
----------
$@$H$J$C$F$7$^$$$^$9$7!$$@$+$i$H$$$C$FAGD>$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$7$F$_$k$H!$(J
----------
Error: Index(s) to array function is/are out of the range of the array.
----------
$@$H5q@d$5$l$^$7$?!%(J

$@$=$l$K$7$F$b(J$@!$(JMASAI $@$C$F(J

 |GUI$@$N%G%6%$%sNI$7!J$3$l!"Bg;v!K!"%9%T!<%INI$7!"A4BN$N3+H/4D6-NI$7!"Ds6!$5(J
 |$@$l$F$$$k%i(J$@%$%V%i%j!J%*%V%8%'%/%H!KNI$7!"<B@SNI$7!J=>$C$F%P%0Bg>fIW!K!#$9$Y(J
 |$@$F!VNI$7!W$E$/$a$G$9!#(J

$@L%NOE*$G$9(J$@$M!%(J
--
$@9SLZ1_Gn(J ($@K-EDCf1{8&5f=j(J 0561-62-6111 ext.3843)
foison@ips.tytlabs.co.jp
(NIFTY: JBB00437  CompuServe via Internet: 101211.437@compuserve.com)