[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory cl-net:/tmp/cvs-serv12296

Modified Files:
	basic-functions.lisp 
Log Message:
Fix a bug for apply with more than 255 arguments.


--- /project/movitz/cvsroot/movitz/losp/muerte/basic-functions.lisp	2008/04/21 19:31:10	1.27
+++ /project/movitz/cvsroot/movitz/losp/muerte/basic-functions.lisp	2009/07/19 18:32:34	1.28
@@ -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.27 2008/04/21 19:31:10 ffjeld Exp $
+;;;; $Id: basic-functions.lisp,v 1.28 2009/07/19 18:32:34 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -270,8 +270,8 @@
 	  (:subl :esp :ecx)
 	  (:shrl 2 :ecx)
 	  ;; Encode ECX
-	  (:testb :cl :cl)
-	  (:jns 'ecx-ok)
+          (:testl #xffffff80 :ecx)
+	  (:jz 'ecx-ok)
 	  (:shll 8 :ecx)
 	  (:movb #xff :cl)
 	 ecx-ok