- movitz-cvs@common-lisp.net - mailman3.common-lisp.net

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette-compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv32704 Modified Files: los-closette-compiler.lisp Log Message: Added place-holder defun compute-slots. Date: Mon Feb 9 19:42:37 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.7 movitz/losp/muerte/los-closette-compiler.lisp:1.8 --- movitz/losp/muerte/los-closette-compiler.lisp:1.7 Mon Feb 9 19:41:42 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Mon Feb 9 19:42:37 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.7 2004/02/10 00:41:42 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.8 2004/02/10 00:42:37 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -847,6 +847,10 @@ (loop for i upfrom 0 as slot in effective-slots do (setf (slot-definition-location slot) i)) effective-slots)) + + (defun compute-slots (class) + (error "Don't know how to compute-slots for class ~S of class ~S." + class (class-of class))) (defun std-compute-effective-slot-definition (class name direct-slots) (declare (ignore name))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette-compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv11795 Modified Files: los-closette-compiler.lisp Log Message: Added placeholder defun compute-effective-slot-definition. Date: Mon Feb 9 19:41:42 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.6 movitz/losp/muerte/los-closette-compiler.lisp:1.7 --- movitz/losp/muerte/los-closette-compiler.lisp:1.6 Mon Feb 9 19:39:51 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Mon Feb 9 19:41:42 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.6 2004/02/10 00:39:51 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.7 2004/02/10 00:41:42 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -865,6 +865,10 @@ direct-slots)) :allocation (slot-definition-allocation (car direct-slots))))) + (defun compute-effective-slot-definition (class name direct-slots) + (declare (ignore name direct-slots)) + (error "Don't know how to compute-effective-slot-definition for class ~S of class ~S." + class (class-of class))) ;;;;

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette-compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv23043 Modified Files: los-closette-compiler.lisp Log Message: Added placeholder defun compute-class-precedence-list. Date: Mon Feb 9 19:39:52 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.5 movitz/losp/muerte/los-closette-compiler.lisp:1.6 --- movitz/losp/muerte/los-closette-compiler.lisp:1.5 Mon Feb 9 19:38:45 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Mon Feb 9 19:39:51 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.5 2004/02/10 00:38:45 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.6 2004/02/10 00:39:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -745,6 +745,10 @@ classes-to-order) :test #'equal) #'std-tie-breaker-rule))) + + (defun compute-class-precedence-list (class) + (error "Don't know how to compute class-precedence-list for ~S of class ~S." + class (class-of class))) ;;; topological-sort implements the standard algorithm for topologically ;;; sorting an arbitrary set of elements while honoring the precedence

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette-compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24768 Modified Files: los-closette-compiler.lisp Log Message: Added some ignore declarations to get rid of some warnings. Date: Mon Feb 9 19:38:45 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.4 movitz/losp/muerte/los-closette-compiler.lisp:1.5 --- movitz/losp/muerte/los-closette-compiler.lisp:1.4 Wed Feb 4 10:29:25 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Mon Feb 9 19:38:45 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.4 2004/02/04 15:29:25 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.5 2004/02/10 00:38:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -589,7 +589,7 @@ ;;; (defun movitz-make-instance-funcallable (metaclass &rest all-keys &key name direct-superclasses direct-slots &allow-other-keys) - ;; (declare (ignore metaclass)) + (declare (ignore all-keys)) (let ((class (std-allocate-instance metaclass))) #+ignore (dolist (slot (class-slots (movitz-class-of class))) @@ -650,7 +650,7 @@ &key name slots direct-slots ((:metaclass dummy)) (direct-superclasses (list (movitz-find-class 'structure-object)))) - (declare (ignore dummy)) + (declare (ignore dummy all-keys)) (assert (null direct-slots)) (let ((class (std-allocate-instance (if (symbolp metaclass) (movitz-find-class metaclass)

1 0

[movitz-cvs] CVS update: movitz/image.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv30608 Modified Files: image.lisp Log Message: Really don't use +code-vector-entry-factor+. Date: Mon Feb 9 19:32:09 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.11 movitz/image.lisp:1.12 --- movitz/image.lisp:1.11 Mon Feb 9 19:29:10 2004 +++ movitz/image.lisp Mon Feb 9 19:32:08 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.11 2004/02/10 00:29:10 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.12 2004/02/10 00:32:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1187,7 +1187,7 @@ (when x (list pc (list (format nil " ~S" (car x))) "" nil))) collect it when (some (lambda (x) - (and (plusp pc) (= pc (* x +code-vector-entry-factor+)))) + (and (plusp pc) (= pc x))) entry-points) collect (list pc nil (format nil " => Entry-point for ~D arguments <="

1 0

[movitz-cvs] CVS update: movitz/image.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv29570 Modified Files: image.lisp Log Message: Don't use +code-vector-entry-factor+. Date: Mon Feb 9 19:29:10 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.10 movitz/image.lisp:1.11 --- movitz/image.lisp:1.10 Mon Feb 9 18:41:13 2004 +++ movitz/image.lisp Mon Feb 9 19:29:10 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.10 2004/02/09 23:41:13 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.11 2004/02/10 00:29:10 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1192,7 +1192,7 @@ collect (list pc nil (format nil " => Entry-point for ~D arguments <=" (1+ (position-if (lambda (x) - (= pc (* x +code-vector-entry-factor+))) + (= pc x)) entry-points))) nil) collect (list pc

1 0

[movitz-cvs] CVS update: movitz/compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv5064 Modified Files: compiler.lisp Log Message: Removed defconstant +code-vector-entry-factor+ which I don't really know what was for. Date: Mon Feb 9 19:28:34 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.19 movitz/compiler.lisp:1.20 --- movitz/compiler.lisp:1.19 Mon Feb 9 19:25:28 2004 +++ movitz/compiler.lisp Mon Feb 9 19:28:34 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.19 2004/02/10 00:25:28 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.20 2004/02/10 00:28:34 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -110,8 +110,6 @@ (warn "~S shrunk from ~D to ~D bytes" name old-size new-size)))) (setf (gethash hash-name (function-code-sizes *image*)) new-size)) funobj) - -(defconstant +code-vector-entry-factor+ 1) (defclass movitz-funobj-pass1 () ((name

1 0

[movitz-cvs] CVS update: movitz/compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv5981 Modified Files: compiler.lisp Log Message: Moved defconstant +enter-stack-frame-code+ to top of file. Date: Mon Feb 9 19:25:28 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.18 movitz/compiler.lisp:1.19 --- movitz/compiler.lisp:1.18 Sun Feb 8 18:24:13 2004 +++ movitz/compiler.lisp Mon Feb 9 19:25:28 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.18 2004/02/08 23:24:13 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.19 2004/02/10 00:25:28 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -54,6 +54,11 @@ (defvar *compiling-function-name*) (defvar muerte.cl:*compile-file-pathname* nil) +(defconstant +enter-stack-frame-code+ + '((:pushl :ebp) + (:movl :esp :ebp) + (:pushl :esi))) + (defun duplicatesp (list) "Returns TRUE iff at least one object occurs more than once in LIST." (if (null list) @@ -874,11 +879,6 @@ (values '((:pushl :ebx)) 1)) (t (error "make-2req confused by loc0: ~W, loc1: ~W" location-0 location-1))))) - -(defconstant +enter-stack-frame-code+ - '((:pushl :ebp) - (:movl :esp :ebp) - (:pushl :esi))) #+ignore (defun make-compiled-function-body-1rest (form funobj env top-level-p)

1 0

[movitz-cvs] CVS update: movitz/environment.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv2698 Modified Files: environment.lisp Log Message: Misspelled movitz-funobj-name as funobj-name. Date: Mon Feb 9 19:24:38 2004 Author: ffjeld Index: movitz/environment.lisp diff -u movitz/environment.lisp:1.3 movitz/environment.lisp:1.4 --- movitz/environment.lisp:1.3 Thu Feb 5 09:46:08 2004 +++ movitz/environment.lisp Mon Feb 9 19:24:38 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 3 11:40:15 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: environment.lisp,v 1.3 2004/02/05 14:46:08 ffjeld Exp $ +;;;; $Id: environment.lisp,v 1.4 2004/02/10 00:24:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -198,7 +198,7 @@ (call-next-method)) (t (print-unreadable-object (object stream :type t :identity t) (format stream "of ~A binding~?" - (funobj-name (movitz-environment-funobj object)) + (movitz-funobj-name (movitz-environment-funobj object)) "~#[ nothing~; ~S~; ~S and ~S~:;~@{~#[~; and~] ~S~^,~}~]" (mapcar #'binding-name (mapcar #'cdr (movitz-environment-bindings object))))) object)))

1 0

[movitz-cvs] CVS update: movitz/stream-image.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv16321 Modified Files: stream-image.lisp Log Message: Added a fall-back method image-register32 for stream-images. Date: Mon Feb 9 19:23:40 2004 Author: ffjeld Index: movitz/stream-image.lisp diff -u movitz/stream-image.lisp:1.2 movitz/stream-image.lisp:1.3 --- movitz/stream-image.lisp:1.2 Mon Jan 19 06:23:41 2004 +++ movitz/stream-image.lisp Mon Feb 9 19:23:39 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Aug 27 14:46:50 2001 ;;;; -;;;; $Id: stream-image.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $ +;;;; $Id: stream-image.lisp,v 1.3 2004/02/10 00:23:39 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -33,6 +33,10 @@ :initarg :nil-word :initform #x65 :reader image-nil-word))) + +(defmethod image-register32 ((image stream-image) register-name) + (declare (ignorable image) (ignore register-name)) + (error "A stream-image has no CPU state.")) (defmethod (setf image-stream-position) (value (image stream-image) &optional physicalp) (check-type value (integer 0 *))

1 0