Code: Select all
(defun proba1 (li) (first (second li)))
(defparameter li (list 1 (list 2) 3))
(setf (first (second li)) 1)
( setf (proba1 li) 1) ; result is an error
Code: Select all
(defun proba1 (li) (first (second li)))
(defparameter li (list 1 (list 2) 3))
(setf (first (second li)) 1)
( setf (proba1 li) 1) ; result is an error
Code: Select all
(defun (setf proba1) (new-value list) (setf (first (second list)) new-value))