Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv422

Modified Files: input-editor.lisp Log Message: Add missing definition of `insert-list-in-stream'.

--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2006/12/07 14:03:00 1.11 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2006/12/07 14:34:14 1.12 @@ -412,6 +412,14 @@ (length objects)))) (setf (subseq insertion (- (fill-pointer insertion) (length objects))) objects)) + (insert-list-in-stream (list) + (insert-object #() + (mapl #'(lambda (cons) + (present-object (first cons)) + (when (rest cons) + (insert-object #\Space))) + list) + (insert-object #))) (present-object (object) (multiple-value-bind (printed-rep accept-object) (present-acceptably-to-string object 'expression