Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 5182643)
cleanup: replace set with setf, since former is deprecated.
authorDaniel Kochmański <dkochmanski@hellsgate.pl>
Fri, 6 Mar 2015 19:29:56 +0000 (20:29 +0100)
committerDaniel Kochmański <dkochmanski@hellsgate.pl>
Fri, 6 Mar 2015 19:29:56 +0000 (20:29 +0100)
src/lsp/iolib.lsp patch | blob | blame | history

diff --git a/src/lsp/iolib.lsp b/src/lsp/iolib.lsp
index d3c43f1..0e9a7bc 100644 (file)
--- 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)))
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)