/[mcclim]/mcclim/recording.lisp
ViewVC logotype

Diff of /mcclim/recording.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by strandh, Thu Aug 23 05:33:33 2001 UTC revision 1.27 by mikemac, Thu Oct 25 19:34:26 2001 UTC
# Line 818  recording stream. If it is T, *STANDARD- Line 818  recording stream. If it is T, *STANDARD-
818        (setq end (min end (1- (length string))))        (setq end (min end (1- (length string))))
819        (setq end (1- (length string))))        (setq end (1- (length string))))
820    (let ((length (max 0 (- (1+ end) start))))    (let ((length (max 0 (- (1+ end) start))))
821      (setq string (make-array length :displaced-to string :displaced-index-offset start))      (setq string (make-array length :displaced-to string
822                                 :displaced-index-offset start
823                                 :element-type (array-element-type string)))
824      (with-slots (strings baseline width max-height start-y end-x end-y) text-record      (with-slots (strings baseline width max-height start-y end-x end-y) text-record
825                  (setq baseline (max baseline new-baseline)                  (setq baseline (max baseline new-baseline)
826                        strings (nconc strings (list (list end-x text-style (make-array (length string) :initial-contents string :element-type 'character :adjustable t :fill-pointer t))))                        strings (nconc strings (list (list end-x text-style (make-array (length string) :initial-contents string :element-type 'character :adjustable t :fill-pointer t))))

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

  ViewVC Help
Powered by ViewVC 1.1.5