[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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