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

Merged in CVS

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-06-26 22:59:39 +02:00
commit 472a221691
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/compiler.d
View file

@ -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);

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

@ -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: ()