you can use any type of arguments.
eg:
Code:
(vl-load-com)
(DEFUN returnvars ( var )
(alert (strcat
"var name: " (vl-princ-to-string var)
"\nvar value: " (vl-princ-to-string (eval var))
"\nvar Type: " (vl-princ-to-string (type (eval var))))
)
)
;;TESTS
(setq start 32)
(returnvars 'start)
(setq start "hello")
(returnvars 'start)
(setq start (list "a" "b" 1 2))
(returnvars 'start)
(setq start 32.4)
(returnvars 'start)
(returnvars 'returnvars)
or use multiple arguments
eg:
Code:
(DEFUN returnvars ( var1 var2 )
(alert (strcat
"var1 name: " (vl-princ-to-string var1)
"\nvar1 name: " (vl-princ-to-string var2)
)
)
)
(returnvars "test" 44)