From fa534965c7c9e27f082947901e9f10ff27eb6cf9 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Fri, 1 Jun 2007 23:50:08 +0200 Subject: [PATCH] Moved COERCEF and added NCONCF to IOLIB-UTILS. Signed-off-by: Stelian Ionescu --- sockets/common.lisp | 3 --- utils/misc.lisp | 6 +++++- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/sockets/common.lisp b/sockets/common.lisp index f60b3e6..9e720b5 100644 --- a/sockets/common.lisp +++ b/sockets/common.lisp @@ -32,9 +32,6 @@ (deftype ipv6-array () '(ub16-sarray 8)) - -(define-modify-macro coercef (type-spec) coerce) - ;;; ;;; Byte-swap functions ;;; diff --git a/utils/misc.lisp b/utils/misc.lisp index 2107be9..ad30d41 100644 --- a/utils/misc.lisp +++ b/utils/misc.lisp @@ -46,4 +46,8 @@ (defun xnor (x1 x2) (eq (not x1) (not x2))) -(export '(define-constant %check-bounds return-if featurep xnor)) +(define-modify-macro coercef (type-spec) coerce) + +(define-modify-macro nconcf (&rest lists) nconc) + +(export '(define-constant %check-bounds return-if featurep xnor coercef nconcf)) -- 2.11.4.GIT