projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.0.25:
[sbcl.git]
/
contrib
/
sb-posix
/
macros.lisp
diff --git
a/contrib/sb-posix/macros.lisp
b/contrib/sb-posix/macros.lisp
index
5cfa2e9
..
7d388ac
100644
(file)
--- a/
contrib/sb-posix/macros.lisp
+++ b/
contrib/sb-posix/macros.lisp
@@
-46,7
+46,8
@@
(defun lisp-for-c-symbol (s)
(intern (substitute #\- #\_ (string-upcase s)) :sb-posix))
(defun lisp-for-c-symbol (s)
(intern (substitute #\- #\_ (string-upcase s)) :sb-posix))
-(defmacro define-call-internally (lisp-name c-name return-type error-predicate &rest arguments)
+(defmacro define-call-internally (lisp-name c-name return-type error-predicate
+ &rest arguments)
(if (sb-sys:foreign-symbol-address-as-integer-or-nil c-name)
`(progn
(declaim (inline ,lisp-name))
(if (sb-sys:foreign-symbol-address-as-integer-or-nil c-name)
`(progn
(declaim (inline ,lisp-name))
@@
-57,11
+58,16
@@
(function ,return-type
,@(mapcar
(lambda (x)
(function ,return-type
,@(mapcar
(lambda (x)
- (gethash (cadr x) *designator-types* (cadr x)))
+ (gethash (cadr x)
+ *designator-types*
+ (cadr x)))
arguments)))
,@(mapcar (lambda (x)
arguments)))
,@(mapcar (lambda (x)
- (if (nth-value 1 (gethash (cadr x) *designator-types*))
- `(,(intern (symbol-name (cadr x)) :sb-posix)
+ (if (nth-value 1
+ (gethash (cadr x)
+ *designator-types*))
+ `(,(intern (symbol-name (cadr x))
+ :sb-posix)
,(car x))
(car x)))
arguments))))
,(car x))
(car x)))
arguments))))
@@
-72,7
+78,11
@@
(let ((lisp-name (lisp-for-c-symbol name)))
`(progn
(export ',lisp-name :sb-posix)
(let ((lisp-name (lisp-for-c-symbol name)))
`(progn
(export ',lisp-name :sb-posix)
- (define-call-internally ,lisp-name ,name ,return-type ,error-predicate ,@arguments))))
+ (define-call-internally ,lisp-name
+ ,name
+ ,return-type
+ ,error-predicate
+ ,@arguments))))
(defmacro define-entry-point (name arglist &body body)
(let ((lisp-name (lisp-for-c-symbol name)))
(defmacro define-entry-point (name arglist &body body)
(let ((lisp-name (lisp-for-c-symbol name)))