diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-11-25 03:59:54 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-11-25 03:59:54 +0000 |
| commit | b9a41aa55d8434aa303791d6e8a9e24a3eed5d60 (patch) | |
| tree | 059d3042f706abf5df8ea3654e161ad06cfe2205 /src/interp/spad.lisp | |
| parent | 9623b4db02612db5c7e9ac8a573bde7f92928b17 (diff) | |
| download | open-axiom-b9a41aa55d8434aa303791d6e8a9e24a3eed5d60.tar.gz | |
* Makefile.pamphlet (patches.$(FASLEXT)): New rule.
(setvars.$(FASLEXT)): Likewise.
(osyscmd.$(FASLEXT)): Likewise.
(intint.$(FASLEXT)): Likewise.
(int-top.$(FASLEXT)): Likewise.
(wi2.$(FASLEXT)): Likewise.
(wi1.$(FASLEXT)): Likewise.
(template.$(FASLEXT)): Likewise.
(package.$(FASLEXT)): Likewise.
(xruncomp.$(FASLEXT)): Likewise.
(interop.$(FASLEXT)): Likewise.
(mark.$(FASLEXT)): Likewise.
(daase.$(FASLEXT)): Likewise.
(monitor.$(FASLEXT)): Likewise.
(hashcode.$(FASLEXT)): Likewise.
(pspad2.$(FASLEXT)): Likewise.
(pspad1.$(FASLEXT)): Likewise.
(nocompil.$(FASLEXT)): Likewise.
(fname.$(FASLEXT)): Likewise.
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)))) - |