/[cmucl]/src/pcl/fixup.lisp
ViewVC logotype

Contents of /src/pcl/fixup.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.11.50.1 - (show annotations)
Thu Feb 25 20:34:56 2010 UTC (4 years, 1 month ago) by rtoy
Branch: intl-2-branch
Changes since 1.11: +1 -0 lines
Restart internalization work.  This new branch starts with code from
the intl-branch on date 2010-02-12 18:00:00+0500.  This version works
and

LANG=en@piglatin bin/lisp

works (once the piglatin translation is added).
1 ;;;-*-Mode:LISP; Package:(PCL LISP 1000); Base:10; Syntax:Common-lisp -*-
2 ;;;
3 ;;; *************************************************************************
4 ;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 Xerox Corporation.
5 ;;; All rights reserved.
6 ;;;
7 ;;; Use and copying of this software and preparation of derivative works
8 ;;; based upon this software are permitted. Any distribution of this
9 ;;; software or derivative works must comply with all applicable United
10 ;;; States export control laws.
11 ;;;
12 ;;; This software is made available AS IS, and Xerox Corporation makes no
13 ;;; warranty about the software, its performance or its conformity to any
14 ;;; specification.
15 ;;;
16 ;;; Any person obtaining a copy of this software is requested to send their
17 ;;; name and post office or electronic mail address to:
18 ;;; CommonLoops Coordinator
19 ;;; Xerox PARC
20 ;;; 3333 Coyote Hill Rd.
21 ;;; Palo Alto, CA 94304
22 ;;; (or send Arpanet mail to CommonLoops-Coordinator.pa@Xerox.arpa)
23 ;;;
24 ;;; Suggestions, comments and requests for improvements are also welcome.
25 ;;; *************************************************************************
26
27 (in-package :pcl)
28 (intl:textdomain "cmucl")
29
30 #-loadable-pcl
31 (progn
32 (/show "Fixing generic functions")
33 (fix-early-generic-functions)
34 (/show "PCL boot state COMPLETE")
35 (setq *boot-state* 'complete))
36
37 (/show "Computing standard slot locations")
38 (compute-standard-slot-locations)
39
40 (defun print-std-instance (instance stream depth)
41 (declare (ignore depth))
42 (print-object instance stream))
43
44 (defmethod print-object ((ctor ctor) stream)
45 (print-unreadable-object (ctor stream :type t :identity t)
46 (format stream "~s ~s ~s"
47 (ctor-class-name ctor)
48 (ctor-initargs ctor)
49 (ctor-state ctor))))
50
51 (/show "Converting condition accessors")
52 (when (fboundp 'conditions::make-early-condition-accessors-generic)
53 (let ((*compile-print* nil))
54 (conditions::make-early-condition-accessors-generic)))

  ViewVC Help
Powered by ViewVC 1.1.5