diff options
Diffstat (limited to 'src/interp/spad.lisp')
-rw-r--r-- | src/interp/spad.lisp | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index 1f8b84b0..3a0fef1b 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -267,10 +267,6 @@ (FLAG JUNKTOKLIST 'KEY) -(defmacro |report| (L) - (SUBST (SECOND L) 'x - '(COND ($reportFlag (sayBrightly x)) ((QUOTE T) NIL)))) - (defmacro |DomainSubstitutionMacro| (&rest L) (|DomainSubstitutionFunction| (first L) (second L))) @@ -565,7 +561,4 @@ (if (null (rest fn)) (setq fn (list (pathname (car fn))))) (rdefiostream (list (cons 'FILE fn) '(mode . OUTPUT)))) -(defmacro |spadConstant| (dollar n) - `(spadcall (svref ,dollar (the fixnum ,n)))) - |