🚀 go-pugleaf

$B:4!9LZ>-?M!wH!4[!!$G$9!#(B

>From:"Seiji Mizumoto" <ayanami0@kt.rim.or.jp>
>Date:1998/03/21 16:01:13
>Message-ID:<01bd54e2$66a25a60$ba8bf7ca@melchior>
>
>$B8=:_(BLIPS$B$rJY6/(B(Common LISP)$B$9$k$?$a$K(BMS-DOS5.0J$B$GF0:n(B
>$B2DG=$J(BLISP$B$rC5$7$F$$$k$N$G$9$,!"0J2<$N(BLISP$B0J30$KF0:n2DG=$H(B
>$B;W$o$l$k$b$N$r$4B8CNJ}!"65$($F2<$5$$!#(B
>$B8=:_;HMQ$7$F$$$k%^%7%s$O(B8086$B7O(B640KB$B%^%7%s$G$9!#(B

$B>&MQ$G$h$1$l$P;d$,;H$C$F$$$k(BmuLISP$B$,$"$j$^$9!#(B
common lisp$B$G$O$"$j$^$;$s$,!"(B
common lisp$B$N4X?t$N0lIt$r%i%$%V%i%j$H$7$FDs6!$7$F$$$^$9!#(B
$BB.$$$3$H$OB.$$$N$G$9$,$A$g$C$HF0:n$KJJ$,$"$k$N$,FqE@$J$N$H(B
$B%U%j!<$N=hM}7O$,$"$k8=:_!"$I$l$@$1MxMQ<T$,$$$k$+!D!D!#(B
$B:k6L$N%=%U%F%C%/$G<h$j07$$!#(B

$B$"$H!"(BLifeboat$B$N(BRun/lisp$B$b$^$@HNGd$7$F$$$k$+$b$7$l$J$$!#(B

PC-Scheme$B$O$A$g$C$H$o$+$i$J$$!D!D!#(B

$B%U%j!<(Bor$B%7%'%"%&%'%"$K$3$@$o$k$N$G$"$l$P(B
$B%5!<%A%(%s%8%s$G=hM}7O$r8x3+$7$F$$$k%5%$%H$,(B
$B$$$/$D$+$R$C$+$+$k$N$G!"$=$l$rJRC<$+$i;n$7$F$$$/$/$i$$$G$7$g$&$+!#(B

----------------------------------------------------------------------
$B:#EY$O(Blisp.gc$B$@$h!#(B
We lispers and garbage collectors make a mailing-list
    called "Tea Room Lisp.gc".....
cal@host.or.jp  $B:4!9LZ>-?M(B
(This address is for NetNews.)
----------------------------------------------------------------------
$B7z@_>J$,@/:v$rE>49$7$FO)LLEE<V$N?66=$r$O$+$k$=$&$J!#(B
$B!VCY$$$>!*!W$H$O;W$$$D$DI>2A$9$k$N$G$"$C$?!D!D!#(B

In article <01bd54e2$66a25a60$ba8bf7ca@melchior> "Seiji Mizumoto" <ayanami0@kt.rim.or.jp> writes:

 | 	XLISP2.0  ......... 動作不安定

こいつくらいしかコメントできないのですが、動作不安定ですか?

ずいぶん前にxlisp-1.6をapple//gsへ移植したことがあるのですが、素直なコー
ドで不安定だとは思いませんでした。移植の過程でorca/cのコンパイラバグを
6つほど見つけましたが、xlispのソース中には深刻な個所は見つけることがで
きませんでした。

たしかautolispはxlispそのもので商用cadのスクリプト言語として組み込まれ
たほどなので、信頼性はあると思って良いのではないでしょうか?  今も
xlispstatとして生き残ってるようですし。

環境640Kということですと、Common Lisp系にこだわらないのであれば、
pc-schemeなどは本も出てますし「programming in scheme 0-262-55017-2」
お薦めできると思います。

;;; $Id: .signature,v 1.3 1996/09/20 07:06:26 kuroda Exp $
(define (くろだ ひさお)
  (email kuroda@msi.co.jp))

$B?eK\(J@$B%j%`%M%C%H$G$9!#(J
$B$_$J$5$s!"$"$j$,$H$&8f:B$$$^$9!#(J $B?'!9;29M$K$5$;$FD:$-$^$9!#(J

>  | 	XLISP2.0  ......... $BF0:nIT0BDj(J
> 
> $B$3$$$D$/$i$$$7$+%3%a%s%H$G$-$J$$$N$G$9$,!"F0:nIT0BDj$G$9$+(J?

$B>e5-$N7o$K$D$$$F$G$9$,!":F5"=hM}$r9T$&4X?t$r=q$$$?(J($B%(%i%=%&$+$J(J?)$B>l9g!"(J
$BK=Av$7$F$7$^$&$N$G$9$,!"(JRefLISP$B$N>l9g$O!"%9%?%C%/%*!<%P!<%U%m!<$K$J$C$F(J
$B$7$^$&$N$G$3$j$:$K!"(JCommonLISP$B7O$N(JCLISP$B$G<B9T$r9T$C$?>l9g$b%9%?%C%/(J
$B%*!<%P!<%U%m!<$K$J$C$F$7$^$$$^$9$N$G!"$I$&$b=q$-J}$,NI$/$J$$$N$G$O$H(J
$B;W$C$F$$$k:#F|$3$N:"$G$9!#(J $B$*A{$,$;$7$F$$$^$9!#(J


$B:#8e6&$K59$7$/$*4j$$CW$7$^$9!#(J


 

In article <01bd58d1$4b2ad7b0$438bf7ca@melchior> "Seiji Mizumoto" <ayanami0@kt.rim.or.jp> writes:

 | >  | 	XLISP2.0  ......... 動作不安定
 | 
 | 上記の件についてですが、再帰処理を行う関数を書いた(エラソウかな?)場合、
 | 暴走してしまうのですが、RefLISPの場合は、スタックオーバーフローになって
 | しまうのでこりずに、CommonLISP系のCLISPで実行を行った場合もスタック
 | オーバーフローになってしまいますので、どうも書き方が良くないのではと
 | 思っている今日この頃です。 お騒がせしています。

環境がDOSでもなければ640Kでも無いのであまり参考にならないかと思います
が、FreeBSD2.2.2での動作結果です。この環境では暴走はしないようです。

% xlispstat
XLISP-PLUS version 2.1g
Portions Copyright (c) 1988, by David Betz.
Modified by Thomas Almy and others.
XLISP-STAT 2.1 Release 3.44 (Beta).
Copyright (c) 1989-1994, by Luke Tierney.

> (defun p () (p))
P
> (p)
error: evaluation stack overflow
>

;;; $Id: .signature,v 1.3 1996/09/20 07:06:26 kuroda Exp $
(define (くろだ ひさお)
  ;; Who's on third?
  ;; No. Who's on first.
  (email kuroda@msi.co.jp))

$B:4!9LZ>-?M!wH!4[!!$G$9!#(B

>From:"Seiji Mizumoto" <ayanami0@kt.rim.or.jp>
>Date:1998/03/27 16:44:19
>Message-ID:<01bd599f$6612eb70$618bf7ca@melchior>
>
>$B>e5-$N5-=R$G(BFreeBSD$B$N@$3&$G$b%9%?%C%/%*!<%P!<%U%m!<$r5/$3$9$N$G$9$+(B...
>$B$?$a$7$K!"(BMS-DOS$B$N@$3&$N(BLISP$B$G$bH/@8$7$^$9!#(B
>$B:F5"4X?t$N=hM}$K$D$$$F$O!"(BStack Overflow$B$OIU$-J*$J$N$G$7$g$&$+(B?

$B0lHLO@$H$7$F$OM-8B$J;q8;$N$H$3$m$KL58B$N;q8;$rMW5a$9$k%W%m%0%i%`$r=q$1$P(B
$B%(%i!<$,=P$k$N$OEv$?$jA0$J$s$G!"(B
$B!J=P$J$$$H$+$($C$FITJX!K(B
$B!D!D>e$N%W%m%0%i%`$,L58B$N;q8;$rMW5a$7$F$$$k$+$I$&$+$O(B
$B!!!!<+?.$,$J$$$1$I!D!D!#(B

>$BJY6/Cf$N<+J,$G$9$,!"(BLISP$B$N%W%m%0%i%`%3!<%F%#%s%0$G$O!"%k!<%W=hM}$r9T$&>l9g(B
>$B!"(B
>$B:F5"=hM}$r9T$&$N$,4qNo$J%3!<%F%#%s%0$@$H;W$C$F$$$k$N$G$9$,!"$3$N>l9g!"(B
>$B%W%m%0%i%`$N%k!<%W=hM}Ey$N;HMQ$K$O(B(DO (....)) $B$H$+$N%k!<%W=hM}$r9T$&4X?t$r(B
>$BMQ$$$?J}$,NI$$$N$G$7$g$&$+(B?  u-n?!
>$B$A$J$_$K!"(B(DO(...))$B$rMQ$$$FF1Ey$N=hM}$r9T$C$?>l9g$O!"LdBjM-$j$^$;$s$G$7$?!#(B

lisp$B$i$7$5$O$J$/$J$j$^$9$,(B
$B%k!<%W=hM}$NJ}$,MW5a$9$k;q8;$,>/$J$/$F$9$`$H$$$&$N$O$"$j$^$9!#(B
$B!J$3$N$"$?$j$,;q8;$,>/$J$$$HM>7W$J5$$r;H$o$J$1$l$P$J$i$J$$E@$JLu$G!#!K(B

>$B$3$NOC$H$OJL$K$J$j$^$9$,!"(B
>
>        (setq  xx  '(  A1  A2  A3  A4   .....))
>
>$B$G(Bxx$B$N%j%9%H(B(?)$B$N(BA1/A2/A3......$B$NCM$r(BA1$B$r(BB1/A2$B$r(BB2/A3$B$r(BB3$B$KCV$-49$($r9T$&(B
>$B>l9g$K$D$$$F$I$NMM$K9T$($PNI$$$N$G$7$g$&$+(B?($B%$%a!<%8$ODL>o$NG[Ns=hM}$G$9(B)

common lisp$B$G%j%9%H$G$J$/%Y%/%?$G;}$C$F$$$?$H$7$F(B
(setf (aref '#(A1 A2 A3 A4 .....) 1) 'B2)
$B$_$?$$$J$3$H$r$7$?$$$H$$$&<q;]!)(B

$BNO5;$O;W$$Ib$+$s$@$s$@$1$I!"(B
$B$"$^$j$K$bNO5;$J$s$G>R2p$9$k$N$O4*J[$7$F!J>P!K(B

>($BG[Ns=hM}$K$D$$$F$O!"(BC/Pascal/Basic$B$H$+$N=hM}7O$HHf$Y(BLISP$B$G$NCV$-49$($r(B
>$B9M$($?>l9g!"Fq9RITMn$G$9(B.....$B>p$1$J$$(B.......)

lisp$B8~$-$N%G!<%?9=B$$r9M$($?J}$,$$$$$+$b$7$l$^$;$s!#(B
$B$+$D$F$O!VB0@-%j%9%H!W$r;H$&$N$,Dj@P$@$C$?$H;W$&$s$@$1$I!D!D!#(B
$B!J8!:w$dCV$-49$($,<+M3<+:_!K(B

----------------------------------------------------------------------
$B:#EY$O(Blisp.gc$B$@$h!#(B
We lispers and garbage collectors make a mailing-list
    called "Tea Room Lisp.gc".....
cal@host.or.jp  $B:4!9LZ>-?M(B
(This address is for NetNews.)
----------------------------------------------------------------------
$B7z@_>J$,@/:v$rE>49$7$FO)LLEE<V$N?66=$r$O$+$k$=$&$J!#(B
$B!VCY$$$>!*!W$H$O;W$$$D$DI>2A$9$k$N$G$"$C$?!D!D!#(B