mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-13 04:42:13 -08:00
Code Issues Projects Releases Packages Wiki Activity

Removed a broken inline expansion for #'/

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-08 21:29:35 +02:00
parent 4303ea8572
commit a4599f13af
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/cmp/sysfun.lsp
View file

@ -750,7 +750,6 @@
(def-inline / :always (fixnum-float fixnum-float) :float
"(float)(#0)/(float)(#1)" :exact-return-type t)
(def-inline / :always (fixnum fixnum) :fixnum "(#0)/(#1)" :exact-return-type t)
(def-inline / :unsafe (integer integer) integer "ecl_integer_divide(#0,#1)")
(proclaim-function 1+ (t) t :no-side-effects t)
(def-inline 1+ :always (t) t "ecl_one_plus(#0)")