From 31f9613428a83ee8216a13ca9688b156572bb193 Mon Sep 17 00:00:00 2001 From: Huang Ying Date: Thu, 5 Mar 2015 21:53:51 +0800 Subject: [PATCH] base,asdf.lisp: Fix cffi:*foreign-library-directories* binding Use progv to establish the binding. --- src/base/asdf.lisp | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/base/asdf.lisp b/src/base/asdf.lisp index 4e4af21..f819674 100644 --- a/src/base/asdf.lisp +++ b/src/base/asdf.lisp @@ -18,10 +18,11 @@ uiop:*uninteresting-compiler-conditions*))) (multiple-value-bind (symbols values) (if (find-package :cffi) - (values (find-symbol #.(string '#:*foreign-library-directories*) :cffi) '(nil)) + (values (list (find-symbol #.(string '#:*foreign-library-directories*) :cffi)) '(nil)) (values nil nil)) - (with-standard-io-syntax - (let (;; Compilation fails because of CFFI types that - ;; can't be printed readably, so bind to NIL - (*print-readably* nil)) - (funcall continuation)))))) + (progv symbols values + (with-standard-io-syntax + (let (;; Compilation fails because of CFFI types that + ;; can't be printed readably, so bind to NIL + (*print-readably* nil)) + (funcall continuation))))))) -- 2.11.4.GIT