From fdaf7a06f6f2698111bce64fee88fc66235dc4ba Mon Sep 17 00:00:00 2001 From: Surendra Singhi Date: Fri, 14 Apr 2006 07:54:07 +0000 Subject: [PATCH] Prefixed package name to cl symbols. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9055 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- SWIG/Lib/cffi/cffi.swg | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/SWIG/Lib/cffi/cffi.swg b/SWIG/Lib/cffi/cffi.swg index 767fad5b2..52b7283e3 100644 --- a/SWIG/Lib/cffi/cffi.swg +++ b/SWIG/Lib/cffi/cffi.swg @@ -99,13 +99,13 @@ %insert("swiglisp") %{ ;;;SWIG wrapper code starts here -(defmacro defanonenum (&body enums) +(cl:defmacro defanonenum (&body enums) "Converts anonymous enums to defconstants." - `(progn ,@(loop for value in enums - for index = 0 then (1+ index) - when (listp value) do (setf index (second value) - value (first value)) - collect `(defconstant ,value ,index)))) + `(cl:progn ,@(cl:loop for value in enums + for index = 0 then (cl:1+ index) + when (cl:listp value) do (cl:setf index (cl:second value) + value (cl:first value)) + collect `(cl:defconstant ,value ,index)))) ;;;SWIG wrapper code ends here %}