(push obj place &environment env)
(defun add-loop-body-wrapper (wrapper) (push wrapper *loop-body-wrappers*))
(vector-push new-el array)
(defun leave (n) (let ((s (gethash n harbor))) (remhash n harbor) (vector-push s pool)))
(vector-push-extend new-element vector &optional (min-extension (let ((length (length vector))) (min (1+ length) (- array-dimension-limit length)))))
(defun push-op (op ops-buffer) (vector-push-extend op ops-buffer))