[movitz-cvs] CVS update: movitz/image.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
Added "fast" implementations of cddr and cdddr, in an effort to reduce
cal/ret run-time and code-size overhead in list processing.

Date: Sat Apr 17 11:33:51 2004
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.24 movitz/image.lisp:1.25
--- movitz/image.lisp:1.24	Fri Apr 16 04:57:29 2004
+++ movitz/image.lisp	Sat Apr 17 11:33:51 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.24 2004/04/16 08:57:29 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.25 2004/04/17 15:33:51 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -39,6 +39,18 @@
     :map-binary-write 'movitz-intern-code-vector
     :map-binary-read-delayed 'movitz-word-code-vector
     :binary-tag :primitive-function)
+   (fast-cddr
+    :binary-type code-vector-word
+    :initform nil
+    :map-binary-write 'movitz-intern-code-vector
+    :map-binary-read-delayed 'movitz-word-code-vector
+    :binary-tag :primitive-function)
+   (fast-cdddr
+    :binary-type code-vector-word
+    :initform nil
+    :map-binary-write 'movitz-intern-code-vector
+    :map-binary-read-delayed 'movitz-word-code-vector
+    :binary-tag :primitive-function)
    (fast-car-ebx
     :binary-type code-vector-word
     :initform nil
@@ -128,12 +140,6 @@
    (stack-top				; stack-top must be right after stack-bottom
     :binary-type word			; in order for the bound instruction to work.
     :initform #x100000)
-   (bochs-flags
-    :binary-type lu32
-    :initform 0)
-   (bochs-flags2
-    :binary-type lu32
-    :initform 0)
    ;;
    (unbound-value
     :binary-type word
@@ -421,6 +427,9 @@
    (segment-descriptor-7
     :binary-type segment-descriptor
     :initform (make-segment-descriptor))
+   (bochs-flags
+    :binary-type lu32
+    :initform 0)
    )
   (:slot-align null-cons -1))