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

[allegrocl] see CHANGES.current.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9528 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Mikel Bancroft 2006-11-07 19:34:18 +00:00
commit be61c5347b
3 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Lib/allegrocl/allegrocl.swg
View file

@ -504,10 +504,10 @@ $body)"
`(cl::eval-when (compile load eval)
(cl::in-package ,(package-name-for-namespace namespace))))
(defswig2 swig-defvar (name mangled-name &key type)
(defswig2 swig-defvar (name mangled-name &key type (ftype :unsigned-natural))
(cl::let ((symbol (id-convert-and-export name :type type)))
`(cl::eval-when (compile load eval)
(ff:def-foreign-variable (,symbol ,mangled-name)))))
(ff:def-foreign-variable (,symbol ,mangled-name) :type ,ftype))))
) ;; eval-when