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

Contents of /src/pcl/fixup.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.11.48.1 - (hide annotations)
Mon Feb 8 17:15:53 2010 UTC (4 years, 2 months ago) by rtoy
Branch: intl-branch
CVS Tags: intl-branch-working-2010-02-19-1000, intl-branch-working-2010-02-11-1000, intl-branch-2010-03-18-1300
Changes since 1.11: +1 -0 lines
Add (intl:textdomain "cmucl") to the files to set the textdomain.
1 wlott 1.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 phg 1.6 (in-package :pcl)
28 rtoy 1.11.48.1 (intl:textdomain "cmucl")
29 wlott 1.1
30 gerd 1.8 #-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 wlott 1.1
37 gerd 1.9 (/show "Computing standard slot locations")
38     (compute-standard-slot-locations)
39    
40 wlott 1.1 (defun print-std-instance (instance stream depth)
41     (declare (ignore depth))
42     (print-object instance stream))
43    
44 gerd 1.10 (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 gerd 1.11
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