diff options
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/doc-syms.tl | 4 | ||||
| -rw-r--r-- | stdlib/optimize.tl | 5 |
2 files changed, 4 insertions, 5 deletions
diff --git a/stdlib/doc-syms.tl b/stdlib/doc-syms.tl index 78229519..6be397ea 100644 --- a/stdlib/doc-syms.tl +++ b/stdlib/doc-syms.tl @@ -1887,6 +1887,10 @@ ("sub-str" "N-03CFFEF2") ("sub-tree" "N-0398FBE2") ("sub-vec" "N-03BFFF0A") + ("subq" "N-01B32285") + ("subql" "N-01B32285") + ("subqual" "N-01B32285") + ("subst" "N-01F8EF22") ("subtypep" "N-00699D3B") ("succ" "N-038E636C") ("sum" "N-0163FFE2") diff --git a/stdlib/optimize.tl b/stdlib/optimize.tl index 11b85aca..4b7b3ec5 100644 --- a/stdlib/optimize.tl +++ b/stdlib/optimize.tl @@ -345,11 +345,6 @@ ((nequal ninsn oinsn) (append (ldiff code tail) (list ninsn))) (t code)))) -(defun subst (x y list) - (mapcar (lambda (item) - (if (equal item x) y item)) - list)) - (defun subst-preserve (x y bb li list) (let ((sub (subst x y list))) (cond |