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/SWIG@9055 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Surendra Singhi 2006-04-14 07:54:07 +00:00
commit f1ad6a000d
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Lib/cffi/cffi.swg
View file

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