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 ((*readtable* (copy-readtable))
  16         (uiop:*uninteresting-compiler-conditions*
  17           (append '(#+sbcl sb-int:package-at-variance)
  18                   uiop:*uninteresting-compiler-conditions*)))
  19     (with-standard-io-syntax
  20       (let (;; Compilation fails because of CFFI types that
  21             ;; can't be printed readably, so bind to NIL
  22             (*print-readably* nil))
  23         (funcall continuation)))))