[slime-cvs] CVS update: slime/null-swank-impl.lisp

[James Bielman]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv14622

Modified Files:
	null-swank-impl.lisp 
Log Message:
Rename COMPILE-STREAM to COMPILE-STREAM-TRAPPING-CONDITIONS.
Add function COMPILE-FILE-TRAPPING-CONDITIONS for file compilation.

Date: Tue Oct 28 18:37:14 2003
Author: jbielman

Index: slime/null-swank-impl.lisp
diff -u slime/null-swank-impl.lisp:1.1 slime/null-swank-impl.lisp:1.2
--- slime/null-swank-impl.lisp:1.1	Tue Oct 28 17:30:39 2003
+++ slime/null-swank-impl.lisp	Tue Oct 28 18:37:14 2003
@@ -5,7 +5,7 @@
 ;;; Copyright (C) 2003, James Bielman  <jamesjb at jamesjb.com>
 ;;; Released into the public domain; all warranties are disclaimed.
 ;;;
-;;;   $Id: null-swank-impl.lisp,v 1.1 2003/10/28 22:30:39 jbielman Exp $
+;;;   $Id: null-swank-impl.lisp,v 1.2 2003/10/28 23:37:14 jbielman Exp $
 ;;;
 
 ;; The "SWANK-IMPL" package contains functions that access the naughty
@@ -59,7 +59,8 @@
   (:export 
    #:backtrace
    #:backtrace-length
-   #:compile-stream
+   #:compile-file-trapping-conditions
+   #:compile-stream-trapping-conditions
    #:compiler-condition
    #:compiler-condition-message
    #:compiler-condition-original-condition
@@ -157,11 +158,15 @@
 
 ;;; Compilation
 
-;; XXX I have this as the only entry point for doing compilation---do
-;; we want to have our own version of COMPILE-FILE that resignals
-;; portable compiler-conditions as well or is this enough?
+(defun compile-file-trapping-conditions (filename &key (load t))
+  "Compile FILENAME like COMPILE-FILE but resignal compilation
+conditions as Swank compiler conditions."
+  (declare (ignore filename load))
+  (error 'not-implemented-error 
+         :function-name 'compile-file-trapping-conditions))
 
-(defun compile-stream (stream &key filename position (load t))
+(defun compile-stream-trapping-conditions (stream &key 
+                                           filename position (load t))
   "Compile source from STREAM.  During compilation, compiler
 conditions must be trapped and resignalled as
 COMPILER-CONDITIONs.
@@ -173,7 +178,8 @@
 Additionally, if POSITION is supplied, it must be added to
 source positions reported in compiler conditions."
   (declare (ignore stream filename position load))
-  (error 'not-implemented-error :function-name 'compile-stream))
+  (error 'not-implemented-error 
+         :function-name 'compile-stream-trapping-conditions))
 
 ;;; Symbol and Function Introspection