[Ecls-list] Small with-interrupts patch

[Jerry James]

Argh, just noticed that gmail was in HTML mode.  Sorry for the last
couple of messages.  I've got it in plain text mode now.

This patch is the resulting of noticing this in the build output:

;;; Compiling (DEFMACRO WITH-INTERRUPTS ...).
;;; Style warning:
;;;   in file MP.LSP, position 3764
;;;   at (FSET 'WITH-INTERRUPTS ...)
;;;   ! Variable ENABLEP was undefined. Compiler assumes it is a global.
;;; Style warning:
;;;   in file MP.LSP, position 3764
;;;   at (FSET 'WITH-INTERRUPTS ...)
;;;   ! Variable ALLOWP was undefined. Compiler assumes it is a global.
;;; Style warning:
;;;   in file MP.LSP, position 3764
;;;   at (FSET 'WITH-INTERRUPTS ...)
;;;   ! Variable ENABLEP was undefined. Compiler assumes it is a global.
;;; Style warning:
;;;   in file MP.LSP, position 3764
;;;   at (FSET 'WITH-INTERRUPTS ...)
;;;   ! Variable ENABLEP was undefined. Compiler assumes it is a global.
;;; Style warning:
;;;   in file MP.LSP, position 3764
;;;   at (FSET 'WITH-INTERRUPTS ...)
;;;   ! Variable ALLOWP was undefined. Compiler assumes it is a global.
;;; Style warning:
;;;   in file MP.LSP, position 3764
;;;   at (FSET 'WITH-INTERRUPTS ...)
;;;   ! Variable ALLOWP was undefined. Compiler assumes it is a global.
;;; Style warning:
;;;   in file MP.LSP, position 3764
;;;   at (FSET 'WITH-INTERRUPTS ...)
;;;   ! Variable ENABLEP was undefined. Compiler assumes it is a global.

I think the patch is self-explanatory.  Regards,
--
Jerry James
http://www.jamezone.org/
-------------- next part --------------
A non-text attachment was scrubbed...
Name: ecl-with-interrupts.patch
Type: application/octet-stream
Size: 690 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/ecl-devel/attachments/20110118/9cdb11d3/attachment.obj>