CVS: sbcl/src/code describe.lisp,1.30,1.31 seq.lisp,1.24,1.25

Update of /cvsroot/sbcl/sbcl/src/code
In directory usw-pr-cvs1:/tmp/cvs-serv14487/src/code

Modified Files:
        describe.lisp seq.lisp 
Log Message:
0.7.4.3:
        minor tidying...
        ...Avoid calling TYPE-OF in common cases of COPY-SEQ (for less
                oppressive performance).
        ...nicer newlining in DESCRIBE


Index: describe.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/describe.lisp,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** describe.lisp       18 Apr 2002 19:10:30 -0000      1.30
--- describe.lisp       28 May 2002 16:00:21 -0000      1.31
***************
*** 20,25 ****
    "Print a description of the object X."
    (let ((stream (out-synonym-of stream-designator)))
      (pprint-logical-block (stream nil)
-       (pprint-newline :mandatory stream)
        (describe-object x stream)
        (pprint-newline :mandatory stream)))
--- 20,25 ----
    "Print a description of the object X."
    (let ((stream (out-synonym-of stream-designator)))
+     (fresh-line stream)
      (pprint-logical-block (stream nil)
        (describe-object x stream)
        (pprint-newline :mandatory stream)))

Index: seq.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/seq.lisp,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** seq.lisp    16 Jan 2002 20:31:49 -0000      1.24
--- seq.lisp    28 May 2002 16:00:24 -0000      1.25
***************
*** 290,294 ****
  
  (defun vector-copy-seq* (sequence)
!   (vector-copy-seq sequence (type-of sequence)))
  
  ;;;; FILL
--- 290,304 ----
  
  (defun vector-copy-seq* (sequence)
!   (declare (type vector sequence))
!   (vector-copy-seq sequence
!                  (typecase sequence
!                    ;; Pick off the common cases so that we don't have to... 
!                    ((vector t) 'simple-vector)
!                    (string 'simple-string)
!                    (bit-vector 'simple-bit-vector)
!                    ((vector single-float) '(simple-array single-float 1))
!                    ((vector double-float) '(simple-array double-float 1))
!                    ;; ...do a full call to TYPE-OF.
!                    (t (type-of sequence)))))
  
  ;;;; FILL


_______________________________________________________________

Don't miss the 2002 Sprint PCS Application Developer's Conference
August 25-28 in Las Vegas -- http://devcon.sprintpcs.com/adp/index.cfm