chiark / gitweb /
zone: Quench warnings from zone-parser functions.
[zone] / zone.lisp
index f313702..611a6ac 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -498,6 +498,7 @@        (defun ,func (,prefix ,zname ,data ,ttl ,col)
                                   ((:data ,tdata) ,data)
                                   ((:ttl ,tttl) ,ttl)
                                   ((:make-ptr-p ,tmakeptrp) nil))
+                       #+cmu (declare (optimize ext:inhibit-warnings))
                        (collect (make-zone-record :name ,tname
                                                   :type ,ttype
                                                   :data ,tdata