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

Diff of /slime/swank.lisp

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

revision 1.310 by mbaringer, Sun Jul 24 15:30:46 2005 UTC revision 1.311 by heller, Tue Jul 26 20:51:14 2005 UTC
# Line 1  Line 1 
1  ;;; -*- Mode: lisp; outline-regexp: ";;;;;*"; indent-tabs-mode: nil -*-;;;  ;;; -*- outline-regexp: ";;;;;*"; indent-tabs-mode: nil -*-
2  ;;;  ;;;
3  ;;; This code has been placed in the Public Domain.  All warranties  ;;; This code has been placed in the Public Domain.  All warranties
4  ;;; are disclaimed.  ;;; are disclaimed.
# Line 2197  The time is measured in microseconds." Line 2197  The time is measured in microseconds."
2197        (list (to-string result)        (list (to-string result)
2198              (format nil "~,2F" (/ usecs 1000000.0))))))              (format nil "~,2F" (/ usecs 1000000.0))))))
2199    
2200  (defslimefun compile-file-for-emacs (filename load-p)  (defslimefun compile-file-for-emacs (filename load-p &optional external-format)
2201    "Compile FILENAME and, when LOAD-P, load the result.    "Compile FILENAME and, when LOAD-P, load the result.
2202  Record compiler notes signalled as `compiler-condition's."  Record compiler notes signalled as `compiler-condition's."
2203    (with-buffer-syntax ()    (with-buffer-syntax ()
2204      (let ((*compile-print* nil))      (let ((*compile-print* nil))
2205        (swank-compiler (lambda () (swank-compile-file filename load-p))))))        (swank-compiler (lambda () (swank-compile-file filename load-p
2206                                                         external-format))))))
2207    
2208  (defslimefun compile-string-for-emacs (string buffer position directory)  (defslimefun compile-string-for-emacs (string buffer position directory)
2209    "Compile STRING (exerpted from BUFFER at POSITION).    "Compile STRING (exerpted from BUFFER at POSITION).

Legend:
Removed from v.1.310  
changed lines
  Added in v.1.311

  ViewVC Help
Powered by ViewVC 1.1.5