From: William H. N. <wn...@us...> - 2002-03-19 20:17:56
|
Update of /cvsroot/sbcl/sbcl/src/compiler/generic In directory usw-pr-cvs1:/tmp/cvs-serv7947/src/compiler/generic Modified Files: genesis.lisp Log Message: 0.7.1.47: reviewed OPTIMIZE declarations, (mostly trying to avoid inadvertently imposing large %DETECT-STACK-EXHAUSTION overhead)... ...bumped SAFETY 1 to SAFETY 2 in warm.lisp (since (> SPEED SAFETY) isn't what we want) ...changed (SPEED 3) (SAFETY 3) to (SPEED 2) (SAFETY 2) in SORT logic ...removed OPTIMIZE declarations in time.lisp, since there's no up-to-date compelling reason to use other than the default optimization there. ...removed (OPTIMIZE (SAFETY 3)) in DEFTRANSFORM ARRAY-HEADER-P, since there seems to be no reason for it rearranged insert-%DETECT-STACK-EXHAUSTION code to make indentation less ridiculous Index: genesis.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/genesis.lisp,v retrieving revision 1.57 retrieving revision 1.58 diff -C2 -d -r1.57 -r1.58 *** genesis.lisp 18 Mar 2002 19:08:01 -0000 1.57 --- genesis.lisp 19 Mar 2002 20:17:51 -0000 1.58 *************** *** 1009,1014 **** (declaim (type list *cold-package-symbols*)) ! ;;; a map from descriptors to symbols, so that we can back up. The key is the ! ;;; address in the target core. (defvar *cold-symbols*) (declaim (type hash-table *cold-symbols*)) --- 1009,1014 ---- (declaim (type list *cold-package-symbols*)) ! ;;; a map from descriptors to symbols, so that we can back up. The key ! ;;; is the address in the target core. (defvar *cold-symbols*) (declaim (type hash-table *cold-symbols*)) *************** *** 1036,1040 **** (let ((package-name (package-name package))) (cond ((find package-name '("COMMON-LISP" "KEYWORD") :test #'string=) ! ;; That's OK then. (values)) ((string= package-name "SB!" :end1 3 :end2 3) --- 1036,1045 ---- (let ((package-name (package-name package))) (cond ((find package-name '("COMMON-LISP" "KEYWORD") :test #'string=) ! ;; Cold interning things in these standard packages is OK. ! ;; (Cold interning things in the other standard package, ! ;; CL-USER, isn't OK. We just use CL-USER to expose symbols ! ;; whose homes are in other packages. Thus, trying to cold ! ;; intern a symbol whose home package is CL-USER probably ! ;; means that a coding error has been made somewhere.) (values)) ((string= package-name "SB!" :end1 3 :end2 3) *************** *** 1045,1051 **** ;; looks bad: maybe COMMON-LISP-USER? maybe an extension ;; package in the xc host? something we can't think of ! ;; a valid reason to dump, anyway... ! (bug "internal error: PACKAGE-NAME=~S looks too much like a typo." ! package-name)))) (let (;; Information about each cold-interned symbol is stored --- 1050,1057 ---- ;; looks bad: maybe COMMON-LISP-USER? maybe an extension ;; package in the xc host? something we can't think of ! ;; a valid reason to cold intern, anyway... ! (error ; not #'BUG, because #'BUG isn't defined yet ! "internal error: PACKAGE-NAME=~S looks too much like a typo." ! package-name)))) (let (;; Information about each cold-interned symbol is stored |