Mathematica Stack Exchange is a question and answer site for users of Mathematica. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

My template for building packages has, at the end, the following expression that automatically ReadProtects all symbols defined in my pack:

ToExpression[Names["pack`*"], InputForm, SetAttributes[#, {ReadProtected(*,Locked*)}] &]

It works fine, with the exception of cases where I define a constant, like for example: iso=3; This produces the following message (when loading the package):

SetAttributes::sym: Argument 3 at position 1 is expected to be a symbol. >>

Can the automated expression that sets ReadProtected be changed to correct this behavior?

share|improve this question
up vote 10 down vote accepted

My guess would be this:

   Function[sym,SetAttributes[sym, {ReadProtected(*,Locked*)}],HoldFirst] 

The problem is that functions defined with # - & notation do not hold their arguments.

share|improve this answer
Works fine, thank you! – P. Fonseca Apr 30 '12 at 13:25

This is undocumented so I don't know how stable it is. But worth to point this out.

  • SetAttributes can work on strings if those strings are representing symbols that were already created.

Which is usually the case after running a package. moreover, those symbols don't have to have any type of value, just need to be created when read.

  • The point is, you can just SetAttributes[#,Locked]& /@ Names["Context`*"]



SetAttributes["x", Locked]



SetAttributes["x", Locked]
SetAttributes["x", Locked]
share|improve this answer

Your Answer


By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.