From ad8ea88fc4ba8b05fbb1beb4d6bf5c883027714c Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 9 Oct 2002 10:07:42 +0000 Subject: [PATCH] 0.7.8.21: Commit speedier version of UNCROSS for the cross-compiler, as in CSR sbcl-devel 2002-10-08 ... make the hash-table once and only once ;-) --- src/code/uncross.lisp | 11 ++++++----- tests/array.pure.lisp | 9 --------- version.lisp-expr | 2 +- 3 files changed, 7 insertions(+), 15 deletions(-) diff --git a/src/code/uncross.lisp b/src/code/uncross.lisp index 68d6e00..bfb3c81 100644 --- a/src/code/uncross.lisp +++ b/src/code/uncross.lisp @@ -59,11 +59,11 @@ ;;; (:COMPILE-TOPLEVEL)) do we call UNCROSS on them to obliterate the ;;; distinction. #+sb-xc-host -(defun uncross (form) - (let ((;; KLUDGE: We don't currently try to handle circular program - ;; structure, but we do at least detect it and complain about - ;; it.. - inside? (make-hash-table))) +(let ((;; KLUDGE: We don't currently try to handle circular program + ;; structure, but we do at least detect it and complain about + ;; it.. + inside? (make-hash-table))) + (defun uncross (form) (labels ((uncross-symbol (symbol) (let ((old-symbol-package (symbol-package symbol))) (if (and old-symbol-package @@ -119,4 +119,5 @@ (if (and (eq rcr-car car) (eq rcr-cdr cdr)) form (cons rcr-car rcr-cdr))))) + (clrhash inside?) (rcr form)))) diff --git a/tests/array.pure.lisp b/tests/array.pure.lisp index 4e665ed..513a6d8 100644 --- a/tests/array.pure.lisp +++ b/tests/array.pure.lisp @@ -79,12 +79,3 @@ (aref rmdr ,i))) vector) 0)))) -#| -(assert (= (funcall - (lambda (rmdr) - (declare (type (simple-array bit (*)) rmdr) - (optimize (speed 3) (safety 0))) - (aref rmdr 0)) - #*00000000000000000000000000000001000000000) - 0)) -|# \ No newline at end of file diff --git a/version.lisp-expr b/version.lisp-expr index 7458ebb..868255d 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -18,4 +18,4 @@ ;;; internal versions off the main CVS branch, it gets hairier, e.g. ;;; "0.pre7.14.flaky4.13".) -"0.7.8.20" +"0.7.8.21" -- 1.7.10.4