/[slime]/slime/swank-loader.lisp
ViewVC logotype

Diff of /slime/swank-loader.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.47 by pseibel, Mon Apr 18 04:42:50 2005 UTC revision 1.48 by heller, Tue May 31 18:38:41 2005 UTC
# Line 33  Line 33 
33             #+allegro '("swank-allegro" "swank-gray")             #+allegro '("swank-allegro" "swank-gray")
34             #+clisp '("xref" "metering" "swank-clisp" "swank-gray")             #+clisp '("xref" "metering" "swank-clisp" "swank-gray")
35             #+armedbear '("swank-abcl")             #+armedbear '("swank-abcl")
36               #+cormanlisp '("swank-corman" "swank-gray")
37             )))             )))
38    
39  (defparameter *implementation-features*  (defparameter *implementation-features*
40    '(:allegro :lispworks :sbcl :openmcl :cmu :clisp :ccl :corman :armedbear :gcl :ecl))    '(:allegro :lispworks :sbcl :openmcl :cmu :clisp :ccl :corman :cormanlisp :armedbear :gcl :ecl))
41    
42  (defparameter *os-features*  (defparameter *os-features*
43    '(:macosx :linux :windows :mswindows :win32 :solaris :darwin :sunos :unix))    '(:macosx :linux :windows :mswindows :win32 :solaris :darwin :sunos :unix))
# Line 56  Line 57 
57    #+allegro   excl::*common-lisp-version-number*    #+allegro   excl::*common-lisp-version-number*
58    #+clisp     (let ((s (lisp-implementation-version)))    #+clisp     (let ((s (lisp-implementation-version)))
59                  (subseq s 0 (position #\space s)))                  (subseq s 0 (position #\space s)))
60    #+armedbear (lisp-implementation-version))    #+armedbear (lisp-implementation-version)
61      #+cormanlisp (lisp-implementation-version))
62    
63  (defun unique-directory-name ()  (defun unique-directory-name ()
64    "Return a name that can be used as a directory name that is    "Return a name that can be used as a directory name that is

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

  ViewVC Help
Powered by ViewVC 1.1.5