Changeset 899

Timestamp:

Feb 15, 2005, 6:04:05 PM (20 years ago)

Author:

bryan

Message:

suppress unused lexical variable warning in #: handler

File:

• trunk/ccl/level-1/l1-reader.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-reader.lisp

@@ -858 +858 @@
                      (logbitp $cht_macbit attr)
                      (multiple-value-bind (escapes explicit-package nondots) (%collect-xtoken tb stream firstch)
+                       (declare (ignore nondots))
                        (%casify-token tb (unless (atom escapes) escapes))
                        (or explicit-package