- (setq *package* *initial-package*)
- (setq *default-policy* (copy-policy *initial-policy*))
- (setq *default-interface-policy*
- (copy-policy *initial-interface-policy*))
+ (setf *package* *initial-package*
+ *default-policy* *initial-policy*
+ *default-interface-policy* *initial-interface-policy*)