projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.2.40:
[sbcl.git]
/
src
/
pcl
/
defs.lisp
diff --git
a/src/pcl/defs.lisp
b/src/pcl/defs.lisp
index
2de8e27
..
77d79c9
100644
(file)
--- a/
src/pcl/defs.lisp
+++ b/
src/pcl/defs.lisp
@@
-306,7
+306,8
@@
;; CMU CL code did. -- WHN 20000715
'(t instance
funcallable-instance
;; CMU CL code did. -- WHN 20000715
'(t instance
funcallable-instance
- function stream)))
+ function stream
+ file-stream string-stream)))
sb-kernel::*built-in-classes*))))
(/noshow "done setting up SB-PCL::*BUILT-IN-CLASSES*")
\f
sb-kernel::*built-in-classes*))))
(/noshow "done setting up SB-PCL::*BUILT-IN-CLASSES*")
\f
@@
-327,6
+328,12
@@
(defclass stream (instance) ()
(:metaclass built-in-class))
(defclass stream (instance) ()
(:metaclass built-in-class))
+(defclass file-stream (stream) ()
+ (:metaclass built-in-class))
+
+(defclass string-stream (stream) ()
+ (:metaclass built-in-class))
+
(defclass slot-object (t) ()
(:metaclass slot-class))
(defclass slot-object (t) ()
(:metaclass slot-class))
@@
-693,7
+700,11
@@
:initarg :method-combination
:accessor generic-function-method-combination)
(declarations
:initarg :method-combination
:accessor generic-function-method-combination)
(declarations
+ ;; KLUDGE: AMOP specifies :DECLARATIONS, while ANSI specifies
+ ;; :DECLARE. Allow either (but FIXME: maybe a note or a warning
+ ;; might be appropriate).
:initarg :declarations
:initarg :declarations
+ :initarg :declare
:initform ()
:accessor generic-function-declarations)
(arg-info
:initform ()
:accessor generic-function-declarations)
(arg-info