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