Skip to content
Snippets Groups Projects
Commit 0d8a8cec authored by wlott's avatar wlott
Browse files

Added ``:state :read-only'' to the various extendable collection classes.

parent e5a7a7a0
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.20 1993/04/04 10:06:09 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.21 1993/04/04 12:50:50 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -424,19 +424,22 @@ ...@@ -424,19 +424,22 @@
:state :read-only) :state :read-only)
(funcallable-instance :inherits (function) :state :read-only) (funcallable-instance :inherits (function) :state :read-only)
(collection :hierarchical nil) (collection :hierarchical nil :state :read-only)
(explicit-key-collection :inherits (collection)) (explicit-key-collection :inherits (collection) :state :read-only)
(mutable-collection :inherits (collection)) (mutable-collection :inherits (collection) :state :read-only)
(generic-sequence :inherits (collection)) (generic-sequence :inherits (collection) :state :read-only)
(mutable-explicit-key-collection (mutable-explicit-key-collection
:state :read-only
:inherits (explicit-key-collection mutable-collection collection)) :inherits (explicit-key-collection mutable-collection collection))
(mutable-sequence (mutable-sequence
:state :read-only
:inherits (mutable-collection generic-sequence collection)) :inherits (mutable-collection generic-sequence collection))
(sequence (sequence
:translation (or cons (member nil) vector) :translation (or cons (member nil) vector)
:inherits (mutable-sequence mutable-collection generic-sequence :inherits (mutable-sequence mutable-collection generic-sequence
collection)) collection))
(generic-array (generic-array
:state :read-only
:inherits (mutable-explicit-key-collection explicit-key-collection :inherits (mutable-explicit-key-collection explicit-key-collection
mutable-collection collection)) mutable-collection collection))
(array (array
...@@ -448,6 +451,7 @@ ...@@ -448,6 +451,7 @@
:inherits (array generic-array mutable-explicit-key-collection :inherits (array generic-array mutable-explicit-key-collection
explicit-key-collection mutable-collection collection)) explicit-key-collection mutable-collection collection))
(generic-vector (generic-vector
:state :read-only
:inherits (generic-array mutable-explicit-key-collection :inherits (generic-array mutable-explicit-key-collection
explicit-key-collection mutable-sequence explicit-key-collection mutable-sequence
mutable-collection generic-sequence collection)) mutable-collection generic-sequence collection))
...@@ -525,6 +529,7 @@ ...@@ -525,6 +529,7 @@
mutable-explicit-key-collection explicit-key-collection mutable-explicit-key-collection explicit-key-collection
mutable-collection collection)) mutable-collection collection))
(generic-string (generic-string
:state :read-only
:inherits (mutable-sequence mutable-collection generic-sequence :inherits (mutable-sequence mutable-collection generic-sequence
collection)) collection))
(string (string
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment