diff --git a/src/c/compiler.d b/src/c/compiler.d index c4c47bd6d..afa3e4496 100644 --- a/src/c/compiler.d +++ b/src/c/compiler.d @@ -1979,7 +1979,7 @@ compile_form(cl_object stmt, int flags) { cl_fixnum n; if (stmt == Cnil) { asm_op(push? OP_PUSHNIL : OP_NIL); - } else if (FIXNUMP(stmt) && (n = fix(stmt), abs(n)) <= MAX_OPARG) { + } else if (FIXNUMP(stmt) && (n = fix(stmt)) <= MAX_OPARG && n >= -MAX_OPARG) { asm_op2(push? OP_PINT : OP_INT, n); } else { asm_op2c(push? OP_PUSHQ : OP_QUOTE, stmt); diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in index 3482d51af..87dfcfc7b 100644 --- a/src/lsp/config.lsp.in +++ b/src/lsp/config.lsp.in @@ -47,6 +47,7 @@ Returns, as a string, the location of the machine on which ECL runs." "Args:() Returns the version of your ECL as a string." "@PACKAGE_VERSION@ (CVS 2008-06-04 23:07)") + "@PACKAGE_VERSION@ (CVS 2008-06-19 17:09)") (defun machine-type () "Args: ()