gistfile1.lisp

(defun set-br (self val)

  (let ((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)))
(rect new-x new-y rect-width rect-height)))