mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-13 21:02:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

cleanup: replace set with setf, since former is deprecated.

Browse source
This commit is contained in:
Daniel Kochmański 2015-03-06 20:29:56 +01:00
parent 518264369e
commit 4e1d62d13c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/iolib.lsp
View file

@ -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)))