On my machine:
(defparameter lst '(1 2 3)) ; => (1 2 3) (setf (caddr lst) lst) ; => #1=(1 2 #1#) (length lst) ; => 3
Seems to me this is the expected behaviour. What do you mean by "LENGTH of lists could detect circular lists"? You are not satisfied with the performance of LENGTH? :)
On my machine:
(defparameter lst '(1 2 3)) ; => (1 2 3)
(setf (caddr lst) lst) ; => #1=(1 2 #1#)
(length lst) ; => 3
Seems to me this is the expected behaviour. What do you mean by "LENGTH of lists could detect circular lists"? You are not satisfied with the performance of LENGTH? :)