# 08dec24 Software Lab. Alexander Burger

(private) (Args P V)

# 'setf' is the most perverse concept ever introduced into Lisp
(de setf Args
   (let ((P V) Args  : ::  get prop  car prog  cadr cdr  caddr cadr  cadddr caddr)
      (set
         (if (atom P) P (eval P))
         (eval V) ) ) )

(setf A (1 2 3))
(setf (car A) 'x)
(setf (cadr A) 'y)
(setf (get 'A 'b) 'B)
(setf (get 'A 'c) 'C)

(show 'A)