/[cmucl]/src/bootfiles/18d/boot6-a.lisp
ViewVC logotype

Contents of /src/bootfiles/18d/boot6-a.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Fri Jan 3 18:00:28 2003 UTC (11 years, 3 months ago) by toy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, double-double-array-base, post-merge-intl-branch, release-19b-pre1, release-19b-pre2, merged-unicode-utf16-extfmt-2009-06-11, double-double-init-sparc-2, unicode-utf16-extfmt-2009-03-27, double-double-base, snapshot-2007-09, snapshot-2007-08, snapshot-2008-08, snapshot-2008-09, ppc_gencgc_snap_2006-01-06, sse2-packed-2008-11-12, snapshot-2008-05, snapshot-2008-06, snapshot-2008-07, snapshot-2007-05, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, intl-branch-working-2010-02-19-1000, snapshot-2006-11, snapshot-2006-10, double-double-init-sparc, snapshot-2006-12, unicode-string-buffer-impl-base, sse2-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, sse2-packed-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, snapshot-2003-10, snapshot-2004-10, release-18e-base, release-19f-pre1, snapshot-2008-12, snapshot-2008-11, intl-2-branch-base, snapshot-2004-08, snapshot-2004-09, remove_negative_zero_not_zero, snapshot-2007-01, snapshot-2007-02, snapshot-2004-05, snapshot-2004-06, snapshot-2004-07, release-19e, release-19d, GIT-CONVERSION, double-double-init-ppc, release-19c, dynamic-extent-base, unicode-utf16-sync-2008-12, release-19c-base, cross-sol-x86-merged, label-2009-03-16, release-19f-base, merge-sse2-packed, mod-arith-base, sparc_gencgc_merge, merge-with-19f, snapshot-2004-12, snapshot-2004-11, intl-branch-working-2010-02-11-1000, unicode-snapshot-2009-05, unicode-snapshot-2009-06, amd64-merge-start, ppc_gencgc_snap_2005-12-17, double-double-init-%make-sparc, unicode-utf16-sync-2008-07, release-18e-pre2, unicode-utf16-sync-2008-09, unicode-utf16-extfmts-sync-2008-12, prm-before-macosx-merge-tag, cold-pcl-base, RELEASE_20b, snapshot-2008-04, snapshot-2003-11, snapshot-2005-07, unicode-utf16-sync-label-2009-03-16, RELEASE_19f, snapshot-2007-03, release-20a-base, cross-sol-x86-base, unicode-utf16-char-support-2009-03-26, unicode-utf16-char-support-2009-03-25, release-19a-base, unicode-utf16-extfmts-pre-sync-2008-11, snapshot-2008-10, sparc_gencgc, snapshot-2007-04, snapshot-2010-12, snapshot-2010-11, unicode-utf16-sync-2008-11, snapshot-2007-07, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2007-06, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, snapshot-2003-12, release-19a-pre1, release-19a-pre3, release-19a-pre2, pre-merge-intl-branch, release-19a, double-double-array-checkpoint, double-double-reader-checkpoint-1, release-19d-base, release-19e-pre1, double-double-irrat-end, release-19e-pre2, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, release-19d-pre2, release-19d-pre1, snapshot-2010-08, release-18e, double-double-init-checkpoint-1, double-double-reader-base, label-2009-03-25, snapshot-2005-03, release-19b-base, cross-sol-x86-2010-12-20, double-double-init-x86, sse2-checkpoint-2008-10-01, intl-branch-2010-03-18-1300, snapshot-2005-11, double-double-sparc-checkpoint-1, snapshot-2004-04, sse2-merge-with-2008-11, sse2-merge-with-2008-10, snapshot-2005-10, RELEASE_20a, snapshot-2005-12, release-20a-pre1, snapshot-2005-01, snapshot-2009-11, snapshot-2009-12, unicode-utf16-extfmt-2009-06-11, portable-clx-import-2009-06-16, unicode-utf16-string-support, release-19c-pre1, cross-sparc-branch-base, release-19e-base, intl-branch-base, double-double-irrat-start, snapshot-2005-06, snapshot-2005-05, snapshot-2005-04, ppc_gencgc_snap_2005-05-14, snapshot-2005-02, unicode-utf16-base, portable-clx-base, snapshot-2005-09, snapshot-2005-08, lisp-executable-base, snapshot-2009-08, snapshot-2007-12, snapshot-2007-10, snapshot-2007-11, snapshot-2009-02, snapshot-2009-01, snapshot-2009-07, snapshot-2009-05, snapshot-2009-04, snapshot-2006-02, snapshot-2006-03, release-18e-pre1, snapshot-2006-01, snapshot-2006-06, snapshot-2006-07, snapshot-2006-04, snapshot-2006-05, pre-telent-clx, snapshot-2006-08, snapshot-2006-09, HEAD
Branch point for: release-19b-branch, double-double-reader-branch, double-double-array-branch, mod-arith-branch, RELEASE-19F-BRANCH, portable-clx-branch, sparc_gencgc_branch, cross-sparc-branch, RELEASE-20B-BRANCH, unicode-string-buffer-branch, sparc-tramp-assem-branch, dynamic-extent, UNICODE-BRANCH, release-19d-branch, ppc_gencgc_branch, sse2-packed-branch, lisp-executable, RELEASE-20A-BRANCH, amd64-dd-branch, double-double-branch, unicode-string-buffer-impl-branch, intl-branch, release-18e-branch, cold-pcl, unicode-utf16-branch, cross-sol-x86-branch, release-19e-branch, sse2-branch, release-19a-branch, release-19c-branch, intl-2-branch, unicode-utf16-extfmt-branch
Initial revision
1 ;; For bootstrapping the conc-name inheritance fix, part 1.
2 ;;
3 ;; You need to do a build loading just this file but NOT boot6-b.lisp.
4 ;; The next build MUST NOT use this file and load up boot6-b
5 ;; instead.
6 ;;
7 ;; Use the CLOBBER-IT restart when prompted for a restart.
8
9 (pushnew :bootstrap-conc-name *features*)
10
11 (in-package "KERNEL")
12
13 (defstruct (defstruct-description
14 (:conc-name dd-)
15 (:print-function print-defstruct-description)
16 (:make-load-form-fun :just-dump-it-normally)
17 (:pure t)
18 (:constructor make-defstruct-description (name)))
19 ;;
20 ;; name of the structure
21 (name (required-argument) :type symbol)
22 ;;
23 ;; documentation on the structure
24 (doc nil :type (or string null))
25 ;;
26 ;; prefix for slot names. If NIL, none.
27 (conc-name (concat-pnames name '-) :type (or symbol null))
28 ;;
29 ;; The name of the primary standard keyword constructor, or NIL if none.
30 (default-constructor nil :type (or symbol null))
31 ;;
32 ;; All the explicit :CONSTRUCTOR specs, with name defaulted.
33 (constructors () :type list)
34 ;;
35 ;; name of copying function
36 (copier (concat-pnames 'copy- name) :type (or symbol null))
37 ;;
38 ;; Name of type predictate
39 (predicate (concat-pnames name '-p) :type (or symbol null))
40 ;;
41 ;; The arguments to the :INCLUDE option, or NIL if no included structure.
42 (include nil :type list)
43 ;;
44 ;; The arguments to the :ALTERNATE-METACLASS option (an extension used to
45 ;; define structure-like objects with an arbitrary superclass and that may
46 ;; not have STRUCTURE-CLASS as the metaclass.) Syntax is:
47 ;; (superclass-name metaclass-name metaclass-constructor)
48 ;;
49 (alternate-metaclass nil :type list)
50 ;;
51 ;; list of defstruct-slot-description objects for all slots (including
52 ;; included ones.)
53 (slots () :type list)
54 ;;
55 ;; Number of elements we've allocated (see also raw-length.)
56 (length 0 :type index)
57 ;;
58 ;; General kind of implementation.
59 (type 'structure :type (member structure vector list
60 funcallable-structure))
61 ;;
62 ;; The next three slots are for :TYPE'd structures (which aren't classes,
63 ;; CLASS-STRUCTURE-P = NIL)
64 ;;
65 ;; Vector element type.
66 (element-type 't)
67 ;;
68 ;; T if :NAMED was explicitly specified, Nil otherwise.
69 (named nil :type boolean)
70 ;;
71 ;; Any INITIAL-OFFSET option on this direct type.
72 (offset nil :type (or index null))
73 ;;
74 ;; The argument to the PRINT-FUNCTION option, or NIL if none. If we see an
75 ;; explicit (:PRINT-FUNCTION) option, then this is DEFAULT-STRUCTURE-PRINT.
76 ;; See also BASIC-STRUCTURE-CLASS-PRINTER. Only for classed structures.
77 ;;
78 (print-function nil :type (or cons symbol null))
79 ;;
80 ;; The next four slots are only meaningful in real default structures (TYPE =
81 ;; STRUCTURE).
82 ;;
83 ;; Make-load-form function option. See also STRUCTURE-CLASS-LOAD-FORM-MAKER.
84 (make-load-form-fun nil :type (or symbol cons null))
85 ;;
86 ;; The index of the raw data vector and the number of words in it. NIL and 0
87 ;; if not allocated yet.
88 (raw-index nil :type (or index null))
89 (raw-length 0 :type index)
90 ;;
91 ;; Value of the :PURE option, or :UNSPECIFIED. Only meaningful if
92 ;; CLASS-STRUCTURE-P = T.
93 (pure :unspecified :type (member t nil :substructure :unspecified))
94 ;;
95 ;; a list of (NAME . INDEX) pairs for accessors of included structures
96 (inherited-accessor-alist () :type list))
97
98

  ViewVC Help
Powered by ViewVC 1.1.5