>>108488008
It's called Common Lisp.
(define-generic-arith-routine (+ 10)
(move res x)
(inst add res y)
(inst jmp :o BIGNUM)
(inst clc) (inst ret)
BIGNUM
;; Unbox the overflowed result, recovering the correct sign from
;; the carry flag, then re-box as a bignum.
(inst rcr res 1)
(when (> n-fixnum-tag-bits 1) ; don't shift by 0
(inst sar res (1- n-fixnum-tag-bits)))
(return-single-word-bignum res rcx res))
SBCL compiles to machine code. You can disassemble any function with the built-in function disassemble.
Having s-exp syntax does not make something a lisp.