Oldie, but a Goodie - PRAGMA !

[alanjt]

Here's a generic one I did a while back, but never ended up using or thoroughly testing...

 

(defun _protectLoad (directory / before after)
 (if (setq directory (findfile directory))
   (progn (setq before (cons 'before (atoms-family 0)))
          (foreach file (vl-directory-files directory "*.LSP" 1)
            (load (strcat directory "\\" file) nil)
          )
          (if (setq after (vl-remove-if '(lambda (x) (member x before)) (atoms-family 0)))
            (progn (eval (list 'pragma (list 'quote (list (cons 'unprotect-assign after)))))
                   (eval (list 'pragma (list 'quote (list (cons 'protect-assign after)))))
            )
          )
   )
 )
)

[BlackBox]

Here's a generic one I did a while back, but never ended up using or thoroughly testing...

 

Three points for usage of atoms-family.

[alanjt]

Three points for usage of atoms-family.

lol............

[Ahankhah]

I find out that:

 

1- PRAGMA does't work (at least in changing protected symbols to blue), if VLIDE editor isn't active (i.e. open).

 

2- Here are two other key-words other than protect-assign and unprotect-assign, used by PRAGMA function:

export-to-acad

not-localize

 

I am studying to know what is the effect of using two above symbols by PRAGMA.

[samifox]

So how system variable function is correctly writen? Lets say pdmode

[Bhull1985]

I believe system variables are already protected.