diff options
Diffstat (limited to 'src/interp/spad.lisp')
| -rw-r--r-- | src/interp/spad.lisp | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index 31785bc2..14776731 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -284,7 +284,6 @@ (*print-pretty* t) ($MACROASSOC ()) ($NEWSPAD T) - (|$compUniquelyIfTrue| nil) |$currentFunction| |$topOp| (|$semanticErrorStack| ()) @@ -384,15 +383,6 @@ (COLLECT |formatCOLLECT|) (REDUCE |formatREDUCE|))) -(defmacro |incTimeSum| (a b) - (if (not |$InteractiveTimingStatsIfTrue|) a - (let ((key b) (oldkey (gensym)) (val (gensym))) - `(prog (,oldkey ,val) - (setq ,oldkey (|incrementTimeSum| ,key)) - (setq ,val ,a) - (|incrementTimeSum| ,oldkey) - (return ,val))))) - (defun SETELTFIRST (A B C) (declare (ignore b)) (RPLACA A C)) (defun SETELTREST (A B C) (declare (ignore b)) (RPLACD A C)) |