AZ-Prolog ユーザーズマニュアル% Usage | ?-[-'azlisp.pl']. yes | ?-top_level. Welcom to Lisp World ver 1.1 lisp> (de append (x y)(cond ((eq x nil)y)(t(cons(car x)(append (cdr x) y))))) append lisp> (append '(1 2 3 4) '(5 6 7)) (1 2 3 4 5 6 7) lisp> (bye) t Exit From Lisp yes %%%%%%%%%%%%%%%%% %%% TOP LEVEL %%% %%%%%%%%%%%%%%%%% top_level :- lisp(user). lisp(See) :- see(See), prompt(P,P),write('Welcom to Lisp World ver 1.1'),nl,
http://aima.cs.berkeley.edu/lisp/utilities/utilities.lisp
