procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add a bunch of ops

Browse source
This commit is contained in:
Andrea Corallo 2019-07-20 16:34:37 +02:00 • committed by Andrea Corallo
parent a556a2ef5b
commit f78257006c
1 changed files with 20 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

40
lisp/emacs-lisp/comp.el
View file

@ -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)