alpha lossage

[William_Lott@ARDATH.SLISP.CS.CMU.EDU]

Rob,

The problem with the alpha core didn't go away:

	The assertion (NOT (FUNCTIONAL-ENTRY-FUNCTION LEAF)) failed.

Here is the backtrace.

(COMMON-LISP::SIMPLE-ASSERTION-FAILURE (NOT (FUNCTIONAL-ENTRY-FUNCTION LEAF)))
(COMMON-LISP::SIMPLE-ASSERTION-FAILURE #<unavailable-arg>)
(COMMON-LISP::ASSERT-ERROR (NOT (FUNCTIONAL-ENTRY-FUNCTION LEAF)) NIL NIL)
(DELETE-REF #<REF 7B1661D
		LEAF= #<LAMBDA 7B15EE5
			NAME= NIL
			TYPE= #
			WHERE-FROM= :DEFINED
			VARS= #>>)
(CHANGE-REF-LEAF #<REF 7B1661D
			LEAF= #<LAMBDA 7B15EE5
				NAME= NIL
				TYPE= #  WHERE-FROM= :DEFINED
				VARS= #>>
		 #<LAMBDA 7B1742D
			NAME= NIL
			TYPE= #<NAMED-TYPE FUNCTION>
			WHERE-FROM= :DEFINED
			VARS= (#:G2 #:G3)>)
(LOCAL-CALL-ANALYZE-1 #<LAMBDA 7B15EE5
			NAME= NIL
			TYPE= #<NAMED-TYPE FUNCTION>
			WHERE-FROM= :DEFINED  VARS= (#:G1)>)
(MAKE-EXTERNAL-ENTRY-POINT #<LAMBDA 7B15EE5
				NAME= NIL
				TYPE= #<NAMED-TYPE FUNCTION>
				WHERE-FROM= :DEFINED  VARS= (#:G1)>)
(REFERENCE-ENTRY-POINT #<REF 7B1661D
				LEAF= #<LAMBDA 7B15EE5
					NAME= NIL
					TYPE= #
					WHERE-FROM= :DEFINED
					VARS= #>>)
(LOCAL-CALL-ANALYZE-1 #<LAMBDA 7B15EE5
				NAME= NIL
				TYPE= #<NAMED-TYPE FUNCTION>
				WHERE-FROM= :DEFINED
				VARS= (#:G1)>)
(LOCAL-CALL-ANALYZE #<COMPONENT 7B156DD
			NAME= "initial component"
			REANALYZE= T>)
(#:G4)
(COMPILE-FOR-EVAL (UNLESS (OR # #) (LOAD "assem:bit-bash")) NIL)
(EVAL:INTERNAL-EVAL (UNLESS (OR # #) (LOAD "assem:bit-bash")) NIL)
...

-William