Re: Lisp Live buffer

[Emanuel Berg <incal@dataswamp.org>]

> (defun world-set (world pos to)
>   (if (= 1 (length pos))
>       (setcar (nthcdr (car pos) world) to)
>     (setcar
>       (nthcdr (car pos) world)
>       (world-set (car (nthcdr (car pos) world)) (cdr pos) to) ))
>   world)

Also not right ...

(defun world-set (world pos to)
  (if (= 1 (length pos))
      (setf (nth (car pos) world) to)
    (setcar
      (nthcdr (car pos) world)
      (world-set (nth (car pos) world)
                 (cdr pos)
                 to) ))
  world)

(defun world-set-test ()
  (let ((ttt (make-world 2 3)) )
    (world-set ttt '(0 1) "a") ))

;; (world-set-test) ; (("." "a" ".") ("." "a" ".") ("." "a" "."))

-- 
underground experts united
https://dataswamp.org/~incal