gistfile1.lisp

(defun set-br (self val)

  (let ((a (cons self nil))
	(rect-x (@ self :int))
	(rect-y (@ self :int 1))
	(rect-width (@ self :int 2))
	(rect-height (@ self :int 3))
	(point-x (@ val :int))
	(point-y (@ val :int 1))
	(new-x)
	(new-y))

    (if (>= point-x rect-x)
	(setf new-x (- point-x rect-width)))
    (if (>= point-y rect-y)
	(setf new-y (- point-y rect-height)))
    (if (<= point-x rect-x)
	(setf new-x (- point-x rect-width)))
    (if (<= point-y rect-y)
	(setf new-y (- point-y rect-height)))
    (setf (car a) (rect new-x new-y rect-width rect-height))(car a)))



(defun mutate (cons)
  (let  ((a (cons cons nil)))
    (setf (car a) 5)(car a)))