SETF Function Definition

;;; Get the first element

(defun 1st (list)

(car list))

;;; Set the first element

(defun (setf 1st) (new list)

(rplaca list new)

new)

Previous slide

Next slide

Back to first slide

View graphic version