;; Defines two commands: one performs a zoom window
;; and the other a zoom previous
(defun c:ZW () (command “._zoom” “_w”))
(defun c:ZP () (command “._zoom” “_p”))