Plaster
New
List
Login
text
default
anonymous
2022.08.04 00:32:22
(in-package #:sb-vm) (sb-c:defknown add-vop (fixnum fixnum) fixnum (sb-c:foldable sb-c:flushable sb-c:movable) :overwrite-fndb-silently t) (define-vop (add-vop fast-fixnum-binop) (:translate add-vop) (:generator 0 (inst add x y))) (defun add-vop (x y) (declare (type fixnum x y)) (add-vop x y)) ((lambda (x y) (add-vop x y)) 1 2) ; => 1 (1 bit, #x1, #o1, #b1) (add-vop 1 2) ; => 1 (1 bit, #x1, #o1, #b1) (funcall #'(lambda (x y) (add-vop x y)) 1 2) ; => 3 (2 bits, #x3, #o3, #b11)
Raw
Annotate
Repaste
Edit