mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-11 23:40:36 -07:00
Code Issues Projects Releases Packages Wiki Activity

Again, DEFCONSTANT statements cannot contain C-INLINE forms.

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

6
contrib/sockets/sockets.lisp
View file

@ -93,7 +93,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)))
@ -1254,7 +1254,7 @@ also known as unix-domain sockets."))
(defmacro define-socket-condition (symbol name)
`(progn
(defconstant ,symbol (c-constant ,(symbol-name symbol)))
(defparameter ,symbol (c-constant ,(symbol-name symbol)))
(define-condition ,name (socket-error)
((symbol :reader socket-error-symbol :initform (quote ,symbol))))
(export ',name)
@ -1336,7 +1336,7 @@ GET-NAME-SERVICE-ERRNO")
(defmacro define-name-service-condition (symbol name)
`(progn
(defconstant ,symbol (c-constant ,(symbol-name symbol)))
(defparameter ,symbol (c-constant ,(symbol-name symbol)))
(define-condition ,name (name-service-error)
((symbol :reader name-service-error-symbol :initform (quote ,symbol))))
(push (cons ,symbol (quote ,name)) *conditions-for-name-service-errno*)