mdw-base.lisp: Move `with-places' to earlier in the file.

[lisp] / safely.lisp

diff --git a/safely.lisp b/safely.lisp
index 0674429f085aed98b15ca7a12f49b231aa7bb41b..43ea4fed73a9f48918a378c22b0942884da7b90d 100644 (file)
--- a/safely.lisp
+++ b/safely.lisp
@@ -114,6 +114,7 @@ (defun safely-open-output-stream (safe file &rest open-args)
 (progn
   (ffi:def-call-out %rename (:name "rename")
     (:language :stdc)
+    (:library "libc.so.6")
     (:arguments (from ffi:c-string)
                (to ffi:c-string))
     (:return-type ffi:int)))