71a72,81
> ;anything in "SYSTEM" which should go in "COMMON-LISP"
> ;can be added to shadow-system
> (setf shadow-system '(system::copy-structure))
> 
> (do-external-symbols (s "SYSTEM")
> 		     (when (member s shadow-system)
> 		       (shadowing-import (list s) "COMMON-LISP")
> 		       (shadowing-import (list s) "USER")))
> 			 
> 
129a140
> (makunbound 'shadow-system)
132a144
> (unintern 'shadow-system)