From c25e4572f5505236faf126f38a74f32a80bf1e8c Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Tue, 28 May 2002 16:00:11 +0000 Subject: [PATCH] 0.7.4.3: minor tidying... ...Avoid calling TYPE-OF in common cases of COPY-SEQ (for less oppressive performance). ...nicer newlining in DESCRIBE --- src/code/describe.lisp | 2 +- src/code/seq.lisp | 12 +++++++++++- src/compiler/dfo.lisp | 6 +++--- version.lisp-expr | 2 +- 4 files changed, 16 insertions(+), 6 deletions(-) diff --git a/src/code/describe.lisp b/src/code/describe.lisp index 7ea642d..35cd265 100644 --- a/src/code/describe.lisp +++ b/src/code/describe.lisp @@ -19,8 +19,8 @@ #+sb-doc "Print a description of the object X." (let ((stream (out-synonym-of stream-designator))) + (fresh-line stream) (pprint-logical-block (stream nil) - (pprint-newline :mandatory stream) (describe-object x stream) (pprint-newline :mandatory stream))) (values)) diff --git a/src/code/seq.lisp b/src/code/seq.lisp index adf36db..7a20475 100644 --- a/src/code/seq.lisp +++ b/src/code/seq.lisp @@ -289,7 +289,17 @@ (list-copy-seq sequence)) (defun vector-copy-seq* (sequence) - (vector-copy-seq sequence (type-of 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 diff --git a/src/compiler/dfo.lisp b/src/compiler/dfo.lisp index a22339d..4161810 100644 --- a/src/compiler/dfo.lisp +++ b/src/compiler/dfo.lisp @@ -347,8 +347,8 @@ (values (real) (top) (real-top)))) -;; COMPONENTs want strings for names, LEAF-DEBUG-NAMEs mightn't be -;; strings.. +;;; COMPONENTs want strings for names, LEAF-DEBUG-NAMEs mightn't be +;;; strings... (defun component-name-from-functional-debug-name (functional) (declare (type functional functional)) (let ((leaf-debug-name (leaf-debug-name functional))) @@ -375,7 +375,7 @@ ;; an existing component if we find that there are references ;; between them. Any code that is left in an initial component ;; must be unreachable, so we can delete it. Stray links to the - ;; initial component tail (due NIL function terminated blocks) + ;; initial component tail (due to NIL function terminated blocks) ;; are moved to the appropriate new component tail. (dolist (toplevel-lambda toplevel-lambdas) (let* ((old-component (lambda-component toplevel-lambda)) diff --git a/version.lisp-expr b/version.lisp-expr index 9153568..8ea0678 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -18,4 +18,4 @@ ;;; for internal versions, especially for internal versions off the ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.7.4.2" +"0.7.4.3" -- 1.7.10.4