Skip to content
Snippets Groups Projects
load.lisp 32 KiB
Newer Older
ram's avatar
ram committed
	  (%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))