Danilo Fraga <[email protected]> writes: > Estou tendo problemas em rodar um programa em Common LISP. O Programa > em questão é esse: > http://oscarhome.soc-sci.arizona.edu/ftp/OSCAR-web-page/oscar.html. > Os arquivos e um manual estão na página. Gostaria de saber se alguém > poderia me ajudar. Não posso oferecer muito, além de um agradecimento > no artigo resultante.
(Traduzido do castelhano pelo Google Translate:) Este programa não pode ser carregado a partir das informações fornecidas neste site, porque as fontes são incompletas. Aqui está o que eu posso fazer e como você vê, você precisa de um arquivo "Oscar-tools.lisp". [pjb@kuiper :0 Desktop]$ cd ~/src/lisp/ai/ [pjb@kuiper :0 ai]$ mkdir oscar [pjb@kuiper :0 ai]$ cd oscar [pjb@kuiper :0 oscar]$ wget -m --no-directories --no-parent -A .lisp http://oscarhome.soc-sci.arizona.edu/ftp/OSCAR-web-page/oscar.html -o wget-oscar.log [pjb@kuiper :0 oscar]$ ls ./ Perception-Causes_3-31.lisp ../ Prob-compiler_3-24.lisp Agent-arguments5.lisp Reason-macros_3-31.lisp Assignment-trees_3-26.lisp Rules_3-30.lisp Combined-problems.lisp Syntax_3.lisp OSCAR-loader.lisp oscar-graphics17.lisp OSCAR_3-31.lisp wget-oscar.log PC-examples_3-31.lisp [pjb@kuiper :0 oscar]$ sed -e 's^(setf oscar-pathname "NEWG4:Library:Webserver:DOCUMENTS:ftp:CODE:")^(defparameter oscar-pathname "'$(pwd)'/")^' -e 's/OSCAR_3-31-acl.lisp/OSCAR_3-31.lisp/' -i OSCAR-loader.lisp [pjb@kuiper :0 oscar]$ clisp -ansi -norc -q [1]> (load "OSCAR-loader.lisp") ;; Loading file OSCAR-loader.lisp ... Loading OSCAR_3.31 ;; Loading file /home/pjb/src/lisp/ai/oscar/OSCAR_3-31.lisp ... Loading OSCAR_3.31 *** - LOAD: A file with name /home/pjb/src/lisp/ai/oscar/Oscar-tools does not exist The following restarts are available: SKIP :R1 skip (WHEN # # ...) RETRY :R2 retry (WHEN # # ...) STOP :R3 stop loading file /home/pjb/src/lisp/ai/oscar/OSCAR_3-31.lisp SKIP :R4 skip (LOAD #) RETRY :R5 retry (LOAD #) STOP :R6 stop loading file /home/pjb/src/lisp/ai/oscar/OSCAR-loader.lisp ABORT :R7 Abort main loop Break 1 [2]> (quit) [pjb@kuiper :0 oscar]$ -- __Pascal Bourguignon__ http://www.informatimago.com/ A bad day in () is better than a good day in {}. -- You received this message because you are subscribed to the Google Groups "Lisp-br" group. To post to this group, send email to [email protected]. To unsubscribe from this group, send email to [email protected]. For more options, visit this group at http://groups.google.com/group/lisp-br?hl=en.
