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))