(defmacro define-send-function ((name doc-string) normal-func-args &rest body)
  ;(let* ((lambda-list (gensym))
  `(defun ,name ,normal-func-args
     ,doc-string
      (let ((lambda-list1 ',(lambda-args-to-strings normal-func-args)))
       ,@body)))
       
       
;;;;new
(defmacro define-send-function ((name var doc-string) normal-func-args &rest body)
  ;(let* ((lambda-list (gensym))
  `(defun ,name ,normal-func-args
     ,doc-string
      (let ((,var ',(lambda-args-to-strings normal-func-args)))
       ,@body)))