From bebfeb179fd8c8673e1e5c3e274dd375ed9076dd Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Fri, 8 Feb 2008 23:53:55 +0000
Subject: [PATCH] STACK-PUSH-VALUES did not get inlined

---
 src/cmp/cmpenv.lsp    | 2 +-
 src/lsp/config.lsp.in | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cmp/cmpenv.lsp b/src/cmp/cmpenv.lsp
index 0483a105e..e5f20e7ec 100644
--- a/src/cmp/cmpenv.lsp
+++ b/src/cmp/cmpenv.lsp
@@ -163,7 +163,7 @@
 
 (defun inline-possible (fname)
   (not (or ; (compiler-<push-events)
-	(>= *debug* 2)
+	;(>= *debug* 2) Breaks compilation of STACK-PUSH-VALUES
 	(member fname *notinline* :test #'same-fname-p)
 	(and (symbolp fname) (get-sysprop fname 'CMP-NOTINLINE)))))
 
diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in
index f49a30f4a..142fbb378 100644
--- a/src/lsp/config.lsp.in
+++ b/src/lsp/config.lsp.in
@@ -24,7 +24,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-02-09 00:50)")
+  "@PACKAGE_VERSION@ (CVS 2008-02-09 00:53)")
 
 (defun machine-type ()
   "Args: ()