blob: 38508e51e6a1524516a230004178b6fc470e2f14 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
Description: ignore errors due to encoding of file
Author: Sam Steingold <sds@gnu.org>
Origin: http://thread.gmane.org/gmane.lisp.clisp.devel/21975/focus=21978
Bug-Debian: http://bugs.debian.org/443520
Forwarded: not-needed
--- clisp.orig/src/init.lisp
+++ clisp/src/init.lisp
@@ -1570,6 +1570,10 @@
(apply #'format *error-output* format-string args)
(elastic-newline *error-output*)
nil))))
+
+(unless (fboundp 'ext::muffle-cerrors) ; predef for bootstrap
+ (sys::%putd 'ext::muffle-cerrors #'identity))
+
(defun open-for-load (filename extra-file-types external-format
&aux stream (present-files t) obj path bad-file)
(block open-for-load
@@ -1639,11 +1643,12 @@
;; File with precisely this name not present OR bad
;; Search among the files the most recent one
;; with the same name and the Extensions "LISP", "FAS":
- (setq present-files (search-file filename
- (append extra-file-types
+ (setq present-files
+ (ext::muffle-cerrors ; ignore encoding errors in DIRECTORY
+ (search-file filename (append extra-file-types
*compiled-file-types*
*source-file-types*)
- nil)))
+ nil))))
(if present-files
;; proceed with the next present file
(setq path (car present-files) present-files (cdr present-files)
|