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

Modified Files: inspect.lisp Log Message: Removed obsoleted operator malloc-pointer-words.

Date: Thu Sep 23 11:32:15 2004 Author: ffjeld

Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.40 movitz/losp/muerte/inspect.lisp:1.41 --- movitz/losp/muerte/inspect.lisp:1.40 Wed Sep 22 19:39:04 2004 +++ movitz/losp/muerte/inspect.lisp Thu Sep 23 11:32:15 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Oct 24 09:50:41 2003 ;;;; -;;;; $Id: inspect.lisp,v 1.40 2004/09/22 17:39:04 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.41 2004/09/23 09:32:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -159,18 +159,6 @@ (declare (ignore context)) (when (member :catch types) (format t "~&catch: ~Z: ~S" tag tag)))))) - - -(defun malloc-pointer-words (words) - (check-type words (integer 2 *)) - (with-allocation-assembly (words :fixed-size-p t - :object-register :eax - :size-register :ecx) - (:load-lexical (:lexical-binding words) :ecx) -;;; (:leal (:eax :ecx #.movitz:+other-type-offset+) :edx) -;;; (:testb 3 :dl) -;;; (:jnz '(:sub-program () (:int 63))) - (:movl :edi (:eax :ecx #.movitz:+other-type-offset+))))

(defun %shallow-copy-object (object word-count) "Copy any object with size word-count."