1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
3 ;;; --- ASDF component classes
6 (defpackage :iolib.asdf
8 (:export
#:compile-wrapper
)
11 (in-package :iolib.asdf
)
13 (defun compile-wrapper (continuation)
14 (let (;; Compilation fails because of CFFI types that
15 ;; can't be printed readably, so bind to NIL
16 (*print-readably
* nil
)
17 (*readtable
* (copy-readtable))
18 (asdf/lisp-build
:*uninteresting-compiler-conditions
*
19 '(#+sbcl sb-int
:package-at-variance
))
20 (asdf/lisp-build
:*uninteresting-loader-conditions
*
21 '(#+sbcl sb-int
:package-at-variance
)))
22 (funcall continuation
)))