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

case mode fixes for allegrocl module

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6070 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Ahmon Dancy 2004-08-03 23:07:45 +00:00
commit 440a4592e3
3 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Lib/allegrocl/allegrocl.swg
View file

@ -14,7 +14,7 @@
(defun identifier-convert-null (id &key type)
(declare (ignore type))
(intern id))
(read-from-string id))
(defun identifier-convert-lispify (cname &key type)
(assert (stringp cname))
@ -42,7 +42,7 @@
else
(push char res)
(setf lastcase :other)))
(intern (coerce (nreverse res) 'string))))
(read-from-string (coerce (nreverse res) 'string))))
(defmacro swig-defconstant (string value)
(let ((symbol (funcall *swig-identifier-converter* string :type :constant)))
@ -57,7 +57,11 @@
(ff:def-foreign-call (,symbol ,name) ,@rest)
(export (quote ,symbol))))))
(defmacro swig-def-foreign-type (name &rest rest)
(let ((symbol (funcall *swig-identifier-converter* name :type :type)))
`(eval-when (compile load eval)
(ff:def-foreign-type ,symbol ,@rest)
(export (quote ,symbol)))))
) ;; eval-when
%}