diff --git a/bootfiles/19e/boot-2008-04-1.lisp b/bootfiles/19e/boot-2008-04-1.lisp new file mode 100644 index 0000000000000000000000000000000000000000..a7134ac518efc78587bd9b4f6c032858d7d84e3f --- /dev/null +++ b/bootfiles/19e/boot-2008-04-1.lisp @@ -0,0 +1,15 @@ +;; Bootstrap to change the vops to use 32-bit registers for characters. +;; A basic cross-compile works too. + +#+x86 +(in-package :x86) + +#+x86 +(handler-bind ((error (lambda (c) + (declare (ignore c)) + (invoke-restart 'continue)))) + (defconstant byte-sc-names '(byte-reg)) + (defconstant dword-sc-names + '(any-reg descriptor-reg sap-reg signed-reg unsigned-reg control-stack + signed-stack unsigned-stack sap-stack single-stack constant + base-char-reg base-char-stack))) \ No newline at end of file