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