[slime-cvs] CVS /slime

[mbaringer]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:
(slime-create-filename-translator): use the tramp methods for
dissecting and building filenames.


--- /project/slime/cvsroot//slime/swank-openmcl.lisp	2006/02/18 13:44:10	1.105
+++ /project/slime/cvsroot//slime/swank-openmcl.lisp	2006/03/07 09:51:52	1.106
@@ -466,7 +466,15 @@
       (ccl::frame-supplied-args p lfun pc nil context)
     (declare (ignore count nclosed))
     (let ((result nil))
-      (loop for var in args 
+      (loop named loop
+         for var = (cond
+                     ((null args)
+                      (return-from loop))
+                     ((atom args)
+                      (prog1
+                          args
+                        (setf args nil)))
+                     (t (pop args)))
           for type in types
           for name in names
           do