Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv5039
Modified Files: los-closette-compiler.lisp Log Message: Rearranged some code to have movitz build cleanly.
Date: Wed Aug 24 09:31:48 2005 Author: ffjeld
Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.18 movitz/losp/muerte/los-closette-compiler.lisp:1.19 --- movitz/losp/muerte/los-closette-compiler.lisp:1.18 Sun Aug 21 15:47:53 2005 +++ movitz/losp/muerte/los-closette-compiler.lisp Wed Aug 24 09:31:47 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.18 2005/08/21 13:47:53 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.19 2005/08/24 07:31:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -27,7 +27,8 @@ (define-compile-time-variable *the-slots-of-standard-class* nil) (define-compile-time-variable *the-position-of-standard-effective-slots* nil) (define-compile-time-variable *the-class-standard-class* nil) - +(define-compile-time-variable *the-standard-method-combination* nil) + (eval-when (:compile-toplevel) ; extends to EOF
(defvar *classes-with-old-slot-definitions* nil) @@ -524,7 +525,7 @@ (slots (std-instance-slots instance))) (setf (svref slots location) (muerte::translate-program value :cl :muerte.cl))))
- (defun movitz-slot-vale (object slot-name) + (defun movitz-slot-value (object slot-name) (std-slot-value object (translate-program slot-name :cl :muerte.cl)))
(defun (setf movitz-slot-value) (new-value object slot-name)