From 4e1d62d13cbfe1d97ae2187a343fdf5a7c175d5d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <dkochmanski@hellsgate.pl>
Date: Fri, 6 Mar 2015 20:29:56 +0100
Subject: [PATCH] cleanup: replace set with setf, since former is deprecated.

---
 src/lsp/iolib.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/iolib.lsp b/src/lsp/iolib.lsp
index d3c43f16e..0e9a7bc6f 100644
--- a/src/lsp/iolib.lsp
+++ b/src/lsp/iolib.lsp
@@ -316,7 +316,7 @@ the one used internally by ECL compiled files."
     ((symbolp mapping)
      (let ((var (intern (symbol-name mapping) (find-package "EXT"))))
        (unless (boundp var)
-	 (set var (ext::make-encoding (load-encoding mapping))))
+	 (setf (symbol-value var) (ext::make-encoding (load-encoding mapping))))
        (symbol-value var)))
     ((consp mapping)
      (let ((output (make-hash-table :size 512 :test 'eq)))