eval ?

[MRL]

Hello,

i'm trying to set several functions (my functions) to nil
When i typ:

(setq @command "C:bl")
(eval (read (strcat "(setq " @command " nil)")))

---> it works.(routine "c:bl" is not available)

But when i'm putting it inside a function it won't work !

(defun vlm:SettoNil (@command)
(eval (read (strcat "(setq " @command " nil)")))
)

---> (my routine "c:bl" is still available)

Can anybody help me! Please.

Martin

 

[David Bethel]

Try something a little simplier:

(set (read @command) nil)

-David

 

[David Bethel]

Straight from my A2K command line:

Command: (defun c:myfoo (princ))
C:MYFOO

Command: !c:myfoo
#<SUBR @01dcbd0c C:MYFOO>

Command: (set (read "c:myfoo") nil)
nil

Command: !c:myfoo
nil

Must be some else. How are the functions defined in the first place?
-David

 

[David Bethel]

Martin

Thats OK

The correct syntax would have been

(eval (list setq (read @command) nil))

-David