add a bunch of ops

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 99e71a0d58de7715d8c615a8db231e5d5abc36a9..fceea59860a7dfe78df55e007893db1bb16d63aa 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -284,7 +284,7 @@ If C-FUN-NAME is nil it will be guessed from SUBR-NAME."
   "Set current slot with slot number N as source."
   (let ((src-slot (comp-slot-n n)))
     (cl-assert src-slot)
-    ;; Should the id increased here?
+    ;; FIXME id should encrease here.
     (setf (comp-slot)
           (copy-sequence src-slot))
     (setf (comp-mvar-slot (comp-slot)) (comp-sp))
@@ -482,7 +482,7 @@ the annotation emission."
       (byte-set auto)
       (byte-fset auto)
       (byte-get auto)
-      (byte-substring)
+      (byte-substring auto)
       (byte-concat2
        (comp-emit-set-call `(callref Fconcat 2 ,(comp-sp))))
       (byte-concat3
@@ -503,19 +503,19 @@ the annotation emission."
       (byte-negate)
       (byte-plus
        (comp-emit-set-call `(callref Fplus 2 ,(comp-sp))))
-      (byte-max)
-      (byte-min)
+      (byte-max auto)
+      (byte-min auto)
       (byte-mult)
       (byte-point auto)
       (byte-goto-char auto)
-      (byte-insert)
+      (byte-insert auto)
       (byte-point-max auto)
       (byte-point-min auto)
-      (byte-char-after)
+      (byte-char-after auto)
       (byte-following-char auto)
       (byte-preceding-char auto)
       (byte-current-column auto)
-      (byte-indent-to)
+      (byte-indent-to auto)
       (byte-scan-buffer-OBSOLETE)
       (byte-eolp auto)
       (byte-eobp auto)
@@ -526,17 +526,17 @@ the annotation emission."
       (byte-save-current-buffer)
       (byte-set-mark-OBSOLETE)
       (byte-interactive-p-OBSOLETE)
-      (byte-forward-char)
-      (byte-forward-word)
-      (byte-skip-chars-forward)
-      (byte-skip-chars-backward)
-      (byte-forward-line)
+      (byte-forward-char auto)
+      (byte-forward-word auto)
+      (byte-skip-chars-forward auto)
+      (byte-skip-chars-backward auto)
+      (byte-forward-line auto)
       (byte-char-syntax auto)
       (byte-buffer-substring auto)
       (byte-delete-region auto)
       (byte-narrow-to-region)
       (byte-widen)
-      (byte-end-of-line)
+      (byte-end-of-line auto)
       (byte-constant2)
       (byte-goto
        (let ((bb (comp-new-block-sym))
@@ -571,14 +571,14 @@ the annotation emission."
       (byte-temp-output-buffer-setup-OBSOLETE)
       (byte-temp-output-buffer-show-OBSOLETE)
       (byte-unbind-all)
-      (byte-set-marker)
-      (byte-match-beginning)
-      (byte-match-end)
-      (byte-upcase)
-      (byte-downcase)
+      (byte-set-marker auto)
+      (byte-match-beginning auto)
+      (byte-match-end auto)
+      (byte-upcase auto)
+      (byte-downcase auto)
       (byte-string=)
       (byte-string<)
-      (byte-equal)
+      (byte-equal auto)
       (byte-nthcdr auto)
       (byte-elt auto)
       (byte-member auto)
@@ -590,7 +590,7 @@ the annotation emission."
        (comp-emit-set-call `(call Fcar_safe ,(comp-slot))))
       (byte-cdr-safe
        (comp-emit-set-call `(call Fcdr_safe ,(comp-slot))))
-      (byte-nconc)
+      (byte-nconc auto)
       (byte-quo)
       (byte-rem)
       (byte-numberp auto)