[Help] Setq a function to another function ? What wrong ?

[ketxu]

I've written some function, put it in one lisp file.
My idea is in end of file, i'll write a function to check key registered , if unregistered, i assign all function above to a function alert to user that they must register program
Ex
1;

(defun a ()...)
(defun b ()...)
....
(defun arlet-unreg ()...)
;EOF
(if unregistered
  (foreach func
     (list a b)
   (setq func arlet-unreg)
)
)

But it didn't work
2; I must change as bellow to do my idea :

(if unregistered
  (progn
    
   (setq a arlet-unreg)
   (setq b arlet-unreg)
.....
  )
)
)

and it make my code longer
Please tell me what wrong with foreach in code 1st.
Thanks all very much

[ketxu]

Please don't mind. I've solded this problem with set and mapcar lambda. Thanks for reading ^^

[BlackBox]

I've solded this problem with set and mapcar lambda.

Could you please post code?

Thanks.

[ketxu]

Ok, it's my way to solved the problem:

(defun a ...) ;do sth
(defun b...) ; do sth
(defun C:doA nil (a)) ;call macro
(defun C:doB nil (b)) ;call macro
....
;Defun to alert Unregistered
(defun ST:Sys-Alert-Unregistered nil (alert "B\U+1EA1n ch\U+01B0a \U+0111\U+0103ng k\U+00FD n\U+00EAn kh\U+00F4ng s\U+1EED d\U+1EE5ng \U+0111\U+01B0\U+1EE3c l\U+1EC7nh n\U+00E0y :)"))

(setq #ST:Key "080227BB0300WCC6MPUA1") ;this key is HDD serial with some encrypt to check with

(defun ST:Sys-CheckKey (key) ...) ; this function to check key

;list all function use :
(setq #funclst '(a b ....))


(if (not (ST:Sys-CheckKey #ST:key)) ;unregisterd
    (progn    
        (mapcar '(lambda (x)(set x ST:Sys-Alert-Unregistered)) #funclst)            
    )
)

Now if unregistered, all doA, doB.. command goto alert function ^^

BTW, haiz, please tell me which sysvar make alert function only display in commandline (dialog is disappear). I forgot it and can't to find out now