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

Diff of /src/pcl/defs.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11.2.5 by pw, Tue Aug 8 14:42:30 2000 UTC revision 1.11.2.6 by pw, Sat Mar 23 18:51:16 2002 UTC
# Line 1  Line 1 
1  ;;;-*-Mode:LISP; Package:(PCL LISP 1000); Base:10; Syntax:Common-lisp -*-  ;;;-*-Mode:LISP; Package:PCL  -*-
2  ;;;  ;;;
3  ;;; *************************************************************************  ;;; *************************************************************************
4  ;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 Xerox Corporation.  ;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 Xerox Corporation.
# Line 76  Line 76 
76    (c::note-name-defined name :function)    (c::note-name-defined name :function)
77    new-definition)    new-definition)
78    
79  (proclaim '(special *the-class-t*  (declaim (special *the-class-t*
80                      *the-class-vector* *the-class-symbol*                    *the-class-vector* *the-class-symbol*
81                      *the-class-string* *the-class-sequence*                    *the-class-string* *the-class-sequence*
82                      *the-class-rational* *the-class-ratio*                    *the-class-rational* *the-class-ratio*
83                      *the-class-number* *the-class-null* *the-class-list*                    *the-class-number* *the-class-null* *the-class-list*
84                      *the-class-integer* *the-class-float* *the-class-cons*                    *the-class-integer* *the-class-float* *the-class-cons*
85                      *the-class-complex* *the-class-character*                    *the-class-complex* *the-class-character*
86                      *the-class-bit-vector* *the-class-array*                    *the-class-bit-vector* *the-class-array*
87                      *the-class-stream*                    *the-class-stream*
88    
89                      *the-class-slot-object*                    *the-class-slot-object*
90                      *the-class-structure-object*                    *the-class-structure-object*
91                      *the-class-std-object*                    *the-class-std-object*
92                      *the-class-standard-object*                    *the-class-standard-object*
93                      *the-class-funcallable-standard-object*                    *the-class-funcallable-standard-object*
94                      *the-class-class*                    *the-class-class*
95                      *the-class-generic-function*                    *the-class-generic-function*
96                      *the-class-built-in-class*                    *the-class-built-in-class*
97                      *the-class-slot-class*                    *the-class-slot-class*
98                      *the-class-structure-class*                    *the-class-structure-class*
99                      *the-class-std-class*                    *the-class-std-class*
100                      *the-class-standard-class*                    *the-class-standard-class*
101                      *the-class-funcallable-standard-class*                    *the-class-funcallable-standard-class*
102                      *the-class-method*                    *the-class-method*
103                      *the-class-standard-method*                    *the-class-standard-method*
104                      *the-class-standard-reader-method*                    *the-class-standard-reader-method*
105                      *the-class-standard-writer-method*                    *the-class-standard-writer-method*
106                      *the-class-standard-boundp-method*                    *the-class-standard-boundp-method*
107                      *the-class-standard-generic-function*                    *the-class-standard-generic-function*
108                      *the-class-standard-effective-slot-definition*                    *the-class-standard-effective-slot-definition*
109    
110                      *the-eslotd-standard-class-slots*                    *the-eslotd-standard-class-slots*
111                      *the-eslotd-funcallable-standard-class-slots*))                    *the-eslotd-funcallable-standard-class-slots*))
112    
113  (proclaim '(special *the-wrapper-of-t*  (declaim (special *the-wrapper-of-t*
114                      *the-wrapper-of-vector* *the-wrapper-of-symbol*                    *the-wrapper-of-vector* *the-wrapper-of-symbol*
115                      *the-wrapper-of-string* *the-wrapper-of-sequence*                    *the-wrapper-of-string* *the-wrapper-of-sequence*
116                      *the-wrapper-of-rational* *the-wrapper-of-ratio*                    *the-wrapper-of-rational* *the-wrapper-of-ratio*
117                      *the-wrapper-of-number* *the-wrapper-of-null*                    *the-wrapper-of-number* *the-wrapper-of-null*
118                      *the-wrapper-of-list* *the-wrapper-of-integer*                    *the-wrapper-of-list* *the-wrapper-of-integer*
119                      *the-wrapper-of-float* *the-wrapper-of-cons*                    *the-wrapper-of-float* *the-wrapper-of-cons*
120                      *the-wrapper-of-complex* *the-wrapper-of-character*                    *the-wrapper-of-complex* *the-wrapper-of-character*
121                      *the-wrapper-of-bit-vector* *the-wrapper-of-array*))                    *the-wrapper-of-bit-vector* *the-wrapper-of-array*))
122    
123  ;;;; Type specifier hackery:  ;;;; Type specifier hackery:
124    
# Line 192  Line 192 
192    ;; skeleton class will be replaced at load-time with the correct object.    ;; skeleton class will be replaced at load-time with the correct object.
193    ;; Earlier revisions (<= 1.17) of this function were essentially NOOPs.    ;; Earlier revisions (<= 1.17) of this function were essentially NOOPs.
194    (declare (ignorable name))    (declare (ignorable name))
   #+nil ;; This is causing problems with native compile of defcombin.lisp  
195    (when (and (eq *boot-state* 'complete)    (when (and (eq *boot-state* 'complete)
196               (null (lisp:find-class name nil)))               (null (lisp:find-class name nil)))
197      (setf (lisp:find-class name)      (setf (lisp:find-class name)

Legend:
Removed from v.1.11.2.5  
changed lines
  Added in v.1.11.2.6

  ViewVC Help
Powered by ViewVC 1.1.5