Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv29472 Modified Files: basic-macros.lisp Log Message: Include the :label argumet for with-inline-assembly. Date: Sun Jul 11 16:04:14 2004 Author: ffjeld Index: movitz/losp/muerte/basic-macros.lisp diff -u movitz/losp/muerte/basic-macros.lisp:1.25 movitz/losp/muerte/basic-macros.lisp:1.26 --- movitz/losp/muerte/basic-macros.lisp:1.25 Wed Jul 7 10:37:30 2004 +++ movitz/losp/muerte/basic-macros.lisp Sun Jul 11 16:04:14 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: basic-macros.lisp,v 1.25 2004/07/07 17:37:30 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.26 2004/07/11 23:04:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -966,9 +966,9 @@ `(progn ,@body)) -(defmacro with-inline-assembly ((&key returns (side-effects t) (type t)) &body program) +(defmacro with-inline-assembly ((&key returns (side-effects t) (type t) labels) &body program) `(with-inline-assembly-case (:side-effects ,side-effects :type ,type) - (do-case (t ,returns) + (do-case (t ,returns :labels ,labels) ,@program))) (defmacro numargs-case (&rest args)