diff options
Diffstat (limited to 'src/interp/debug.lisp')
-rw-r--r-- | src/interp/debug.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp index e091b57f..2e425aa1 100644 --- a/src/interp/debug.lisp +++ b/src/interp/debug.lisp @@ -46,6 +46,12 @@ (import-module "sys-macros") (import-module "lexing") (in-package "BOOT") + +(defmacro SPADLET (A B) + (if (ATOM A) + `(SETQ ,A ,B) + `(OR (IS ,B ,A) + (LET_ERROR ,(MK_LEFORM A) ,(MKQ B) )))) (defvar S-SPADKEY NIL) ;" this is augmented by MAKESPADOP" |