Topic: Print the name of a variable

[Daniel J. Ellis]

I'm trying to write myself a little variable tester routine

The idea is to have something like
<CODE(DEFUN returnvars ( var / )
   (SETQ varname (EVAL var));'var)
   (PRINC "\nvar name:")
   (PRINC varname)
   (PRINC "\nvar value:")
   (PRINC var)
   (PRINC)
)
</CODE>

so that I can stick a
<CODE>(RETURNVARS start)</CODE>

in my code, to have to be equivilent to:
<CODE>(PRINC "\nstart:")(PRINC start)</CODE>

Not really important, but it would make my life a wee bit easier!

===
dJE

[Andrea]

Code: [Select]

(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))))
         )
  )

;;TEST
(vl-load-com)
(setq start 32.4)
(returnvars 'start)


[Daniel J. Ellis]

Sorry I've taken so long to get back to you on this, Andrea, but that's spot on, thankyou.

dJE