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

[Frode Vatvedt Fjeld]

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

Modified Files:
	functions.lisp 
Log Message:
These checkins more or less complete the migration to the new
basic-vector data-structure. All traces of the old vector structure
should be gone.

Date: Wed Jul  7 10:37:43 2004
Author: ffjeld

Index: movitz/losp/muerte/functions.lisp
diff -u movitz/losp/muerte/functions.lisp:1.13 movitz/losp/muerte/functions.lisp:1.14
--- movitz/losp/muerte/functions.lisp:1.13	Thu Jun 10 12:26:33 2004
+++ movitz/losp/muerte/functions.lisp	Wed Jul  7 10:37:43 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Mar 12 22:58:54 2002
 ;;;;                
-;;;; $Id: functions.lisp,v 1.13 2004/06/10 19:26:33 ffjeld Exp $
+;;;; $Id: functions.lisp,v 1.14 2004/07/07 17:37:43 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -102,7 +102,7 @@
 
 (defun (setf funobj-code-vector) (code-vector funobj)
   (check-type funobj function)
-  (check-type code-vector vector-u8)
+  (check-type code-vector code-vector)
   (setf (memref funobj #.(bt:slot-offset 'movitz:movitz-funobj 'movitz::code-vector) 0 :code-vector)
     code-vector))
 
@@ -135,7 +135,7 @@
 (defun (setf funobj-code-vector%1op) (code-vector funobj)
   (check-type funobj function)
   (etypecase code-vector
-    (vector-u8
+    (code-vector
      (with-inline-assembly (:returns :nothing)
        (:compile-form (:result-mode :ebx) funobj)
        (:compile-form (:result-mode :eax) code-vector)
@@ -180,7 +180,7 @@
 (defun (setf funobj-code-vector%2op) (code-vector funobj)
   (check-type funobj function)
   (etypecase code-vector
-    (vector-u8
+    (code-vector
      (with-inline-assembly (:returns :nothing)
        (:compile-form (:result-mode :ebx) funobj)
        (:compile-form (:result-mode :eax) code-vector)
@@ -225,7 +225,7 @@
 (defun (setf funobj-code-vector%3op) (code-vector funobj)
   (check-type funobj function)
   (etypecase code-vector
-    (vector-u8
+    (code-vector
      (with-inline-assembly (:returns :nothing)
        (:compile-form (:result-mode :ebx) funobj)
        (:compile-form (:result-mode :eax) code-vector)
@@ -340,14 +340,14 @@
 			 lambda-list)
   (setf code-vector
     (etypecase code-vector
-      (vector-u8 code-vector)
+      (code-vector code-vector)
       (list
        (make-array (length code-vector)
-		   :element-type 'u8
+		   :element-type 'code
 		   :initial-contents code-vector))
       (vector 
        (make-array (length code-vector)
-		   :element-type 'u8
+		   :element-type 'code
 		   :initial-contents code-vector))))
   (let ((funobj (malloc-words (+ #.(cl:truncate (bt:sizeof 'movitz:movitz-funobj) 4)
 				 (length constants)))))