Compiler Bug in Pmax version, 8 March

[Scott_Fahlman@SEF-PMAX.SLISP.CS.CMU.EDU]

Compiling a file containing the following macro definition:

(defmacro incf-sf (place &optional (increment 1.0))
  `(the short-float (incf (the short-float ,place)
			  (the short-float ,increment))))

Got a compiler error.  This worked in previous compilers, though I haven't
tried compiling this in the last few releases.


KERNEL:FDEFN fell through ECASE expression.
Wanted one of (STRUCTURE SCAVENGER-HOOK KERNEL:LRA KERNEL:CODE-COMPONENT
               WEAK-POINTER SYSTEM:SYSTEM-AREA-POINTER KEYWORD SYMBOL CONS
               FUNCTION EXTENDED-CHAR STANDARD-CHAR BASE-CHAR CHARACTER NIL *
               T).

Restarts:
  0: [ABORT] Return to Top-Level.

Debug  (type H for help)

(DEBUG::DEBUG-LOOP)
0] d

("DEFUN DEBUG-LOOP" #<unavailable-arg> #<unavailable-arg>)[:EXTERNAL]
1] d

(DEBUG:INTERNAL-DEBUG)
2] d

(INVOKE-DEBUGGER #<CONDITIONS::CASE-FAILURE {7056825}>)
3] d

(ERROR CONDITIONS::CASE-FAILURE :NAME ECASE :DATUM ...)
4] d

(COMMON-LISP::%%TYPEP NIL #<NAMED-TYPE KERNEL:FDEFN>)
5] d

(KERNEL:CTYPEP NIL #<NAMED-TYPE KERNEL:FDEFN>)
6] d

(KERNEL:CTYPEP #<unavailable-arg> NIL #<NAMED-TYPE KERNEL:FDEFN>)[:EXTERNAL]
7] d

(KERNEL::MEMBER-COMPLEX-SUBTYPEP-ARG1-TYPE-METHOD #<MEMBER-TYPE NULL>
                                                  #<NAMED-TYPE KERNEL:FDEFN>)
8] d

(KERNEL:CSUBTYPEP #<MEMBER-TYPE NULL> #<NAMED-TYPE KERNEL:FDEFN>)
9] d

(KERNEL::UNION-COMPLEX-SUBTYPEP-ARG1-TYPE-METHOD #<UNION-TYPE LIST>
                                                 #<NAMED-TYPE KERNEL:FDEFN>)
10] d

(KERNEL:CSUBTYPEP #<UNION-TYPE LIST> #<NAMED-TYPE KERNEL:FDEFN>)
11] d

(C::MAYBE-WEAKEN-CHECK #<UNION-TYPE LIST> #<Continuation c1>)
12] d

(C::MAYBE-NEGATE-CHECK #<Continuation c1> (#<UNION-TYPE LIST>) NIL)
13] d

(C::GENERATE-TYPE-CHECKS #<C:COMPONENT #x70522BD  NAME= "DEFMACRO INCF-SF">)
14] d

(C::IR1-PHASES #<C:COMPONENT #x70522BD  NAME= "DEFMACRO INCF-SF">)
15] d