getting undefined reference to a function in commonLISP

Question

I'm trying to compile the following code:

    (defun nextStates (st)
  "generate all possible states"
  (setf N 0)
  (setf states-list (make-list 9))
  (setf list-actions (possible-actions))

  (loop for x in list-actions do

     (setf aux (nextState st x))
     (when (not(member aux (states-list) :test #'equalp))
         (progn
            (setf (nth N states-list) aux)
            (setf N (+ N 1))
         )
     )
  )

    (values states-list)
  )

nextState is a function and states-list is a list, both of which are defined. I'm getting "undefined reference to states-list". I don't know what I'm doing wrong. Any help will be greatly appreciated

@Sylwester I tried to, but it didn't compile. How can I put multiple statements inside do? — Rui Loureiro
– Rui Loureiro, Commented Nov 5, 2016 at 17:17
It should take multiple forms Eg. (loop :for var :in list :do expr1 expr2...). If you don't have a then clause you should (when (not (member...) expr1 expr2...) — Sylwester
– Sylwester, Commented Nov 5, 2016 at 17:38
@Sylwester So just adding do after (loop for x in list-actions should do the trick right? I tried to compile it that way and now I'm getting "Undefined function states-list. Why is is seeing states-list as a function? — Rui Loureiro
– Rui Loureiro, Commented Nov 5, 2016 at 17:45
Still missing do: (loop for x in list-actions do (setf aux (nextState st x)) (when (not (member aux states-list :test #'equalp)) (setf (nth N states-list) aux) (setf N (+ N 1)))) but N and aux must exist though or you should add it as variables in the loop. — Sylwester
– Sylwester, Commented Nov 5, 2016 at 17:52

Sylwester · Accepted Answer · 2016-11-05 20:21:20Z

1

Renaming the badly camel case to lisp case I'm left with this.

(defun next-states (st)
  "generate all possible states"
  (loop :for action :in (possible-actions)
        :for aux := (next-state st action) :then (next-state st action)
        :when (not (member aux states-list :test #'equalp))
          :collect aux :into states-list
        :finally (return states-list)))

As a test here is what I had:

(defun possible-actions ()
  "have duplicates to see not member in action"
  '(0 1 3 3 4))

(defun next-state (st action)
  "Simple version for test"
  (+ st action))

(next-states 3) ; ==> (3 4 6 7)

answered Nov 5, 2016 at 20:21

Sylwester

48.9k4 gold badges52 silver badges83 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

getting undefined reference to a function in commonLISP

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related