[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv10353

Modified Files:
	packages.lisp 
Log Message:
Tweak intern slightly for speed.


--- /project/movitz/cvsroot/movitz/losp/muerte/packages.lisp	2006/04/28 21:19:08	1.13
+++ /project/movitz/cvsroot/movitz/losp/muerte/packages.lisp	2008/04/19 12:45:03	1.14
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Aug 30 15:19:43 2001
 ;;;;                
-;;;; $Id: packages.lisp,v 1.13 2006/04/28 21:19:08 ffjeld Exp $
+;;;; $Id: packages.lisp,v 1.14 2008/04/19 12:45:03 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -100,7 +100,7 @@
 	  (when (eq package (find-package :keyword))
 	    (setf (symbol-flags symbol)
 	      #.(bt:enum-value 'movitz::movitz-symbol-flags '(:constant-variable)))
-	    (setf (symbol-value symbol)
+	    (setf (%symbol-global-value symbol)
 	      symbol))))
       (unless (symbol-package symbol)
 	(setf (memref symbol (movitz-type-slot-offset 'movitz-symbol 'package)) package))