jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prefixed package name to cl symbols.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9055 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Surendra Singhi 2006-04-14 07:54:07 +00:00
commit fdaf7a06f6
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
SWIG/Lib/cffi/cffi.swg
View file

@ -99,13 +99,13 @@
%insert("swiglisp") %{ %insert("swiglisp") %{
;;;SWIG wrapper code starts here ;;;SWIG wrapper code starts here
(defmacro defanonenum (&body enums) (cl:defmacro defanonenum (&body enums)
"Converts anonymous enums to defconstants." "Converts anonymous enums to defconstants."
`(progn ,@(loop for value in enums `(cl:progn ,@(cl:loop for value in enums
for index = 0 then (1+ index) for index = 0 then (cl:1+ index)
when (listp value) do (setf index (second value) when (cl:listp value) do (cl:setf index (cl:second value)
value (first value)) value (cl:first value))
collect `(defconstant ,value ,index)))) collect `(cl:defconstant ,value ,index))))
;;;SWIG wrapper code ends here ;;;SWIG wrapper code ends here
%} %}