src/base/asdf.lisp

   1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- ASDF component classes
   4 ;;;
   5
   6 (defpackage :iolib.asdf
   7   (:use :common-lisp)
   8   (:export #:compile-wrapper)
   9   #+sb-package-locks
  10   (:lock t))
  11 (in-package :iolib.asdf)
  12
  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)))