From f6ff6e4ffcc0bc3dc8b8de676a937299523b9199 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 28 Jun 2009 21:43:26 +0200 Subject: [PATCH] Again, DEFCONSTANT statements cannot contain C-INLINE forms. --- contrib/sockets/sockets.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/contrib/sockets/sockets.lisp b/contrib/sockets/sockets.lisp index bf3801065..d48fa0b6f 100644 --- a/contrib/sockets/sockets.lisp +++ b/contrib/sockets/sockets.lisp @@ -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*)