[movitz-cvs] CVS update: movitz/losp/muerte/packages.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv4605

Modified Files:
	packages.lisp 
Log Message:
Don't use movitz-accessor.

Date: Thu Oct 21 22:50:19 2004
Author: ffjeld

Index: movitz/losp/muerte/packages.lisp
diff -u movitz/losp/muerte/packages.lisp:1.4 movitz/losp/muerte/packages.lisp:1.5
--- movitz/losp/muerte/packages.lisp:1.4	Sat Sep 25 17:36:16 2004
+++ movitz/losp/muerte/packages.lisp	Thu Oct 21 22:50:19 2004
@@ -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.4 2004/09/25 15:36:16 ffjeld Exp $
+;;;; $Id: packages.lisp,v 1.5 2004/10/21 20:50:19 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -82,14 +82,14 @@
       (unless status
 	(let ((name (subseq name start end)))
 	  (map-into name key name)
-	  (setf symbol (make-symbol name))
+	  (setf symbol (%create-symbol name package))
 	  (when (eq package (find-package :keyword))
 	    (setf (symbol-flags symbol)
 	      #.(bt:enum-value 'movitz::movitz-symbol-flags '(:constant-variable)))
 	    (setf (symbol-value symbol)
 	      symbol))))
       (unless (symbol-package symbol)
-	(setf-movitz-accessor (symbol movitz-symbol package) package))
+	(setf (memref symbol (movitz-type-slot-offset 'movitz-symbol 'package)) package))
       (unless status
 	(if (eq package (find-package :keyword))
 	    (setf (gethash (symbol-name symbol) (package-object-external-symbols package)) symbol)