[Sbcl-commits] CVS: sbcl/src/compiler/generic genesis.lisp,1.57,1.58

[William H. N. <wn...@us...>]

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