mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 09:20:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo in ABS

Browse source
This commit is contained in:
jgarcia 2008-04-22 09:17:16 +00:00
parent 760e967d80
commit f275bea12f
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/num_sfun.d
View file

@ -104,11 +104,11 @@ ecl_abs(cl_object x)
*/
cl_object r = x->complex.real;
cl_object i = x->complex.imag;
if (ecl_minusp(r)) r = ecl_negate(x);
if (ecl_minusp(r)) r = ecl_negate(r);
if (ecl_minusp(i)) i = ecl_negate(i);
if (ecl_number_compare(r, i) > 0) {
cl_object aux = i;
i = r; r = i;
i = r; r = aux;
}
r = ecl_divide(r, i);
r = ecl_plus(MAKE_FIXNUM(1), ecl_times(r, r));

4
src/lsp/config.lsp.in
View file

@ -46,7 +46,7 @@ Returns, as a string, the location of the machine on which ECL runs."
(defun lisp-implementation-version ()
"Args:()
Returns the version of your ECL as a string."
"@PACKAGE_VERSION@ (CVS 2008-04-13 22:17)")
"@PACKAGE_VERSION@ (CVS 2008-04-22 11:17)")
(defun machine-type ()
"Args: ()
@ -98,7 +98,7 @@ Returns, as a string, the version of the software under which ECL runs."
#-boehm-gc
(progn
(sys::allocate 'CONS 200)
(sys::allocate 'STRING 40))
(sys::allocate 'BASE-STRING 40))
;;
;; * Set configuration pathnames. Notice the trailing slash!