Permalink
Browse files

delete forward_list::size()

	modified:   src/cl-stl-base.lisp
	modified:   src/cl-stl-forward-list.lisp
  • Loading branch information...
show-matz committed Jan 4, 2019
1 parent cc014f1 commit ab78ba93c9ec9ef0fde519cc67f606eee26c189c
Showing with 1 addition and 7 deletions.
  1. +1 −1 src/cl-stl-base.lisp
  2. +0 −6 src/cl-stl-forward-list.lisp
@@ -783,7 +783,7 @@

; capacity
(defgeneric empty (container)) ; t / nil ; A V D L S MS M MM FL
(defgeneric size (container)) ; fixnum ; A V D L S MS M MM -- ( FL is ok in extra )
(defgeneric size (container)) ; fixnum ; A V D L S MS M MM --
(defgeneric max_size (container)) ; fixnum ; A V D L S MS M MM FL
(declare-method-overload resize (2 3)) ; nil ; - V D L - -- - -- FL
(defgeneric capacity (container)) ; fixnum ; - V - - - -- - -- --
@@ -316,12 +316,6 @@
(defmethod empty ((cont forward_list))
(null (cdr (__slst-top-node cont))))

#-cl-stl-noextra ; forward_list::size
(progn
#-cl-stl-0x98
(defmethod size ((cont forward_list))
(__conslist-count-nodes (cdr (__slst-top-node cont)) nil)))

#-cl-stl-0x98
(defmethod max_size ((cont forward_list))
most-positive-fixnum)

0 comments on commit ab78ba9

Please sign in to comment.