From 3fdd435f28fcfe7cf5c99f69cdfa91912a3fe046 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 19 Feb 2010 20:11:28 +0100 Subject: [PATCH] The functions LOAD-ENCODING and MAKE-ENCODING are no-ops or signal errors when --disable-unicode was used --- src/lsp/iolib.lsp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/lsp/iolib.lsp b/src/lsp/iolib.lsp index b4b42489d..4c44d8e72 100644 --- a/src/lsp/iolib.lsp +++ b/src/lsp/iolib.lsp @@ -294,11 +294,15 @@ the one used internally by ECL compiled files." (or all-encodings (progn (setf all-encodings basic-encodings) + #+unicode (dolist (i (directory "sys:encodings;*")) (push (intern (pathname-name i) "KEYWORD") all-encodings)) all-encodings)))) (defun ext:load-encoding (name) + #-unicode + (warn "EXT:LOAD-ENCODING not available when ECL is built without support for Unicode") + #+unicode (let ((filename (make-pathname :name (symbol-name name) :defaults "sys:encodings;"))) (cond ((probe-file filename) (load filename :verbose nil) @@ -314,6 +318,9 @@ the one used internally by ECL compiled files." (error "Unable to find mapping file ~A for encoding ~A" filename name))))) (defun ext:make-encoding (mapping) + #-unicode + (error "Not a valid external format ~A" mapping) + #+unicode (cond ((symbolp mapping) (let ((var (intern (symbol-name mapping) (find-package "EXT"))))