zone: Quench warnings from zone-parser functions.

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index f313702ffaf2512fe15b83a54ed504a601b41b37..611a6ac8af75676810ca65ff0fdae7363349054a 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))
                                   ((: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
                        (collect (make-zone-record :name ,tname
                                                   :type ,ttype
                                                   :data ,tdata