[movitz-cvs] CVS update: movitz/losp/muerte/basic-functions.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

20 Dec 2004

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv11821
Modified Files:
    basic-functions.lisp 
Log Message:
Removed dead code.
Date: Mon Dec 20 11:51:53 2004
Author: ffjeld
Index: movitz/losp/muerte/basic-functions.lisp
diff -u movitz/losp/muerte/basic-functions.lisp:1.14 movitz/losp/muerte/basic-functions.lisp:1.15

--- movitz/losp/muerte/basic-functions.lisp:1.14	Fri Nov 12 15:51:56 2004
+++ movitz/losp/muerte/basic-functions.lisp	Mon Dec 20 11:51:52 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld frodef@acm.org
 ;;;; Created at:    Tue Sep  4 18:41:57 2001
 ;;;;                
-;;;; $Id: basic-functions.lisp,v 1.14 2004/11/12 14:51:56 ffjeld Exp $
+;;;; $Id: basic-functions.lisp,v 1.15 2004/12/20 10:51:52 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -68,29 +68,6 @@
     (:xorl :ecx :ecx)
     (:call (:esi #.(movitz::slot-offset 'movitz::movitz-funobj 'movitz::code-vector)))))
-#+ignore
-(defun funcall%1ops (function-name arg0)
-  (funcall%1ops function-name arg0)	; compiler-macro
-  #+ignore (with-inline-assembly (:returns :multiple-values)
-	     (:compile-form (:result-mode :esi) (etypecase function-name
-						  (symbol (symbol-function function-name))
-						  (compiled-function function-name)))
-	     (:compile-form (:result-mode :edx) function-name)
-	     (:compile-form (:result-mode :eax) arg0)
-	     (:call (:esi #.(movitz::slot-offset 'movitz::movitz-funobj 'movitz::code-vector%1op)))))
-
-#+ignore
-(defun funcall%2ops (function arg0 arg1)
-  (funcall%2ops function arg0 arg1)	; compiler-macro.
-  #+ignore (with-inline-assembly (:returns :multiple-values)
-	     (:compile-form (:result-mode :esi) (etypecase function
-						  (symbol (symbol-function function))
-						  (compiled-function function)))
-	     (:compile-form (:result-mode :edx) function)
-	     (:compile-form (:result-mode :eax) arg0)
-	     (:compile-form (:result-mode :ebx) arg1)
-	     (:call (:esi #.(movitz::slot-offset 'movitz::movitz-funobj 'movitz::code-vector%2op)))))
-  
 (defun funcall (function-or-name &rest args)
   (numargs-case
    (1 (function-or-name)

    