mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-15 15:21:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

Replace DEFCONSTANT with DEFPARAMETER because it constains a call to C-INLINE

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-28 21:44:06 +02:00
parent f6ff6e4ffc
commit 19cbcd5a7c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
contrib/serve-event/serve-event.lisp
View file

@ -49,7 +49,7 @@
`(progn
,@(loop
for (lisp-name c-name) on args by #'cddr
collect `(defconstant ,lisp-name (c-inline () () :int ,c-name :one-liner t)))))
collect `(defparameter ,lisp-name (c-inline () () :int ,c-name :one-liner t)))))
(defmacro c-constant (name)
`(c-inline () () :int ,name :one-liner t)))