src/base/asdf.lisp

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