this 'kinda works', haven't been able to narrow down the problem, seems to pass arguements 'okay' however i keep ending up with an error about no function 0.6798 or some such thing when i try to incorporate all my defuns.
I've been throwing everything into lists to get a better look at stuff, i know it's not necessary.
again this is just for fun... :ugly:
(setq biglist
'((defun bigtest ( something)
(alert something))))
(DEFUN loadfun (thefunction)
(FOREACH funct biglist
(IF (= 'DEFUN (NTH 0 funct))
(IF (= thefunction (VL-SYMBOL-NAME (NTH 1 funct)))
(eval funct)
)
)
)
)
(foreach item (setq newlist (MAPCAR '(LAMBDA (funct)
(IF (= 'DEFUN (NTH 0 funct))
(LIST (NTH 0 funct)
(NTH 1 funct)
(NTH 2 funct)
(LIST 'loadfun
(VL-SYMBOL-NAME (NTH 1 funct)))
(IF (NTH 2 funct)
(LIST 'EVAL
(append (LIST (NTH 1 funct))
(if (member '/ (NTH 2 funct))
(reverse(cdr (member '/ (reverse (NTH 2 funct)))))
(NTH 2 funct))
)
)
(LIST 'EVAL (LIST (NTH 1 funct)))
)
)
funct
)
)
biglist
))
(eval item))