Commit da099b40 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld
Browse files

Fix a bug for apply with more than 255 arguments.

parent 79a18b7e

losp/muerte/basic-functions.lisp

+3 −3
Changes for losp/muerte/basic-functions.lisp: 3 added lines, 3 removed lines.
Original line number Diff line number Diff line
@@ -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.26 2008/04/19 12:42:56 ffjeld Exp $

;;;; $Id: basic-functions.lisp,v 1.27 2008/04/21 19:31:10 ffjeld Exp $

;;;;                

;;;;------------------------------------------------------------------
@@ -270,8 +270,8 @@ from regular function-calls." 
	  (: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