(%primitive write-control-stack (%primitive make-immediate-type (ash index 2) %assembler-code-type) (cdr mo)) (pushnew name *user-defined-miscops*)))) (setq *miscop-definitions* ())) (proclaim '(notinline read-byte))