Changeset 7664


Ignore:
Timestamp:
09/13/04 13:46:02 (17 years ago)
Author:
piso
Message:

SWANK-LOAD-FILE

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

Legend:

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

    r7648 r7664  
    22;;;
    33;;; Copyright (C) 2004 Peter Graves
    4 ;;; $Id: swank-package.lisp,v 1.8 2004-09-12 17:52:07 piso Exp $
     4;;; $Id: swank-package.lisp,v 1.9 2004-09-13 13:45:22 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2626           #:eval-region
    2727           #:eval-string-async
     28           #:swank-load-file
    2829           #:swank-compile-file
    2930           #:swank-compile-string))
  • trunk/j/src/org/armedbear/lisp/swank.lisp

    r7649 r7664  
    22;;;
    33;;; Copyright (C) 2004 Peter Graves
    4 ;;; $Id: swank.lisp,v 1.15 2004-09-12 17:52:55 piso Exp $
     4;;; $Id: swank.lisp,v 1.16 2004-09-13 13:46:02 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    261261      values)))
    262262
     263(defun swank-load-file (pathname)
     264  (force-output)
     265  (write-string ";;;; Load file ")
     266  (write-string (namestring pathname))
     267  (write-string " ...")
     268  (terpri)
     269  (force-output)
     270  (let ((result (load pathname)))
     271    (list result)))
     272
    263273(defun swank-compile-file (pathname load-p)
    264274  (force-output)
Note: See TracChangeset for help on using the changeset viewer.