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