Changeset 8463


Ignore:
Timestamp:
02/04/05 19:34:23 (17 years ago)
Author:
piso
Message:

createLispShell(): added slime support for Allegro Common Lisp.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/j/LispShell.java

    r8439 r8463  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: LispShell.java,v 1.83 2005-02-01 03:32:42 piso Exp $
     5 * $Id: LispShell.java,v 1.84 2005-02-04 19:34:23 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    9898                                             "swank");
    9999            portFile.delete();
    100             if (shellCommand.indexOf("sbcl") >= 0) {
     100            if (shellCommand.indexOf("abcl") >= 0 ||
     101                shellCommand.indexOf("org.armedbear.lisp") >= 0) {
     102                shellCommand =
     103                    shellCommand.concat(" --load-system-file swank-loader.lisp");
     104            } else {
    101105                File lispHome = File.getInstance(Site.getLispHome());
    102106                if (lispHome == null)
     
    106110                if (swankLoader == null)
    107111                    return null; // FIXME Error message?
    108                 shellCommand =
    109                     shellCommand + " --load " + swankLoader.canonicalPath();
    110             } else if (shellCommand.indexOf("abcl") >= 0 ||
    111                        shellCommand.indexOf("org.armedbear.lisp") >= 0) {
    112                 shellCommand =
    113                     shellCommand.concat(" --load-system-file swank-loader.lisp");
     112                if (shellCommand.indexOf("sbcl") >= 0) {
     113                    shellCommand =
     114                        shellCommand + " --load " + swankLoader.canonicalPath();
     115                } else if (shellCommand.indexOf("alisp") >= 0) {
     116                    shellCommand =
     117                        shellCommand + " -L " + swankLoader.canonicalPath();
     118                }
    114119            }
    115120        }
     
    126131            return null;
    127132        }
    128         if (shellCommand.equals("alisp") || shellCommand.equals("/usr/bin/alisp")) {
     133        if (shellCommand.indexOf("alisp") >= 0) {
    129134            lisp.setPromptRE(ALLEGRO_PROMPT_PATTERN);
    130135            lisp.setResetCommand(":reset");
Note: See TracChangeset for help on using the changeset viewer.