[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv12631

Modified Files:
	swank.lisp ChangeLog 
Log Message:


--- /project/slime/cvsroot/slime/swank.lisp	2007/04/08 12:15:25	1.468
+++ /project/slime/cvsroot/slime/swank.lisp	2007/04/08 12:19:31	1.469
@@ -3622,8 +3622,8 @@
 only the top LIMIT results will be returned. Additionally, a flag
 is returned that indicates whether or not TIME-LIMIT-IN-MSEC was
 exhausted."
-  (check-type (values limit time-limit-in-msec) 
-              (or null (integer 0 #.(1- most-positive-fixnum))))
+  (check-type limit (or null (integer 0 #.(1- most-positive-fixnum))))
+  (check-type time-limit-in-msec (or null (integer 0 #.(1- most-positive-fixnum))))
   (multiple-value-bind (completion-set interrupted-p)
       (fuzzy-create-completion-set string default-package-name
                                    time-limit-in-msec)
--- /project/slime/cvsroot/slime/ChangeLog	2007/04/08 12:15:25	1.1096
+++ /project/slime/cvsroot/slime/ChangeLog	2007/04/08 12:19:31	1.1097
@@ -1,3 +1,10 @@
+2007-04-08  Marco Baringer <mb at bese.it>
+
+	* swank.lisp (fuzzy-completion-set): Use two check-type forms
+	instead of a place like (values limit time-limit-in-msec). While
+	sbcl seems to accept this form openmcl doesn't and it's not clear
+	from the spec that this is allowed.
+
 2007-04-06  Tobias C. Rittweiler <tcr at freebits.de>
 
 	* swank.lisp: Making fuzzy completion regard the time limit