如何在lisp中禁用警告(sbcl)

问题描述 投票:15回答:7

如何禁用sbcl中的所有警告?额外的输出相当烦人。

debugging lisp common-lisp sbcl
7个回答
8
投票

这就是我用来消除编译时和运行时(加载时)重定义警告的方法:

(locally
    (declare #+sbcl(sb-ext:muffle-conditions sb-kernel:redefinition-warning))
  (handler-bind
      (#+sbcl(sb-kernel:redefinition-warning #'muffle-warning))
    ;; stuff that emits redefinition-warning's
    ))

按照这种模式,您可以在超类上安装这些处理​​程序,例如cl:style-warning,以消除所有样式警告。


10
投票

您可以使用SB-EXT:MUFFLE-CONDITIONS作为Pillsy说,另一种方法是阅读警告并使用它们来修改代码以删除警告。特别是如果它们实际上是警告(而不是优化注释)。


6
投票

经过多次蠢蠢欲动 并且通过显然对简单的具体例子过敏的人所写的文件进行讨论 (这似乎是大多数事情的大多数文档) 我想你需要做的就是禁用所有警告 在你的.sbclrc文件中添加以下行:

(declaim (sb-ext:muffle-conditions cl:warning))

要仅禁用样式警告,它是:

(declaim (sb-ext:muffle-conditions cl:style-warning))

如果你在一个新的REPL中输入例如(setq x 1),我试图特别禁用出现的警告

; in: SETQ X
;     (SETQ X 1)
; 
; caught WARNING:
;   undefined variable: X
; 
; compilation unit finished
;   Undefined variable:
;     X
;   caught 1 WARNING condition

通过使用这个:

(declaim (sb-ext:muffle-conditions sb-kernel:redefinition-warning))

但它不起作用, (显然redefinition-warning意味着别的东西) 我找不到它应该是什么。 我猜到了sb-kernel:undefined-warning 但那不存在。

Using a macro

也, 关于@ Bogatyr的回答 (使用宏来自动运行defvar) 和@spacebat的评论 (宏评估值两次) 我这样说:

正如另一个新手, 我想让演示显示宏观两次, 并显示仅评估一次的版本。

( 我最初在问题的最后编辑了它 但它被拒绝是因为: “这个编辑旨在解决帖子的作者,并且作为编辑没有任何意义。它应该被写成评论或答案。”

好吧,你不能回答, 但评论不能采取代码块, 所以我想我应该把它放在这里呢? )

original

(defmacro sq (var value)
  `(progn
      (defvar ,var ,value)
      (setq ,var ,value)))

    (sq v (princ "hi"))
  • 副作用:打印hihi
  • 返回值:"hi"

rewrite 2 - only evals once, always runs defvar

(defmacro sq2 (var value)
 (let
   ((value-to-set value))
   `(progn
      (defvar ,var)
      (setq ,var ,value-to-set))))

    (sq2 v (princ "hi"))
  • 副作用:打印hi
  • 返回值:"hi"

rewrite 3 - same as above, but trickier to read

为了清晰起见,我使用了value-to-set, 但你可以再次使用value没有问题:

(defmacro sq3 (var value)
 (let
   ((value value))
   `(progn
      (defvar ,var)
      (setq ,var ,value))))

    (sq3 v (princ "hi"))

rewrite 4 - only runs defvar if the variable is unbound

运行这些宏将始终在设置之前定义变量, 所以如果v已经“绑定”但没有“定义” (即你用setq介绍它) 然后在使用变量时不会再收到任何错误消息, 或者用setq重置它。

这是宏的一个版本 如果变量尚未绑定,则仅运行defvar

(defmacro sq4 (var value)
  (let
    ((value-to-set value))
    (if (boundp var)
        `(setq ,var ,value-to-set)
        `(progn
           (defvar ,var)
           (setq ,var ,value-to-set)))))

    (sq4 v (princ "hi"))

因此,如果您使用它来设置绑定但未定义的变量 它会不断给你错误信息。 (这可能是件好事吗? 就像,出于同样的原因 - 我实际上不知道为什么错误信息首先存在。)

[ 也, 我测试了这些宏:

(sq4 value           1              )
(sq4 value           'value         )
(sq4 value           'value-to-set  )
(sq4 value           'var           )
(sq4 value-to-set    1              )
(sq4 value-to-set    'value         )
(sq4 value-to-set    'value-to-set  )
(sq4 value-to-set    'var           )
(sq4 var             1              )
(sq4 var            'value          )
(sq4 var            'value-to-set   )
(sq4 var            'var            )

(你知道,检查我没有搞砸了......做了一些奇怪的事情。)

我试图使用var作为变量的错误。

起初我以为我搞砸了什么, 但它实际上只是为SBCL(?)本身的特殊内容保留。

(defvar var)得到:

; debugger invoked on a SYMBOL-PACKAGE-LOCKED-ERROR in thread
; #<THREAD "main thread" RUNNING {AB5D0A1}>:
;   Lock on package SB-DEBUG violated when globally declaring VAR SPECIAL while
;   in package COMMON-LISP-USER.
; See also:
;   The SBCL Manual, Node "Package Locks"

所以...当有疑问时,我猜想避免使用符号var。 ]


3
投票

即使经过大量谷歌搜索,我也无法获得SB-EXT:MUFFLE-CONDITIONS来处理非常恼人的未定义变量警告。在使用REPL进行实验时,这个警告让我疯狂,所以我做了所有书籍建议我们应该做的事情:扩展lisp以满足我的需求/偏好!

我编写了自己的setq来关闭sbcl警告,这是我的第一个宏:)。我确信有更好的方法可以做到这一点,但这对我很有用,而且它正好进入我的〜/ .sbclrc!

(defmacro sq (var value)
  `(progn
      (defvar ,var ,value)
      (setq ,var ,value)))

2
投票

你可能想看看SB-EXT:MUFFLE-CONDITIONS


0
投票

如果你关注的是警告,你可以设置:

(setf sb-ext:*muffled-warnings* 'style-warning)

这仅适用于样式警告,并允许打印其他警告和条件。任何共享同一父级的警告都将自动消除。


0
投票

对我(以及可能是其他人)来说,大多数警告实际上是通过管道输送到stdErr。 所以这使烦人的输出无声: sbcl 2>/dev/null/

或者,您可以管道到文件。 sbcl 2>myTempLog.txt


-1
投票

在启动sbcl时,问题是至少在我的配置中,亚历山大会因为asdf,alexandria和readline而吐出一吨方法警告并重新警告警告,而不管静音解决方案。

用户theoski的解决方案(sbcl 2> / dev / null ...)完全可以解决这些问题,但代价是可能实际上有用的警告。

尽管如此,我总是在终端上打开一个repl作为快速破解和试验的划痕,并且在装载它时没有看到雪崩的情况更好。

© www.soinside.com 2019 - 2024. All rights reserved.