LispForum

Hello all,
I'm looking for an expert system of order 0. I'm looking for Template or for some example, after a look on Google, I found the mycin.lisp example.

Do you know any other example with some explanations?

By advance, thanks for your help.

Hello all, I'm trying to find a way in order to detect the difference between these 2 forms: (setq MyLst '(word1 word2)) (cons 'word1 'word2) I've tried to use the consp macro or the listp macro in order to be able to highlight these 2 differents forms. Unfortunatelly, the result is always the same ...

Hello,
Sorry for the grammar.

Normally, when the code get the "." and "FIN" keywords, the infinite loop should stop.
Don't know how to detect this sequence "." and "FIN" to stop the loop. Do you have some clues or example for doing that ?

Hello again, I've put some traces in the code in order to identify which part is not working correctly. I've also modified the code in order to first have a eliza version working and after that add some regexp pattern-matching features. The code is working, the only thing which is not working in thi...

Hello,
Thanks for your reply, I've to use pattern-matcher but it's not so easy as I though it at the beginning.
I think in my code the match function is not working correctly but it's quite not easy to debug as I haven't a IDE debbuger.

Hello, I sent you a private message linked to this stack overflow problem. (defun MyComp (MyInp MyList) (cond ((and (not MyInp) (not MyList))) ((not MyList) nil) ((eq (car MyList) '*) (or (MyComp MyInp (cdr MyList)) (MyComp (cdr MyInp) MyList) ) ) ((not MyInp) nil) ((eq (char (string (car MyInp)) 0)...

clisp on cygwin

Hello,

In my code, I've a stack overflow problem. Thus, I'm wondering if it exists some debuggers for Windows or Linux?
I've a computer with cygwin under Windows or Ubuntu OS.

Thanks by advance for your help.

Thanks for the answer but both solution displayed a NIL line. I don't want the NIL line Break 4 [6]> (setq mylst '(chat chien oiseau lapin)) (CHAT CHIEN OISEAU LAPIN) Break 4 [6]> (dolist (el mylst) (print el)) CHAT CHIEN OISEAU LAPIN NIL Break 4 [6]> (format t "~{~a~^ ~}" mylst) CHAT CHIE...

Hello all, I thought naively that the following code will allow me to print each element of a list and not display the nil element at the end. Is it normal ? (setq mylst '(chat chien oiseau lapin)) (loop for n from 0 to (- (length mylst) 1) do (print (nth n mylst))) Do I have to add a condition to c...