From 68db42934e6287f91321c1b373a55638d840218c Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Wed, 21 Mar 2012 18:05:09 +0100 Subject: [PATCH] Fix compilation when *PRINT-CASE* is :DOWNCASE Thanks to Pascal Bourguignon for this bug report --- src/base/asdf.lisp | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/src/base/asdf.lisp b/src/base/asdf.lisp index 5132f4c..03676cd 100644 --- a/src/base/asdf.lisp +++ b/src/base/asdf.lisp @@ -16,17 +16,30 @@ (defmethod asdf:perform :around ((o asdf:compile-op) (c :iolib-muffled-source-file)) (with-muffled-output - (call-next-method))) + (with-standard-io-syntax + (let (;; Compilation fails because of CFFI types that + ;; can't be printed readably, so bind to NIL + (*print-readably* nil) + (*readtable* (copy-readtable))) + (call-next-method))))) (defmethod asdf:perform :around ((o asdf:load-op) (c :iolib-muffled-source-file)) (with-muffled-output - (call-next-method))) + (with-standard-io-syntax + (let (;; See above + (*print-readably* nil) + (*readtable* (copy-readtable))) + (call-next-method))))) (defmethod asdf:perform :around ((o asdf:load-source-op) (c :iolib-muffled-source-file)) (with-muffled-output - (call-next-method)))) + (with-standard-io-syntax + (let (;;See above + (*print-readably* nil) + (*readtable* (copy-readtable))) + (call-next-method)))))) #+scl (eval-when (:compile-toplevel :load-toplevel :execute) -- 2.11.4.GIT