Update of /project/movitz/cvsroot/movitz In directory cl-net:/tmp/cvs-serv17650

Modified Files: parse.lisp Log Message: Fix from Willem Broekema: There's a bug in unfold-circular-list, in that it calls subseq on a circular list: subseq is defined as taking a "proper sequence".

--- /project/movitz/cvsroot/movitz/parse.lisp 2008/04/27 19:22:42 1.10 +++ /project/movitz/cvsroot/movitz/parse.lisp 2009/12/03 21:48:34 1.11 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 24 16:49:17 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: parse.lisp,v 1.10 2008/04/27 19:22:42 ffjeld Exp $ +;;;; $Id: parse.lisp,v 1.11 2009/12/03 21:48:34 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -73,7 +73,7 @@ (loop for x on list as i upfrom 0 as cdr-index = (find-cdr list (cdr x) i) until cdr-index - finally (return (values (subseq list 0 (1+ i)) + finally (return (values (loop repeat (1+ i) collect (pop list)) cdr-index)))))

(defun symbol-package-fix-cl (symbol)