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

[Wolfgang Jenkner]

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

Modified Files:
	swank-clisp.lisp 
Log Message:
swank-clisp.lisp (call-without-interrupts): Evaluate linux:SIGFOO at
read time since the macro with-blocked-signals expects a fixnum.

(compile-file-for-emacs): Comment fix.

Date: Sun Jan 18 10:46:07 2004
Author: wjenkner

Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.12 slime/swank-clisp.lisp:1.13
--- slime/swank-clisp.lisp:1.12	Sun Jan 18 02:15:49 2004
+++ slime/swank-clisp.lisp	Sun Jan 18 10:46:07 2004
@@ -44,7 +44,7 @@
 	
 #+linux
 (defmethod call-without-interrupts (fn)
-  (with-blocked-signals (linux:SIGINT) (funcall fn)))
+  (with-blocked-signals (#.linux:SIGINT) (funcall fn)))
 
 #-linux
 (defmethod call-without-interrupts (fn)
@@ -357,9 +357,9 @@
 		       (signal condition))))
       ;; w-p = errors + warnings, f-p = errors + warnings - style warnings,
       ;; where a result of 0 is replaced by NIL.  It follows that w-p
-      ;; is T iff there was any note whatsoever and that f-p is T iff
-      ;; there was anything more severe than a style warning.  This is
-      ;; completely ANSI compliant.
+      ;; is non-NIL iff there was any note whatsoever and that f-p is
+      ;; non-NIL iff there was anything more severe than a style
+      ;; warning.  This is completely ANSI compliant.
       (declare (ignore w-p f-p))
       (if (and fas-file load-p)
 	  (load fas-file)