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

Diff of /slime/swank-clisp.lisp

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

revision 1.12 by heller, Sun Jan 18 07:15:49 2004 UTC revision 1.13 by wjenkner, Sun Jan 18 15:46:07 2004 UTC
# Line 44  Line 44 
44    
45  #+linux  #+linux
46  (defmethod call-without-interrupts (fn)  (defmethod call-without-interrupts (fn)
47    (with-blocked-signals (linux:SIGINT) (funcall fn)))    (with-blocked-signals (#.linux:SIGINT) (funcall fn)))
48    
49  #-linux  #-linux
50  (defmethod call-without-interrupts (fn)  (defmethod call-without-interrupts (fn)
# Line 357  Return NIL if the symbol is unbound." Line 357  Return NIL if the symbol is unbound."
357                         (signal condition))))                         (signal condition))))
358        ;; w-p = errors + warnings, f-p = errors + warnings - style warnings,        ;; w-p = errors + warnings, f-p = errors + warnings - style warnings,
359        ;; where a result of 0 is replaced by NIL.  It follows that w-p        ;; where a result of 0 is replaced by NIL.  It follows that w-p
360        ;; is T iff there was any note whatsoever and that f-p is T iff        ;; is non-NIL iff there was any note whatsoever and that f-p is
361        ;; there was anything more severe than a style warning.  This is        ;; non-NIL iff there was anything more severe than a style
362        ;; completely ANSI compliant.        ;; warning.  This is completely ANSI compliant.
363        (declare (ignore w-p f-p))        (declare (ignore w-p f-p))
364        (if (and fas-file load-p)        (if (and fas-file load-p)
365            (load fas-file)            (load fas-file)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5