[slime-cvs] CVS update: slime/swank-lispworks.lisp

[Martin Simmons]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
Fix typo in features for LW 4.1 and 4.2.

Date: Fri Jul  2 02:58:39 2004
Author: msimmons

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.50 slime/swank-lispworks.lisp:1.51
--- slime/swank-lispworks.lisp:1.50	Wed Jun 30 23:33:18 2004
+++ slime/swank-lispworks.lisp	Fri Jul  2 02:58:39 2004
@@ -380,7 +380,7 @@
               (*readtable* ,readtable))
           , at body)))))
 
-#-(or lispworks-4.1 lispworks-4.2)      ; no dspec:parse-form-dspec prior to 4.3
+#-(or lispworks4.1 lispworks4.2)      ; no dspec:parse-form-dspec prior to 4.3
 (defun dspec-stream-position (stream dspec)
   (with-fairly-standard-io-syntax
     (loop (let* ((pos (file-position stream))
@@ -427,9 +427,9 @@
       ((or pathname string)
        (let ((checked-filename (filename location)))
          (make-location `(:file ,checked-filename)
-                        #+(or lispworks-4.1 lispworks-4.2)
+                        #+(or lispworks4.1 lispworks4.2)
                         (dspec-buffer-position dspec 1)
-                        #-(or lispworks-4.1 lispworks-4.2)
+                        #-(or lispworks4.1 lispworks4.2)
                         (with-open-file (stream checked-filename)
                           (let ((position (dspec-stream-position stream dspec)))
                             (if position