summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
381d1da)
See the (ancient) post at
http://permalink.gmane.org/gmane.lisp.clg.devel/427 for an
explanation.
+;; 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)