[movitz-cvs] CVS update: movitz/losp/muerte/run-time-context.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	run-time-context.lisp 
Log Message:
Cleaned up the exports from the muerte package, somewhat.

Date: Thu May  5 17:17:22 2005
Author: ffjeld

Index: movitz/losp/muerte/run-time-context.lisp
diff -u movitz/losp/muerte/run-time-context.lisp:1.21 movitz/losp/muerte/run-time-context.lisp:1.22
--- movitz/losp/muerte/run-time-context.lisp:1.21	Thu May  5 00:47:17 2005
+++ movitz/losp/muerte/run-time-context.lisp	Thu May  5 17:17:22 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Nov 12 18:33:02 2003
 ;;;;                
-;;;; $Id: run-time-context.lisp,v 1.21 2005/05/04 22:47:17 ffjeld Exp $
+;;;; $Id: run-time-context.lisp,v 1.22 2005/05/05 15:17:22 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -27,14 +27,8 @@
 (defclass run-time-context (t)
   ((name
     :initarg :name
-    :initform :anonymous
     :accessor run-time-context-name))
-  (:metaclass run-time-context-class)
-  (:size #.(bt:sizeof 'movitz::movitz-run-time-context))
-  (:slot-map #.(movitz::slot-map 'movitz::movitz-run-time-context
-			       (cl:+ (bt:slot-offset 'movitz::movitz-run-time-context
-						     'movitz::run-time-context-start)
-				     0))))
+  (:metaclass run-time-context-class))
 
 (defmethod slot-value-using-class ((class run-time-context-class) object
 				   (slot standard-effective-slot-definition))
@@ -103,7 +97,8 @@
 
 (defmethod print-object ((x run-time-context) stream)
   (print-unreadable-object (x stream :type t :identity t)
-    (format stream "~S" (run-time-context-name x)))
+    (when (slot-boundp x 'name)
+      (format stream "~S" (run-time-context-name x))))
   x)
 
 ;;;