source: trunk/source/level-1/l1-boot-3.lisp

Last change on this file was 16783, checked in by gb, 3 years ago

platforms on which filenames have been encoded in iso-8859-1
are now encoded in utf-8.

finally.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.7 KB
Line 
1;;;-*- Mode: Lisp; Package: CCL -*-
2;;;
3;;; Copyright 1994-2009 Clozure Associates
4;;;
5;;; Licensed under the Apache License, Version 2.0 (the "License");
6;;; you may not use this file except in compliance with the License.
7;;; You may obtain a copy of the License at
8;;;
9;;;     http://www.apache.org/licenses/LICENSE-2.0
10;;;
11;;; Unless required by applicable law or agreed to in writing, software
12;;; distributed under the License is distributed on an "AS IS" BASIS,
13;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14;;; See the License for the specific language governing permissions and
15;;; limitations under the License.
16
17;;; l1-boot-3.lisp
18;;; Third part of l1-boot
19
20(in-package "CCL")
21
22;;; Register Emacs-friendly aliases for some character encodings.
23;;; This could go on forever; try to recognize at least some common
24;;; cases.  (The precise set of encoding/coding-system names supported
25;;; by Emacs likely depends on Emacs version, loaded Emacs packages, etc.)
26
27(dotimes (i 16)
28  (let* ((key (find-symbol (format nil "LATIN~d" i) :keyword))
29         (existing (and key (lookup-character-encoding key))))
30    (when existing
31      (define-character-encoding-alias (intern (format nil "LATIN-~d" i) :keyword) existing)
32      (define-character-encoding-alias (intern (format nil "ISO-LATIN-~d" i) :keyword) existing))))
33
34(define-character-encoding-alias :mule-utf-8 :utf-8)
35
36(set-pathname-encoding-name :utf-8)
37
38(catch :toplevel
39    (or (find-package "COMMON-LISP-USER")
40        (make-package "COMMON-LISP-USER" :use '("COMMON-LISP" "CCL") :NICKNAMES '("CL-USER")))
41)
42
43(set-periodic-task-interval .33)
44(setq cmain xcmain)
45(setq %err-disp %xerr-disp)
46
47;;;end of l1-boot-3.lisp
48
Note: See TracBrowser for help on using the repository browser.