eval ?

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

 

Try something a little simplier:

(set (read @command) nil)

-David

 

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

 

Martin

Thats OK

The correct syntax would have been

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

-David