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

Modified Files: image.lisp Log Message: Cleaned up the exports from the muerte package, somewhat.

Date: Thu May 5 17:16:39 2005 Author: ffjeld

Index: movitz/image.lisp diff -u movitz/image.lisp:1.97 movitz/image.lisp:1.98 --- movitz/image.lisp:1.97 Thu May 5 15:21:40 2005 +++ movitz/image.lisp Thu May 5 17:16:38 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.97 2005/05/05 13:21:40 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.98 2005/05/05 15:16:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -572,8 +572,8 @@ muerte:run-time-context muerte.mop:standard-effective-slot-definition muerte.mop:funcallable-standard-class - muerte:basic-restart - muerte:illegal-object)) + muerte::basic-restart + muerte::illegal-object))

(defun class-object-offset (name) (let ((name (translate-program name :cl :muerte.cl)))