Changeset 8464


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

Added support for Allegro Common Lisp.

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/swank-loader.lisp

    r7684 r8464  
    11;;; swank-loader.lisp
    22;;;
    3 ;;; Copyright (C) 2004 Peter Graves
    4 ;;; $Id: swank-loader.lisp,v 1.4 2004-09-15 17:50:41 piso Exp $
     3;;; Copyright (C) 2004-2005 Peter Graves
     4;;; $Id: swank-loader.lisp,v 1.5 2005-02-04 19:34:54 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1818;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    1919
    20 (in-package #:cl-user)
     20;;; Adapted from SLIME, the "Superior Lisp Interaction Mode for Emacs",
     21;;; originally written by Eric Marsden, Luke Gorrie and Helmut Eller.
     22
     23(defpackage #:swank-loader
     24  (:use :common-lisp))
     25
     26(in-package #:swank-loader)
    2127
    2228#+abcl
    2329(sys:load-system-file "swank-package")
    2430
    25 #+sbcl
     31#-abcl
    2632(load (merge-pathnames "swank-package.lisp" *load-truename*))
    2733
     
    4248                 (sys:load-system-file (file-namestring (compile-file source-file)))))))))
    4349
    44 #+sbcl
     50#-abcl
     51(defun binary-pathname (source-pathname)
     52  (let ((cfp (compile-file-pathname source-pathname)))
     53    (merge-pathnames (make-pathname
     54                      :directory `(:relative ".j" "slime" "fasl"
     55                                             #+sbcl "sbcl"
     56                                             #+allegro "allegro")
     57                      :name (pathname-name cfp)
     58                      :type (pathname-type cfp))
     59                     (user-homedir-pathname))))
     60
     61#-abcl
    4562(dolist (file '("swank-protocol.lisp"
    46                 "swank-sbcl.lisp"
     63                #+allegro "swank-allegro.lisp"
     64                #+sbcl "swank-sbcl.lisp"
    4765                "swank.lisp"))
    4866  (let* ((source-file (merge-pathnames file *load-truename*))
    49          (binary-file (compile-file-pathname source-file)))
     67         (binary-file (binary-pathname source-file)))
     68    (ensure-directories-exist binary-file)
    5069    (if (and (probe-file binary-file)
    51              (> (file-write-date binary-file) (file-write-date source-file)))
     70             (> (file-write-date binary-file)
     71                (file-write-date source-file)))
    5272        (load binary-file)
    53         (load (compile-file source-file)))))
     73        (load (compile-file source-file :output-file binary-file)))))
    5474
    5575#-j
  • trunk/j/src/org/armedbear/lisp/swank-protocol.lisp

    r7693 r8464  
    11;;; swank-protocol.lisp
    22;;;
    3 ;;; Copyright (C) 2004 Peter Graves
    4 ;;; $Id: swank-protocol.lisp,v 1.4 2004-09-15 19:19:02 piso Exp $
     3;;; Copyright (C) 2004-2005 Peter Graves
     4;;; $Id: swank-protocol.lisp,v 1.5 2005-02-04 19:35:50 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2525(in-package #:swank-protocol)
    2626
    27 (export '(encode-message decode-message port-file))
     27(eval-when (:compile-toplevel :load-toplevel :execute)
     28  (export '(encode-message decode-message port-file)))
    2829
    2930(defvar *swank-io-package*
     
    7374                   (if (sys:featurep :windows) "C:\\" (user-homedir-pathname))))
    7475
    75 #+sbcl
     76#-abcl
    7677(defun port-file ()
    7778  (merge-pathnames ".j/swank" (user-homedir-pathname)))
Note: See TracChangeset for help on using the changeset viewer.