aboutsummaryrefslogtreecommitdiff
path: root/src/interp/daase.lisp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-04-22 15:51:57 +0000
committerdos-reis <gdr@axiomatics.org>2011-04-22 15:51:57 +0000
commit32efd3b0691918cf1d662b095c653d5a0a17ff7b (patch)
treeb340c1d23d752542fe88fd80ae6d559198c0b263 /src/interp/daase.lisp
parentb0046ba3929c513a399fd1ebb84dee1712c55a02 (diff)
downloadopen-axiom-32efd3b0691918cf1d662b095c653d5a0a17ff7b.tar.gz
more cleanup
Diffstat (limited to 'src/interp/daase.lisp')
-rw-r--r--src/interp/daase.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp
index bec950bc..c51f8ef2 100644
--- a/src/interp/daase.lisp
+++ b/src/interp/daase.lisp
@@ -1566,7 +1566,7 @@
(flat expr)
(dolist (leaf leaves)
(when (setq pos (position leaf *compressvector*))
- (nsubst (- pos) leaf expr)))
+ (|substitute!| (- pos) leaf expr)))
expr)))
(defun write-operationdb ()