[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv7471

Modified Files:
	ChangeLog swank-openmcl.lisp 
Log Message:
* swank-openmcl.lisp: Explicitly require CCL version 1.3.

--- /project/slime/cvsroot/slime/ChangeLog	2009/06/15 18:17:32	1.1785
+++ /project/slime/cvsroot/slime/ChangeLog	2009/06/15 18:17:47	1.1786
@@ -1,5 +1,9 @@
 2009-06-15  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-openmcl.lisp: Explicitly require CCL version 1.3.
+
+2009-06-15  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-openmcl.lisp (emacs-inspect [t]): Honor the type returned
 	by inspector::line-n.
 	(emacs-inspect [compiled-lexical-closure]): Deleted. Let CCL's
--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/06/15 18:17:32	1.176
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/06/15 18:17:48	1.177
@@ -52,6 +52,11 @@
 
 (in-package :swank-backend)
 
+(eval-when (:compile-toplevel :execute :load-toplevel)
+  (assert (and (= ccl::*openmcl-major-version* 1)
+               (>= ccl::*openmcl-minor-version* 3))
+          () "This file needs CCL version 1.3 or newer"))
+
 (import-from :ccl *gray-stream-symbols* :swank-backend)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)