(defun sort ( list / )
  (setq out_list (acad_strlsort list))
);defun