[contraband-cvs] CVS: contraband print.lisp,1.6,1.7

[Stig E S. <st...@us...>]

Update of /cvsroot/contraband/contraband
In directory sc8-pr-cvs1:/tmp/cvs-serv31392/variants/contraband

Modified Files:
	print.lisp 
Log Message:
changed return-value of print-text

Index: print.lisp
===================================================================
RCS file: /cvsroot/contraband/contraband/print.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** print.lisp	3 Jun 2003 11:07:28 -0000	1.6
--- print.lisp	5 Jun 2003 14:03:02 -0000	1.7
***************
*** 25,29 ****
      (put-coloured-str! title-attr "======" title-col (1+ title-row))
  
!     (let ((row (+ title-row 3)))
        (loop for x being the hash-values of (variant.quests var-obj)
  	    do
--- 25,30 ----
      (put-coloured-str! title-attr "======" title-col (1+ title-row))
  
!     (let ((row (+ title-row 3))
! 	  (dummy-col 9))
        (loop for x being the hash-values of (variant.quests var-obj)
  	    do
***************
*** 31,35 ****
  		       (not (quest.parent x)))
  	      (put-coloured-str! title-attr (quest.title x) title-col (incf row))
! 	      (setf row (print-text! title-col (incf row) +term-green+ (quest.desc x) :end-col 45))
  
  	      (when (stringp (quest.step x))
--- 32,37 ----
  		       (not (quest.parent x)))
  	      (put-coloured-str! title-attr (quest.title x) title-col (incf row))
! 	      (multiple-value-setq (dummy-col row)
! 		(print-text! title-col (incf row) +term-green+ (quest.desc x) :end-col 45))
  
  	      (when (stringp (quest.step x))
***************
*** 37,41 ****
  		  (when (eq (quest.state q) :active)
  		    (put-coloured-str! title-attr (quest.title q) (+ 2 title-col) (incf row))
! 		    (setf row (print-text! (+ 2 title-col) (incf row) +term-green+ (quest.desc q) :end-col 45)))))
  
  	      (incf row)
--- 39,46 ----
  		  (when (eq (quest.state q) :active)
  		    (put-coloured-str! title-attr (quest.title q) (+ 2 title-col) (incf row))
! 		    (multiple-value-setq (dummy-col row)
! 		      (print-text! (+ 2 title-col) (incf row) +term-green+ (quest.desc q) :end-col 45))
! 
! 		    )))
  
  	      (incf row)