~mdw
/
clg
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make type-expand-based code work on SBCL again.
[clg]
/
gffi
/
interface.lisp
diff --git
a/gffi/interface.lisp
b/gffi/interface.lisp
index
d89e9a7
..
72e3c13
100644
(file)
--- a/
gffi/interface.lisp
+++ b/
gffi/interface.lisp
@@
-424,6
+424,12
@@
;;;; Type expansion
;;;; Type expansion
+;; A hack to make the TYPE-EXPAND code for SBCL work.
+#?+(pkg-config:sbcl>= 1 0 35 15)
+(sb-ext:without-package-locks
+ (setf (symbol-function 'sb-kernel::type-expand)
+ (lambda (form) (typexpand form))))
+
(defun type-expand-1 (form)
#+(or cmu sbcl)
(let ((def (cond ((symbolp form)
(defun type-expand-1 (form)
#+(or cmu sbcl)
(let ((def (cond ((symbolp form)