[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv27233

Modified Files:
	slime.el 
Log Message:
(compile-defun): Don't use keywords.  The keyword package is locked in
Lispworks and causes the test-suite to hang.
Date: Sun Jan 18 15:04:20 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.185 slime/slime.el:1.186
--- slime/slime.el:1.185	Sun Jan 18 11:18:35 2004
+++ slime/slime.el	Sun Jan 18 15:04:20 2004
@@ -4914,20 +4914,21 @@
     (program subform)
     "Compile PROGRAM containing errors.
 Confirm that SUBFORM is correctly located."
-    '(("(defun :foo () (:bar))" (:bar))
-      ("(defun :foo () 
+    '(("(defun cl-user::foo () (cl-user::bar))" (cl-user::bar))
+      ("(defun cl-user::foo () 
           #\\space
           ;;Sdf              
-          (:bar))"
-       (:bar))
-      ("(defun :foo () 
+          (cl-user::bar))"
+       (cl-user::bar))
+      ("(defun cl-user::foo () 
              #+(or)skipped
              #| #||#
                 #||# |#
-             (:bar))"
-       (:bar))
-      ("(defun :foo () (list `(1 ,(random 10) 2 ,@(random 10) 3 ,(:bar))))"
-       (:bar))
+             (cl-user::bar))"
+       (cl-user::bar))
+      ("(defun cl-user::foo () 
+           (list `(1 ,(random 10) 2 ,@(random 10) 3 ,(cl-user::bar))))"
+       (cl-user::bar))
       )
   (with-temp-buffer 
     (lisp-mode)