Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv15328

Modified Files: streams.lisp Log Message: Also here prefer vector-push-extend over vector-push.

Date: Thu May 20 14:13:55 2004 Author: ffjeld

Index: movitz/losp/muerte/streams.lisp diff -u movitz/losp/muerte/streams.lisp:1.2 movitz/losp/muerte/streams.lisp:1.3 --- movitz/losp/muerte/streams.lisp:1.2 Mon Jan 19 06:23:47 2004 +++ movitz/losp/muerte/streams.lisp Thu May 20 14:13:55 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Mon Jun 30 14:33:15 2003 ;;;; -;;;; $Id: streams.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ +;;;; $Id: streams.lisp,v 1.3 2004/05/20 18:13:55 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -24,7 +24,7 @@ (:no-clos-fallback stream-no-clos))

(defmethod stream-write-char ((stream string) character) - (vector-push character stream) + (vector-push-extend character stream) character)

(defmethod stream-write-char ((stream function) character) @@ -100,10 +100,10 @@ (string (case (funobj-name *forward-generic-function*) (stream-write-char - (vector-push (car args) stream) + (vector-push-extend (car args) stream) (car args)) (stream-fresh-line - (vector-push #\newline stream) + (vector-push-extend #\newline stream) t))) (function (apply stream (funobj-name *forward-generic-function*) args))))