list initialization in a function

[prathyuguduri]

I have written a function below and I'm calling it through another function.

Code: Select all

(defun RTP (KB)
(

  setq sos (last KB)
  setq sos (first sos)
  setq soslist (list sos)
  setq clauses (reverse KB)
  setq pred1 (first (rest clauses))


(if (and (equal (length sos) 2)
         (member (second sos) pred1)) 
(setq output (remove (second sos) pred1)
and setq output (rest output)
and setq soslist (append (list output) soslist)))

setq sos output
setq clauses (rest clauses)
setq pred1 (first (rest clauses))

(if (and (equal (length sos) 1)
         (member (first sos) pred1)
		 (equal(nth notpos pred1) 'not)) 
(setq output (remove-at pred1 (+ notpos 1))
and setq output (remove (first sos) output)
and setq output (rest output)
and setq soslist (append (list output) soslist)))

)
)

Error: Cannot setq (FIRST SOS) -- not a symbol.
Only the first statement is getting executed and the error is displayed. Should n't the setq statements be written like that? Could someone tell me what is wrong

[ramarren]

The code you posted doesn't seem to be valid Lisp, and certainly not valid Common Lisp. Please read a book like Practical Common Lisp if you want to learn Common Lisp.

[prathyuguduri]

You mean the whole function, even the if loop. Because when I execute these statements separately in the lisp interpreter they do execute. I'm having problem only with the first setq statements

[nuntius]

0) You are missing parentheses all over. CL looks like (setq sos (last KB)). Yet there's a stray paren near the top of your function.
1) Setq needs variables; I don't see declarations for sos, soslist, clauses, etc.
2) There is no such thing as an "if loop".

Here's how CL sees your function

Code: Select all

(defun RTP (KB)
  (setq sos (last KB)
        setq sos
        (first sos) setq
        soslist (list sos)
	...))

You might attempt something like

Code: Select all

(defun RTP (KB)
  (let* ((sos (first (last KB)))
         (soslist (list sos))
         (clauses (reverse KB))
         (pred1 (first (rest clauses))))
    ...))

[prathyuguduri]

@nuntius

Thank you for the reply. I have replaced if with when. And the mistake I was doing is that I was trying to see the value of the variable in the interpreter after the function got executed. The variable scope is local to the function so I was getting the error that the list sos is unbound.

Thanks again.