Plaster
New
List
Login
text
default
phoe
2019.11.01 17:36:45
> (declaim (optimize (safety 3))) ((OPTIMIZE (SAFETY 3))) > (compile nil (lambda () (let ((x most-positive-fixnum)) (declare (fixnum x)) (locally (declare (ext:assume-right-type)) (setq x (1+ x)))))) ;;; OPTIMIZE levels: Safety=3, Space=0, Speed=3, Debug=0 ;;; ;;; End of Pass 1. #<compiled-function 0x555ccc118c40> NIL NIL > (funcall *) -2305843009213693952
Raw
Annotate
Repaste
Annotations
text
default
phoe
2019.11.01 17:40:49
> (compile nil (lambda () (loop for x of-type fixnum from (1- most-positive-fixnum) to most-positive-fixnum collect x finally (print x)))) ;;; OPTIMIZE levels: Safety=3, Space=0, Speed=3, Debug=0 ;;; ;;; End of Pass 1. #<compiled-function 0x555ccc1614c0> NIL NIL > (funcall *) -2305843009213693952 (2305843009213693950 2305843009213693951)
Raw
Repaste