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

[Douglas Crosher]

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

Modified Files:
	swank-loader.lisp 
Log Message:
Support for Scieneer Common Lisp:
 o *sysdep-pathnames*: swank-scl.
 o *implementation-features*: add :scl.
 o *os-features*: add :hpux.
 o *architecture-features*: add :amd64, :i686, :i486, :sparc64, :sparc,
   :hppa64, and :hppa.

Date: Fri Oct 14 20:11:17 2005
Author: dcrosher

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.52 slime/swank-loader.lisp:1.53
--- slime/swank-loader.lisp:1.52	Tue Sep 13 00:59:04 2005
+++ slime/swank-loader.lisp	Fri Oct 14 20:11:16 2005
@@ -26,6 +26,8 @@
            '("nregex")
            #+cmu '("swank-source-path-parser" "swank-source-file-cache" 
                    "swank-cmucl")
+           #+scl '("swank-source-path-parser" "swank-source-file-cache" 
+                   "swank-scl")
            #+sbcl '("swank-sbcl" "swank-source-path-parser" 
                     "swank-source-file-cache" "swank-gray")
            #+openmcl '("metering" "swank-openmcl" "swank-gray")
@@ -39,17 +41,20 @@
 
 (defparameter *implementation-features*
   '(:allegro :lispworks :sbcl :openmcl :cmu :clisp :ccl :corman :cormanlisp 
-    :armedbear :gcl :ecl))
+    :armedbear :gcl :ecl :scl))
 
 (defparameter *os-features*
-  '(:macosx :linux :windows :mswindows :win32 :solaris :darwin :sunos :unix))
+  '(:macosx :linux :windows :mswindows :win32 :solaris :darwin :sunos :hpux
+    :unix))
 
 (defparameter *architecture-features*
-  '(:powerpc :ppc :x86 :x86-64 :i686 :pc386 :iapx386 :sparc))
+  '(:powerpc :ppc :x86 :x86-64 :amd64 :i686 :i586 :i486 :pc386 :iapx386
+    :sparc64 :sparc :hppa64 :hppa))
 
 (defun lisp-version-string ()
   #+cmu       (substitute-if #\_ (lambda (x) (find x " /"))
                              (lisp-implementation-version))
+  #+scl       (lisp-implementation-version)
   #+sbcl      (lisp-implementation-version)
   #+ecl       (lisp-implementation-version)
   #+openmcl   (format nil "~d.~d"