~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
381d1da
)
Make type-expand-based code work on SBCL again.
author
Rupert Swarbrick
<rswarbrick@gmail.com>
Wed, 29 Feb 2012 17:40:24 +0000
(17:40 +0000)
committer
Rupert Swarbrick
<rswarbrick@gmail.com>
Wed, 29 Feb 2012 17:40:24 +0000
(17:40 +0000)
See the (ancient) post at
http://permalink.gmane.org/gmane.lisp.clg.devel/427 for an
explanation.
gffi/interface.lisp
patch
|
blob
|
blame
|
history
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
+;; 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)