summaryrefslogtreecommitdiffstats
path: root/stdlib
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib')
-rw-r--r--stdlib/doc-syms.tl4
-rw-r--r--stdlib/optimize.tl5
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