[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv9679

Modified Files:
	basic-functions.lisp 
Log Message:
Remove dead code.


--- /project/movitz/cvsroot/movitz/losp/muerte/basic-functions.lisp	2008/04/08 21:40:33	1.25
+++ /project/movitz/cvsroot/movitz/losp/muerte/basic-functions.lisp	2008/04/19 12:42:56	1.26
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Sep  4 18:41:57 2001
 ;;;;                
-;;;; $Id: basic-functions.lisp,v 1.25 2008/04/08 21:40:33 ffjeld Exp $
+;;;; $Id: basic-functions.lisp,v 1.26 2008/04/19 12:42:56 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -466,36 +466,3 @@
 	    (setf (memref object offset :index i :type :character)
 	      (char value j))))))))
   value)
-
-
-
-(define-primitive-function blah ()
-  "foo"
-  (with-inline-assembly (:returns :multiple-values)
-    ;; EAX: (presumed) keyword
-    (:globally (:cmpl :eax (:edi (:edi-offset allow-other-keys-symbol))))
-    (:je '(:sub-program (found-allow-other-keys)
-	   				; XXX
-	   (:ret)))
-    (:leal (:ebx -7) :ecx)
-    (:testb 7 :cl)
-    (:jnz '(:sub-program ()
-	    (:xorl :ecx :ecx)		; hash of nil is 0
-	    (:cmpl :edi :ebx)
-	    (:je 'proceed-with-nil-key)
-	    (:movl :ebx :eax)
-	    (:movb 0 :cl)
-	    (:int 72)))
-    (:xorl :ecx :ecx)
-    (:movw (:eax (:offset movitz-symbol hash-key)) :cx)
-   proceed-with-nil-key
-    ;; We now have symbol's basic sxhash in CX.
-    (:xorl :edx :edx)
-    (:leal ((:ecx 4) :edx) :edx)
-    (:andl (:esi (:offset movitz-funobj constant0))
-	   :edx)
-    
-    (:ret)
-    
-    ))
-