| author | Camm Maguire <camm@debian.org> | 2014年10月23日 17:25:08 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014年10月23日 17:25:08 -0400 |
| commit | a72c3dae715a0b5ddbd135057a4dced04fad9953 (patch) | |
| tree | 47f89bfd9fd20cacebfd557be34217f76211df4d | |
| parent | 438be7b5041442a4c531781ed9d3ff6d5524079b (diff) | |
| download | gcl-a72c3dae715a0b5ddbd135057a4dced04fad9953.tar.gz | |
| -rwxr-xr-x | gcl/lsp/gcl_serror.lsp | 2 | ||||
| -rwxr-xr-x | gcl/lsp/gcl_top.lsp | 2 |
diff --git a/gcl/lsp/gcl_serror.lsp b/gcl/lsp/gcl_serror.lsp index 0181f8021..5c110a8af 100755 --- a/gcl/lsp/gcl_serror.lsp +++ b/gcl/lsp/gcl_serror.lsp @@ -100,6 +100,8 @@ args)))) ("unknown error"))) +(defvar *break-on-warnings* nil) + (defun warn (datum &rest arguments) (declare (optimize (safety 2))) (let ((c (process-error datum arguments 'simple-warning))) diff --git a/gcl/lsp/gcl_top.lsp b/gcl/lsp/gcl_top.lsp index b9ea40fea..db842670e 100755 --- a/gcl/lsp/gcl_top.lsp +++ b/gcl/lsp/gcl_top.lsp @@ -65,8 +65,6 @@ (defvar *break-enable* t) (defvar *break-message* "") -(defvar *break-on-warnings* nil) - (defvar *break-readtable* nil) (defvar *top-level-hook* nil) |